diff options
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 86d20f6..25f0de7 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -59,7 +59,7 @@ sub header { <META HTTP-Equiv="Expires" Content="0"> </HEAD> <BODY BGCOLOR="#e8e8e8"$etc> - <FONT SIZE=7> + <FONT SIZE=6> $title </FONT> <BR><BR> @@ -209,7 +209,9 @@ Returns current URL with LEVEL levels of path removed from the end (default 0). sub popurl { my($up)=@_; my $cgi = &FS::UID::cgi; - my $url = new URI::URL ( $cgi->isa('Apache') ? $cgi->uri : $cgi->url ); + my $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url; + $url_string =~ s/\?.*//; + my $url = new URI::URL ( $url_string ); my(@path)=$url->path_components; splice @path, 0-$up; $url->path_components(@path); |