oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

! improved parsing of # anchors

Browse source
This commit is contained in:
Alan Ritari 2004-02-12 16:50:07 +00:00
parent 3e22161d8b
commit c18b7da8cc
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Wobject/HttpProxy/Parse.pm
View file

@ -122,6 +122,11 @@ sub start {
if ($val =~ /^\?/) { # link that starts with ? i.e. <a href="?var=hello"> if ($val =~ /^\?/) { # link that starts with ? i.e. <a href="?var=hello">
my @urlBase = split(/\?/, $self->{Url}); my @urlBase = split(/\?/, $self->{Url});
$val = URI::URL::url($urlBase[0] . $val); $val = URI::URL::url($urlBase[0] . $val);
# catch internal # anchors
} elsif ($val =~ /^#/){
$val = URI::URL::url($val);
} else { } else {
$val = URI::URL::url($val)->abs($self->{Url},1); # make absolute $val = URI::URL::url($val)->abs($self->{Url},1); # make absolute
} }