projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
selfservice command to suspend packages, RT#9989
[freeside.git]
/
FS
/
FS
/
ClientAPI
/
MasonComponent.pm
diff --git
a/FS/FS/ClientAPI/MasonComponent.pm
b/FS/FS/ClientAPI/MasonComponent.pm
index
e98e8dc
..
20b4e5b
100644
(file)
--- a/
FS/FS/ClientAPI/MasonComponent.pm
+++ b/
FS/FS/ClientAPI/MasonComponent.pm
@@
-67,7
+67,7
@@
my %session_callbacks = (
map { $_->part_pkg }
$cust_main->ncancelled_pkgs;
map { $_->part_pkg }
$cust_main->ncancelled_pkgs;
- unless ( $classnum{''} ) {
+ unless ( $classnum{''}
|| ! keys %classnum
) {
@part_pkg = grep $classnum{ $_->classnum }, @part_pkg;
}
}
@part_pkg = grep $classnum{ $_->classnum }, @part_pkg;
}
}
@@
-109,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 = '';