| # | Line 70 | Line 70 | sub url { | |
|---|---|---|
| 70 | ||
| 71 | my $vars=$self->_vartostring(); | |
| 72 | my $base=$self->base(); | |
| 73 | – | print "base= $base\n"; |
| 73 | my $fullurl=$self->type()."://".(($base ne "")?$base."/":""). | |
| 74 | $self->file().(($vars ne "")?"\?".$vars:""); | |
| 75 | return $fullurl; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |