X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fprovision_list.html;h=086c79e57e9067bacb156f3fdf4cf7b7b06d13b1;hb=912cbcaf930f41cd6a087ea4bcc581aad035dd41;hp=818cd9f35da2558303c45216e6bf05040620dc20;hpb=d7eafc9c9aae2bf47ea19a56cc5bb1380c5874e4;p=freeside.git
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html
index 818cd9f35..086c79e57 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision_list.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html
@@ -1,12 +1,5 @@
Setup services
-
-
<%=
@@ -16,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 .= #''.
@@ -46,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>";
@@ -57,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;
@@ -91,7 +96,7 @@ foreach my $pkg (
'('. $part_svc->{'num_avail'}. ' available)'.
''
#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;
}