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

<%= $small_custview %>
<%= if ( $access_pkgnum ) { $OUT .= qq!Balance: \$$balance

!; } ''; %> <%= $OUT .= qq! View All Invoices     !; %> <%= if ( $balance > 0 ) { if (scalar(grep $_, @hide_payment_fields)) { $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 ) { $OUT .= ''. ''; my $link = qq!!; my $a=qq!'; $OUT .= "$td${a}Invoice #". $invoice->{'invnum'}. "$td". "$td$a". $invoice->{'date'}. "$td". qq!'. ''; $col = $col eq $col1 ? $col2 : $col1; } $OUT .= '

Open Invoices
$a\$!. $invoice->{'owed'}. '

'; } else { $OUT .= 'You have no outstanding invoices.

'; } %> <%= if ( @support_services ) { $OUT .= ''. ''. ''. ''; my $col1 = "ffffff"; my $col2 = "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
Package		Time Remaining
!; my $a = qq!'; $OUT .= "

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