fs_selfservice/FS-SelfService/cgi/invoices.html

   1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   2 <%= include('header', 'All Invoices') %>
   3
   4 <%=
   5   if ( @invoices ) {
   6     $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
   7             '<TR><TH BGCOLOR="#ff6666" COLSPAN=4>All Invoices</TH></TR>';
   8     my $col1 = "ffffff";
   9     my $col2 = "dddddd";
  10     my $col = $col1;
  11
  12     foreach my $invoice ( @invoices ) {
  13       my $td = qq!<TD BGCOLOR="#$col">!;
  14       my $a=qq!<A HREF="${url}view_invoice;invnum=!. $invoice->{'invnum'}. '">';
  15       $OUT .=
  16         "<TR>$td${a}Invoice #". $invoice->{'invnum'}. "</A></TD>$td</TD>".
  17         "$td$a". $invoice->{'date'}. "</A></TD>$td</TD>".
  18         '</TR>';
  19       $col = $col eq $col1 ? $col2 : $col1;
  20     }
  21     $OUT .= '</TABLE><BR>';
  22   } else {
  23     $OUT .= 'You have no invoices.<BR><BR>';
  24   }
  25 %>
  26
  27 <%= include('footer') %>