diff options
Diffstat (limited to 'FS/FS/CGI.pm')
| -rw-r--r-- | FS/FS/CGI.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index f33a718..9454784 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -227,9 +227,15 @@ sub popurl { =cut sub rooturl { - # better to start with the client-provided URL - my $cgi = &FS::UID::cgi; - my $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url; + my $url_string; + if ( scalar(@_) ) { + $url_string = shift; + } else { + # better to start with the client-provided URL + my $cgi = &FS::UID::cgi; + $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url; + } + $url_string =~ s/\?.*//; #even though this is kludgy |