X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fprovision_list.html;h=b558337dee67d3974e172ecab5c2aa4f9f3ee25e;hp=a1a519490c1689f7e0765eedad2c95feeb77746f;hb=7bcf726ffbb331ad01e717f7de36bfb42f5ca4ba;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html index a1a519490..b558337de 100644 --- a/fs_selfservice/FS-SelfService/cgi/provision_list.html +++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html @@ -9,11 +9,14 @@ foreach my $pkg ( || scalar(@{$_->{cust_svc}}) } @cust_pkg ) { + my $susp = $pkg->{'susp'} || ''; - warn $pkg->{'pkg'}. ' '.$susp."\n"; - 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' ] unless $pkg->{'immutable'}; + push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ] + if $self_suspend_reason; + } my $bgcolor = $susp ? '"#ff9900"' : '"#8888ff"'; $OUT .= #''. @@ -39,6 +42,14 @@ foreach my $pkg ( "$td>". $cust_svc->{label}[1]. ''; $OUT .= '
password: '. encode_entities($cust_svc->{_password}). '' if exists($cust_svc->{_password}); + if ( exists($cust_svc->{svchash}) ) { + $OUT .= '
Email: '. encode_entities($cust_svc->{svchash}->{email}). '' + if exists($cust_svc->{svchash}->{email}) + && length($cust_svc->{svchash}->{email}); + $OUT .= '
Forward to: '. encode_entities($cust_svc->{svchash}->{forwarddst}). '' + if exists($cust_svc->{svchash}->{forwarddst}) + && length($cust_svc->{svchash}->{forwarddst}); + } $OUT .= ''. "$td>"; @@ -50,7 +61,8 @@ foreach my $pkg ( unless ( $cust_svc->{'svcnum'} == $svcnum ) { $OUT .= qq!(!. 'delete)'; - + $OUT .= qq!
(modify)! + if ( exists($cust_svc->{svchash}) && $cust_svc->{label}[2] eq 'svc_phone' ); } $OUT .= '
'; $col = $col eq $col1 ? $col2 : $col1;