# | Line 119 | Line 119 | sub urlget | |
---|---|---|
119 | return ($fullurl,$filename); | |
120 | } | |
121 | ||
122 | + | sub setbaseurl() |
123 | + | { |
124 | + | my $self=shift; |
125 | + | my ($partialurl)=@_; |
126 | + | return $self->urlhandler_()->setbase($partialurl); |
127 | + | } |
128 | + | |
129 | + | sub unsetbaseurl() |
130 | + | { |
131 | + | my $self=shift; |
132 | + | my ($type)=@_; |
133 | + | $self->urlhandler_()->unsetbase($type); |
134 | + | } |
135 | + | |
136 | sub urlhandler_() | |
137 | { | |
138 | my $self=shift; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |