projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix svc_url to work no matter where we are coming from in the tree - use rooturl...
[freeside.git]
/
FS
/
FS
/
UI
/
Web.pm
diff --git
a/FS/FS/UI/Web.pm
b/FS/FS/UI/Web.pm
index
15ec1a7
..
d7730c1
100644
(file)
--- a/
FS/FS/UI/Web.pm
+++ b/
FS/FS/UI/Web.pm
@@
-91,7
+91,7
@@
passed as a list of name-value pairs, and include:
# ##
# 'ahref' => 1, # if set true, returns <A HREF="$url">
# ##
# 'ahref' => 1, # if set true, returns <A HREF="$url">
-use FS::CGI qw(
pop
url);
+use FS::CGI qw(
root
url);
sub svc_url {
my %opt = @_;
sub svc_url {
my %opt = @_;
@@
-112,8
+112,7
@@
sub svc_url {
$url .= 'svcnum=' if $query =~ /^\d+(;|$)/ or $query eq '';
}
$url .= 'svcnum=' if $query =~ /^\d+(;|$)/ or $query eq '';
}
- my $p = popurl(2); #?
- my $return = "$p$opt{action}/$url$query";
+ my $return = rooturl(). "$opt{action}/$url$query";
$return = qq!<A HREF="$return">! if $opt{ahref};
$return = qq!<A HREF="$return">! if $opt{ahref};