diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-11-19 21:56:06 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-11-19 21:56:06 -0800 |
| commit | bc54a75d31ea0e70e5854e4ddb9122d8feecdd74 (patch) | |
| tree | 954ab01cfbd205aaf2ced9588fa6cac0bdcb9490 /FS | |
| parent | 4247bd18a51ef34403d648af6281101f25fc9a62 (diff) | |
prohibit self-service changing of suspended packages, RT#26140
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 2aeecc1b2..241963f90 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -2303,6 +2303,11 @@ sub change_pkg { my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $p->{pkgnum} } ) or return { 'error' => "unknown package $p->{pkgnum}" }; + #if someone does need self-service package change of suspended packages, + # figure out how to be more discriminating + return { error=>"Can't change a suspended package", pkgnum=>$cust_pkg->pkgnum} + if $cust_pkg->status eq 'suspended'; + my @newpkg; my $error = FS::cust_pkg::order( $custnum, [$p->{pkgpart}], |