my $susp = $pkg->{'susp'} || '';
my @pkg_actions = ();
if ( ! $susp ) {
- push @pkg_actions, [ 'customer_change_pkg' => 'change' ];
- push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ]
+ push @pkg_actions, [ 'customer_change_pkg' => 'change' ] unless $pkg->{'immutable'};
+ push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ]
if $self_suspend_reason;
}
'('. $part_svc->{'num_avail'}. ' available)'.
'</TD></TR>'
#self-service only supports these services so far
- if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
+ if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external svc_forward );
$col = $col eq $col1 ? $col2 : $col1;
}