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=2>'.
  20           $pkg->{'pkg'}. '</TH><TH BGCOLOR="#6666ff" >' .
  21           qq!(<A style="font-size: smaller;color: #000000" HREF="! .
  22           qq!${url}customer_change_pkg;pkgnum=$pkg->{'pkgnum'};pkg=$pkg->{'pkg'}">! .
  23           'change</A>)</TH></TR>';
  24
  25   my $col1 = "ffffff";
  26   my $col2 = "dddddd";
  27   my $col = $col1;
  28
  29   foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
  30     my $td = qq!<TD BGCOLOR="#$col"!;
  31
  32     $OUT .= '<TR>'.
  33               "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
  34               "$td><B>". $cust_svc->{label}[1]. '</B>';
  35     $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
  36       if exists($cust_svc->{_password});
  37     $OUT .= '</TD>'.
  38               "$td><FONT SIZE=-1>";
  39
  40     #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
  41     #  $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
  42     #          'change&nbsp;pw) ';
  43     #}
  44
  45     unless ( $cust_svc->{'svcnum'} == $svcnum ) {
  46       $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?')">!.
  47               'delete</A>)';
  48
  49     }
  50     $OUT .= '</FONT></TD></TR>';
  51     $col = $col eq $col1 ? $col2 : $col1;
  52   }
  53
  54   $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
  55     if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
  56
  57   $col = $col1;
  58
  59   foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
  60
  61     my $td = qq!<TD BGCOLOR="#$col"!;
  62
  63     my $link;
  64
  65     if ( $part_svc->{'svcdb'} eq 'svc_external'
  66          #&& $conf->exists('svc_external-skip_manual')
  67     ) {
  68       $link = "${url}process_svc_external;".
  69               "pkgnum=$pkg->{'pkgnum'};".
  70               "svcpart=$part_svc->{'svcpart'}";
  71     } else {
  72       $link = "${url}provision_svc;".
  73               "pkgnum=$pkg->{'pkgnum'};".
  74               "svcpart=$part_svc->{'svcpart'}";
  75     }
  76
  77     $OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
  78             qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. '</A> '.
  79             '('. $part_svc->{'num_avail'}. ' available)'.
  80             '</TD></TR>'
  81       #self-service only supports these services so far
  82       if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
  83
  84     $col = $col eq $col1 ? $col2 : $col1;
  85   }
  86
  87   #$OUT .= '</TABLE><BR>';
  88   $OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3>&nbsp;</TD></TR>';
  89
  90 } %>
  91
  92 </TABLE>