fs_selfservice/FS-SelfService/cgi/provision.html

   1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
   2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
   3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   4 <TABLE BORDER=0 CELLPADDING=4><TR>
   5 <%= include('myaccount_menu') %>
   6 <TD VALIGN="top">
   7 <FONT SIZE=4>Setup services</FONT><BR><BR>
   8
   9 <SCRIPT>
  10 function areyousure(href, message) {
  11     if (confirm(message) == true)
  12         window.location.href = href;
  13 }
  14 </SCRIPT>
  15
  16 <%= foreach my $pkg (
  17       grep {    scalar(@{$_->{part_svc}})
  18              || scalar(@{$_->{cust_svc}})
  19            } @cust_pkg
  20     ) {
  21
  22   $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
  23           '<TR><TH BGCOLOR="#6666ff" COLSPAN=3>'.
  24           $pkg->{'pkg'}.
  25           '</TH></TR>';
  26
  27   my $col1 = "ffffff";
  28   my $col2 = "dddddd";
  29   my $col = $col1;
  30
  31   foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
  32     my $td = qq!<TD BGCOLOR="#$col"!;
  33
  34     $OUT .= '<TR>'.
  35               "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
  36               "$td><B>". $cust_svc->{label}[1]. '</B></TD>'.
  37               "$td><FONT SIZE=-1>";
  38
  39     #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
  40     #  $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
  41     #          'change&nbsp;pw) ';
  42     #}
  43
  44     unless ( $cust_svc->{'svcnum'} == $svcnum ) {
  45       $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?')">!.
  46               'delete</A>)';
  47
  48     }
  49     $OUT .= '</FONT></TD></TR>';
  50     $col = $col eq $col1 ? $col2 : $col1;
  51   }
  52
  53   $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
  54     if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
  55
  56   my $col = $col1;
  57
  58   foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
  59
  60     my $td = qq!<TD BGCOLOR="#$col"!;
  61
  62     $OUT .= "<TR>$td COLSPAN=3>".
  63             qq!<A HREF="${url}provision_svc;pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}">!.
  64             'Setup '. $part_svc->{'svc'}. '</A> '.
  65             '('. $part_svc->{'num_avail'}. ' available)'.
  66             '</TD></TR>';
  67     $col = $col eq $col1 ? $col2 : $col1;
  68   }
  69
  70   $OUT .= '</TABLE><BR>';
  71
  72 } %>
  73
  74 </TD></TR></TABLE>
  75 <HR>
  76 <FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>
  77 </BODY></HTML>