projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove things deprecated since v3
[freeside.git]
/
FS
/
FS
/
CGI.pm
diff --git
a/FS/FS/CGI.pm
b/FS/FS/CGI.pm
index
972625f
..
fc0f652
100644
(file)
--- a/
FS/FS/CGI.pm
+++ b/
FS/FS/CGI.pm
@@
-6,7
+6,7
@@
use Exporter;
use CGI;
use URI::URL;
#use CGI::Carp qw(fatalsToBrowser);
use CGI;
use URI::URL;
#use CGI::Carp qw(fatalsToBrowser);
-use FS::UID;
+use FS::UID
qw( cgi )
;
@ISA = qw(Exporter);
@EXPORT_OK = qw( header menubar idiot eidiot popurl rooturl table itable ntable
@ISA = qw(Exporter);
@EXPORT_OK = qw( header menubar idiot eidiot popurl rooturl table itable ntable
@@
-232,7
+232,7
@@
sub rooturl {
$url_string = shift;
} else {
# better to start with the client-provided URL
$url_string = shift;
} else {
# better to start with the client-provided URL
- my $cgi =
&FS::UID::
cgi;
+ my $cgi = cgi;
$url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url;
}
$url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url;
}
@@
-244,17
+244,13
@@
sub rooturl {
$url_string =~
s{
/
$url_string =~
s{
/
- (browse|config|docs|edit|graph|misc|search|view|
pref|elements
|rt|torrus)
+ (browse|config|docs|edit|graph|misc|search|view|
loginout|pref
|rt|torrus)
(/process)?
([\w\-\.\/]*)
$
}
{}x;
(/process)?
([\w\-\.\/]*)
$
}
{}x;
- #elements because of progress-popup.html...
- #XXX remove anything from elements that is called directly & prevent
- #those pages from being served up
-
$url_string .= '/' unless $url_string =~ /\/$/;
$url_string;
$url_string .= '/' unless $url_string =~ /\/$/;
$url_string;