X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FCGI.pm;h=945478475ccde5d194c3de4d0ef526a2cacb7a1c;hp=f33a718fa68711b8dda79cd4a1f70c1716776d33;hb=74e058c8a010ef6feb539248a550d0bb169c1e94;hpb=624b2d44625f69d71175c3348cae635d580c890b

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index f33a718fa..945478475 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