fs_selfservice/FS-SelfService/cgi/list_customers.html

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