fs_selfservice/FS-SelfService/cgi/provision_list.html

   1 <FONT SIZE=4>Setup services</FONT><BR><BR>
   2
   3 <SCRIPT>
   4 function areyousure(href, message) {
   5     if (confirm(message) == true)
   6         window.location.href = href;
   7 }
   8 </SCRIPT>
   9
  10 <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">
  11
  12 <%=
  13
  14 foreach my $pkg (
  15     grep {    scalar(@{$_->{part_svc}})
  16            || scalar(@{$_->{cust_svc}})
  17          } @cust_pkg
  18     ) {
  19   my $susp = $pkg->{'susp'} || '';
  20   warn $pkg->{'pkg'}. ' '.$susp."\n";
  21   my @pkg_actions = ( [ 'customer_change_pkg' => 'change' ] );
  22   push @pkg_actions, [ 'process_suspend_pkg' => 'suspend' ]
  23     if $self_suspend_reason and !$susp;
  24
  25   my $bgcolor = $susp ? '"#ff9900"' : '"#8888ff"';
  26   $OUT .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
  27           '<TR><TH BGCOLOR='.$bgcolor.' COLSPAN=2>'.
  28           $pkg->{'pkg'}. ($susp && ' (suspended)').
  29           '</TH><TH ALIGN="left" BGCOLOR='.$bgcolor.'>';
  30   foreach my $action (@pkg_actions) {
  31     $OUT .= '(<A style="font-size: smaller;color: #000000" HREF="' .
  32             $url . $action->[0] . ';pkgnum=' . $pkg->{'pkgnum'} . ';pkg=' .
  33             $pkg->{'pkg'} . '">' . $action->[1] . '</A>) ';
  34   }
  35   $OUT .= '</TH></TR>';
  36
  37   my $col1 = "ffffff";
  38   my $col2 = "dddddd";
  39   my $col = $col1;
  40
  41   foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
  42     my $td = qq!<TD BGCOLOR="#$col"!;
  43
  44     $OUT .= '<TR>'.
  45               "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
  46               "$td><B>". $cust_svc->{label}[1]. '</B>';
  47     $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
  48       if exists($cust_svc->{_password});
  49     $OUT .= '</TD>'.
  50               "$td><FONT SIZE=-1>";
  51
  52     #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
  53     #  $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
  54     #          'change&nbsp;pw) ';
  55     #}
  56
  57     unless ( $cust_svc->{'svcnum'} == $svcnum ) {
  58       $OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will permanently delete the $cust_svc->{label}[1] $cust_svc->{label}[0].  Are you sure?')">!.
  59               'delete</A>)';
  60
  61     }
  62     $OUT .= '</FONT></TD></TR>';
  63     $col = $col eq $col1 ? $col2 : $col1;
  64   }
  65
  66   $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
  67     if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
  68
  69   $col = $col1;
  70
  71   foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
  72
  73     my $td = qq!<TD BGCOLOR="#$col"!;
  74
  75     my $link;
  76
  77     if ( $part_svc->{'svcdb'} eq 'svc_external'
  78          #&& $conf->exists('svc_external-skip_manual')
  79     ) {
  80       $link = "${url}process_svc_external;".
  81               "pkgnum=$pkg->{'pkgnum'};".
  82               "svcpart=$part_svc->{'svcpart'}";
  83     } else {
  84       $link = "${url}provision_svc;".
  85               "pkgnum=$pkg->{'pkgnum'};".
  86               "svcpart=$part_svc->{'svcpart'}";
  87     }
  88
  89     $OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
  90             qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. '</A> '.
  91             '('. $part_svc->{'num_avail'}. ' available)'.
  92             '</TD></TR>'
  93       #self-service only supports these services so far
  94       if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
  95
  96     $col = $col eq $col1 ? $col2 : $col1;
  97   }
  98
  99   #$OUT .= '</TABLE><BR>';
 100   $OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3>&nbsp;</TD></TR>';
 101
 102 } %>
 103
 104 </TABLE>