projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix for selfservice_server-base_url without a trailing /
[freeside.git]
/
FS
/
FS
/
ClientAPI
/
MasonComponent.pm
diff --git
a/FS/FS/ClientAPI/MasonComponent.pm
b/FS/FS/ClientAPI/MasonComponent.pm
index
2027840
..
20b4e5b
100644
(file)
--- a/
FS/FS/ClientAPI/MasonComponent.pm
+++ b/
FS/FS/ClientAPI/MasonComponent.pm
@@
-67,9
+67,7
@@
my %session_callbacks = (
map { $_->part_pkg }
$cust_main->ncancelled_pkgs;
map { $_->part_pkg }
$cust_main->ncancelled_pkgs;
- warn "classnums: ". join(',', keys %classnum). "\n";
-
- unless ( $classnum{''} ) {
+ unless ( $classnum{''} || ! keys %classnum ) {
@part_pkg = grep $classnum{ $_->classnum }, @part_pkg;
}
}
@part_pkg = grep $classnum{ $_->classnum }, @part_pkg;
}
}
@@
-111,6
+109,7
@@
sub mason_comp {
my $conf = new FS::Conf;
$FS::Mason::Request::FSURL = $conf->config('selfservice_server-base_url');
my $conf = new FS::Conf;
$FS::Mason::Request::FSURL = $conf->config('selfservice_server-base_url');
+ $FS::Mason::Request::FSURL .= '/' unless $FS::Mason::Request::FSURL =~ /\/$/;
$FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || '';
$outbuf = '';
$FS::Mason::Request::QUERY_STRING = $packet->{'query_string'} || '';
$outbuf = '';