diff options
author | levinse <levinse> | 2010-12-14 23:27:19 +0000 |
---|---|---|
committer | levinse <levinse> | 2010-12-14 23:27:19 +0000 |
commit | 123bc067cc9fd8b247fb0b4e9a86066f32e83991 (patch) | |
tree | 16f97edf53ad765f2bfb767564b736acf337553e /fs_selfservice/FS-SelfService/cgi/invoices.html | |
parent | 88be1de5a77b567c1f610bc510ca386738538488 (diff) |
self-service improvements, RT10883
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/invoices.html')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/invoices.html | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/invoices.html b/fs_selfservice/FS-SelfService/cgi/invoices.html new file mode 100644 index 0000000..c4eece3 --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/invoices.html @@ -0,0 +1,27 @@ +<%= $url = "$selfurl?session=$session_id;action="; ''; %> +<%= include('header', 'All Invoices') %> + +<%= + if ( @invoices ) { + $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'. + '<TR><TH BGCOLOR="#ff6666" COLSPAN=4>All Invoices</TH></TR>'; + my $col1 = "ffffff"; + my $col2 = "dddddd"; + my $col = $col1; + + foreach my $invoice ( @invoices ) { + my $td = qq!<TD BGCOLOR="#$col">!; + my $a=qq!<A HREF="${url}view_invoice;invnum=!. $invoice->{'invnum'}. '">'; + $OUT .= + "<TR>$td${a}Invoice #". $invoice->{'invnum'}. "</A></TD>$td</TD>". + "$td$a". $invoice->{'date'}. "</A></TD>$td</TD>". + '</TR>'; + $col = $col eq $col1 ? $col2 : $col1; + } + $OUT .= '</TABLE><BR>'; + } else { + $OUT .= 'You have no invoices.<BR><BR>'; + } +%> + +<%= include('footer') %> |