1 files changed, 0 insertions, 97 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/provision_list.html b/fs_selfservice/FS-SelfService/cgi/provision_list.html
deleted file mode 100644
index a1a519490..000000000
--- a/fs_selfservice/FS-SelfService/cgi/provision_list.html
+++ /dev/null
@@ -1,97 +0,0 @@
-<FONT SIZE=4>Setup services</FONT><BR><BR>
-
-<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">
-
-<%=
-
-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 .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
-          '<TR><TH BGCOLOR='.$bgcolor.' COLSPAN=2>'.
-          $pkg->{'pkg'}. ($susp && ' (suspended)').
-          '</TH><TH ALIGN="left" BGCOLOR='.$bgcolor.'>';
-  foreach my $action (@pkg_actions) {
-    $OUT .= '(<A style="font-size: smaller;color: #000000" HREF="' .
-            $url . $action->[0] . ';pkgnum=' . $pkg->{'pkgnum'} . ';pkg=' .
-            $pkg->{'pkg'} . '">' . $action->[1] . '</A>) ';
-  }
-  $OUT .= '</TH></TR>';
-
-  my $col1 = "ffffff";
-  my $col2 = "dddddd";
-  my $col = $col1;
-
-  foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
-    my $td = qq!<TD BGCOLOR="#$col"!;
-
-    $OUT .= '<TR>'.
-              "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
-              "$td><B>". $cust_svc->{label}[1]. '</B>';
-    $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
-      if exists($cust_svc->{_password});
-    $OUT .= '</TD>'.
-              "$td><FONT SIZE=-1>";
-              
-    #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
-    #  $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
-    #          'change&nbsp;pw) ';
-    #}
-
-    unless ( $cust_svc->{'svcnum'} == $svcnum ) {
-      $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?')">!.
-              'delete</A>)';
-
-    }
-    $OUT .= '</FONT></TD></TR>';
-    $col = $col eq $col1 ? $col2 : $col1;
-  }
-
-  $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
-    if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
-
-  $col = $col1;
-
-  foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
-
-    my $td = qq!<TD BGCOLOR="#$col"!;
-
-    my $link;
-
-    if ( $part_svc->{'svcdb'} eq 'svc_external'
-         #&& $conf->exists('svc_external-skip_manual')
-    ) {
-      $link = "${url}process_svc_external;".
-              "pkgnum=$pkg->{'pkgnum'};".
-              "svcpart=$part_svc->{'svcpart'}";
-    } else {
-      $link = "${url}provision_svc;".
-              "pkgnum=$pkg->{'pkgnum'};".
-              "svcpart=$part_svc->{'svcpart'}";
-    }
-
-    $OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
-            qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. '</A> '.
-            '('. $part_svc->{'num_avail'}. ' available)'.
-            '</TD></TR>'
-      #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;
-  }
-
-  #$OUT .= '</TABLE><BR>';
-  $OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3>&nbsp;</TD></TR>';
-
-} %>
-
-</TABLE>