diff options
author | ivan <ivan> | 2002-07-16 12:28:02 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-07-16 12:28:02 +0000 |
commit | 6ff02eb18af2dd61ce2dca064414ca183fa02e6e (patch) | |
tree | d1ef22718ad3cc2cd34116e9f56655441ed47592 /fs_selfservice/FS-SelfService/cgi/myaccount.html | |
parent | 2db0b73231b1cc8b9203d8c482ea9da2973f2768 (diff) |
invoice viewing...
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/myaccount.html')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/myaccount.html | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/myaccount.html b/fs_selfservice/FS-SelfService/cgi/myaccount.html new file mode 100644 index 000000000..f8a916eea --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/myaccount.html @@ -0,0 +1,47 @@ +<HTML><HEAD><TITLE>MyAccount</TITLE></HEAD> +<BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR> +<%= $url = "$selfurl?session=$session_id;action="; ''; %> +<TABLE BORDER=0 CELLPADDING=4><TR><TD VALIGN="top" HEIGHT=384 BGCOLOR="#dddddd"> +<A HREF="<%= $url %>myaccount">MyAccount</A><BR> +<A HREF="<%= $url %>other">SomethingElse</A><BR> +</TD><TD VALIGN="top"> + +Hello <%= $name %>!<BR><BR> +Your customer number is <%= $custnum %><BR><BR> +Your contact information<BR><%= $small_custview %> +Your outstanding balance is $<%= $balance %><BR><BR> +<!--<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999"> +<TR><TH>Invoice</TH><TH>Date</TH><TH>Owed</TH></TR>--> +<%= + if ( @open_invoices ) { + $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'. + '<TR><TH BGCOLOR="#ff3333" COLSPAN=5>Open Invoices</TH><TD>'; + my $link = qq!<A HREF="<%= $selfurl %>?session=<%= $session_id %>;action=myaccount!; + my $col1 = "ffffff"; + my $col2 = "dddddd"; + my $col = $col1; + + foreach my $invoice ( @open_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>". + qq!<TD BGCOLOR="#$col" ALIGN="right">$a\$!. $invoice->{'owed'}. + '</A></TD>'. + '</TR>'; + $col = $col eq $col1 ? $col2 : $col1; + } + $OUT .= '</TABLE>'; + } else { + $OUT .= 'You have no outstanding invoices.<BR><BR>'; + } +%> + +</TD></TR></TABLE> +<HR> +<FONT SIZE="-2">small text</FONT> +</BODY></HTML> + + + |