stop unsuspending inappropriately

[freeside.git] / FS / FS / CGI.pm

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index d598f52..8b401da 100644 (file)
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -231,9 +231,6 @@ sub popurl {
 =cut
 
 sub rooturl {
-  #this doesn't work so well...
-  #'%%%FREESIDE_URL%%%';
-
   # better to start with the client-provided URL
   my $cgi = &FS::UID::cgi;
   my $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url;
@@ -242,7 +239,7 @@ sub rooturl {
   #even though this is kludgy
   $url_string =~
     s{
-       (browse|config|docs|edit|graph|misc|search|view)
+       (browse|config|docs|edit|graph|misc|search|view|pref)
        /
        (process/)?
        ([\w\-\.]+)