1 <%= $url = "$selfurl?action="; ''; %>
2 <%= include('header', 'All Invoices') %>
6 my $th = q!<TH STYLE="background: #ff9999; text-align: left; padding: .1em .5em;">!;
7 my $thr = q!<TH STYLE="background: #ff9999; text-align: right; padding: .1em .5em;">!;
8 $OUT .= '<TABLE STYLE="border: 0;" CELLSPACING="0">'.
9 '<TR>'.$th.'Invoice #</TH>'.$th.'Date</TH>'.$thr.'Charges</TH>'
10 .$th.'Date Paid</TH>'.$thr.'Owed</TH></TR>';
15 foreach my $invoice ( @invoices ) {
16 my $td = qq!<TD STYLE="background: $col; padding: .1em .5em;">!;
17 my $tdr = qq!<TD STYLE="background: $col; padding: .1em .5em; text-align: right;">!;
18 my $a=qq!<A HREF="${url}view_invoice;invnum=!. $invoice->{'invnum'}. '">';
21 $td . $a . $invoice->{'invnum'}. "</A></TD>" .
22 $td . $a . $invoice->{'date'} . "</A></TD>" .
23 $tdr . $a . $money_char . $invoice->{'charged'} . "</A></TD>" .
24 $td . $a . $invoice->{'lastpay'} . "</A></TD>" .
25 $tdr . $a . $money_char . $invoice->{'owed'} . "</A></TD>" .
27 $col = $col eq $col1 ? $col2 : $col1;
29 my $tht = '<TH COLSPAN="4" STYLE="background: #ff9999; padding: .1em .5em; text-align: right;">';
30 $OUT .= '<TR>'.$tht.'BALANCE DUE</TH>'.$tht.$money_char.$balance.'</TH></TR>';
31 $OUT .= '</TABLE><BR>';
33 $OUT .= '<P>You have no invoices.</P>';
37 <%= include('footer') %>