<%= $url = "$selfurl?action="; ''; %> <%= include('header', 'My Account') %> Hello <%= $name %>!

<%= include('small_custview') %>
<%= $OUT .= qq! View All Invoices     !; %> <%= if ( $balance > 0 ) { if (scalar(grep $_, @hide_payment_fields)) { # this sucks $OUT .= qq! Make a payment

!; } else { $OUT .= qq! Make a payment
!; foreach my $term ( sort { $b <=> $a } keys %discount_terms_hash ) { my $saved = $discount_terms_hash{$term}->[1]; my $amount = $discount_terms_hash{$term}->[2]; my $savings = ( $amount + $saved > 0 ) ? sprintf('%d', $saved / ( $amount + $saved ) * 100 ) : '0'; $OUT .= qq! Save $savings\% by paying for $term months: $amount
!; } $OUT .= qq!
!; } } %> <%= if ( @open_invoices ) { my $th = q!!; my $thr = q!!; $OUT .= ''. ''. ''.$th.'Invoice #'.$th.'Date'.$thr.'Charges' .$thr.'Owed'; my $col1 = "#ffffff"; my $col2 = "#dddddd"; my $col = $col1; foreach my $invoice ( @open_invoices ) { my $td = qq!". $td . $a . $invoice->{'invnum'}. "" . $td . $a . $invoice->{'date'} . "" . $tdr . $a . $money_char . $invoice->{'charged'} . "" . $tdr . $a . $money_char . $invoice->{'owed'} . "" . ''; $col = $col eq $col1 ? $col2 : $col1; } $OUT .= '
Open Invoices
!; my $tdr = qq!!; my $a=qq!'; $OUT .= "

'; } else { $OUT .= '

You have no outstanding invoices.

'; } %> <%= $announcement || '' %> <%= if ( @support_services ) { $OUT .= ''. ''. ''. ''; my $col1 = $stripe1_bgcolor || '#ffffff'; my $col2 = $stripe2_bgcolor || '#dddddd'; my $col = $col1; foreach my $support ( @support_services ) { my $td = qq!". $td.$a. $support->{'pkg'}. "". $td.' '. $td.$a. $support->{'time'}. "". ''; $col = $col eq $col1 ? $col2 : $col1; } $OUT .= '
Support Time Remaining
PackageTime Remaining
!; my $a = qq!'; $OUT .= "

'; } else { $OUT .= ''; } %> <%= if (@tickets) { $OUT .= include('ticket_summary'); } else { $OUT .= ''; } %> <%= include('footer') %>