diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-11-19 21:56:07 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-11-19 21:56:07 -0800 |
| commit | d0166fb1f52865916575ac6aa0eb043d792fe18b (patch) | |
| tree | 3f231f5d4652c810d86ba587e9706272d5d719ee /fs_selfservice/FS-SelfService/cgi | |
| parent | f212cce3b3d07f5050b4c6bd649d2aa5fd2a0c49 (diff) | |
prohibit self-service changing of suspended packages, RT#26140
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/provision_list.html | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html index 2a3a8e909..24d6ff436 100644 --- a/fs_selfservice/FS-SelfService/cgi/provision_list.html +++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html @@ -9,10 +9,14 @@ foreach my $pkg ( || scalar(@{$_->{cust_svc}}) } @cust_pkg ) { + my $susp = $pkg->{'susp'} || ''; - my @pkg_actions = ( [ 'customer_change_pkg' => 'change' ] ); - push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ] - if $self_suspend_reason and !$susp; + my @pkg_actions = (); + if ( ! $susp ) { + push @pkg_actions, [ 'customer_change_pkg' => 'change' ]; + push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ] + if $self_suspend_reason; + } my $bgcolor = $susp ? '"#ff9900"' : '"#8888ff"'; $OUT .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'. |