X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fprovision_list.html;h=a1a519490c1689f7e0765eedad2c95feeb77746f;hb=ec681a87b33fe272276f367aea4da3ed4d689605;hp=0f68dfe3cb8c8d2966b15e14be92870a809fc456;hpb=a223750d9f7a4548319007807c3564ff3a8ebe40;p=freeside.git
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html
index 0f68dfe3c..a1a519490 100644
--- a/fs_selfservice/FS-SelfService/cgi/provision_list.html
+++ b/fs_selfservice/FS-SelfService/cgi/provision_list.html
@@ -1,24 +1,31 @@
Setup services
-
-
-<%= foreach my $pkg (
- grep { scalar(@{$_->{part_svc}})
- || scalar(@{$_->{cust_svc}})
- } @cust_pkg
+<%=
+
+foreach my $pkg (
+ grep { scalar(@{$_->{part_svc}})
+ || 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 $bgcolor = $susp ? '"#ff9900"' : '"#8888ff"';
$OUT .= #''.
- ''.
- $pkg->{'pkg'}.
- ' |
';
+ ''.
+ $pkg->{'pkg'}. ($susp && ' (suspended)').
+ ' | ';
+ foreach my $action (@pkg_actions) {
+ $OUT .= '(' . $action->[1] . ') ';
+ }
+ $OUT .= ' |
';
my $col1 = "ffffff";
my $col2 = "dddddd";
@@ -75,7 +82,10 @@ function areyousure(href, message) {
$OUT .= "$td COLSPAN=3 ALIGN=center>".
qq!!. 'Setup '. $part_svc->{'svc'}. ' '.
'('. $part_svc->{'num_avail'}. ' available)'.
- '
';
+ ''
+ #self-service only supports these services so far
+ if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
+
$col = $col eq $col1 ? $col2 : $col1;
}