fs_selfservice/FS-SelfService/cgi/list_customers.html

   1 <HTML><HEAD><TITLE>Reseller</TITLE></HEAD>
   2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>Reseller</FONT><BR><BR>
   3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   4 <TABLE BORDER=0 CELLPADDING=4><TR>
   5 <%= include('agent_menu') %>
   6 <TD VALIGN="top">
   7
   8 <%=
   9   if ( @customers ) {
  10     $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
  11             '<TR><TH BGCOLOR="#cccccc" COLSPAN=3>Customers</TH><TD>';
  12     my $col1 = "ffffff";
  13     my $col2 = "dddddd";
  14     my $col = $col1;
  15
  16     foreach my $customer ( @customers ) {
  17       my $td = qq!<TD BGCOLOR="#$col">!;
  18       my $a = qq!<A HREF="${url}view_customer;custnum=!.
  19               $customer->{'custnum'}. '">';
  20       $OUT .=
  21         '<TR>'.
  22         "$td<FONT COLOR=\"". $customer->{'statuscolor'}. '">'.
  23           ucfirst($customer->{'status'}). "</TD>". "$td</TD>".
  24         "$td$a". $customer->{'name'}. "</A></TD>".
  25         '</TR>';
  26         #"$td</TD>".
  27       $col = $col eq $col1 ? $col2 : $col1;
  28     }
  29     $OUT .= '</TABLE>';
  30   } else {
  31     $OUT .= 'No customers.<BR><BR>';
  32   }
  33 %>
  34
  35 </TD></TR></TABLE>
  36 <%= include('footer') %>