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 <%= foreach my $pkg (
  13       grep {    scalar(@{$_->{part_svc}})
  14              || scalar(@{$_->{cust_svc}})
  15            } @cust_pkg
  16     ) {
  17
  18   $OUT .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
  19           '<TR><TH BGCOLOR="#6666ff" COLSPAN=3>'.
  20           $pkg->{'pkg'}.
  21           '</TH></TR>';
  22
  23   my $col1 = "ffffff";
  24   my $col2 = "dddddd";
  25   my $col = $col1;
  26
  27   foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
  28     my $td = qq!<TD BGCOLOR="#$col"!;
  29
  30     $OUT .= '<TR>'.
  31               "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
  32               "$td><B>". $cust_svc->{label}[1]. '</B>';
  33     $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
  34       if exists($cust_svc->{_password});
  35     $OUT .= '</TD>'.
  36               "$td><FONT SIZE=-1>";
  37
  38     #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
  39     #  $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
  40     #          'change&nbsp;pw) ';
  41     #}
  42
  43     unless ( $cust_svc->{'svcnum'} == $svcnum ) {
  44       $OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will perminantly delete the $cust_svc->{label}[1] $cust_svc->{label}[0].  Are you sure?')">!.
  45               'delete</A>)';
  46
  47     }
  48     $OUT .= '</FONT></TD></TR>';
  49     $col = $col eq $col1 ? $col2 : $col1;
  50   }
  51
  52   $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
  53     if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
  54
  55   $col = $col1;
  56
  57   foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
  58
  59     my $td = qq!<TD BGCOLOR="#$col"!;
  60
  61     $OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
  62             qq!<A HREF="${url}provision_svc;pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}">!.
  63             'Setup '. $part_svc->{'svc'}. '</A> '.
  64             '('. $part_svc->{'num_avail'}. ' available)'.
  65             '</TD></TR>';
  66     $col = $col eq $col1 ? $col2 : $col1;
  67   }
  68
  69   #$OUT .= '</TABLE><BR>';
  70   $OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3>&nbsp;</TD></TR>';
  71
  72 } %>
  73
  74 </TABLE>