<%= $url = "$selfurl?session=$session_id;action="; @svc_acct = grep { $_->{svcdb} eq 'svc_acct' } @svcs; @svc_phone = grep { $_->{svcdb} eq 'svc_phone' } @svcs; ''; %> <%= include('header') %> <%= if ( $error ) { $OUT .= qq!$error

!; } ''; %> <%= if ( @svc_acct ) { $OUT.= 'Account usage

'; } else { $OUT .= ''; } %> <%= foreach my $svc ( @svc_acct ) { my $link = "${url}view_usage_details;". "svcnum=$svc->{'svcnum'};beginning=0;ending=0"; $OUT .= ''; if ( $svc->{'recharge_amount'} ) { my $link = "${url}process_order_recharge;". "svcnum=$svc->{'svcnum'}"; $OUT .= ''; } } %> <%= scalar(@svc_acct) ? '

Account	Time remaining	Upload remaining	Download remaining	Total remaining
'; $OUT .= qq!!. $svc->{'label'}. ': '. $svc->{'value'}.''; $OUT .= '	'; $OUT .= $svc->{'seconds'}; $OUT .= '	'; $OUT .= $svc->{'upbytes'}; $OUT .= '	'; $OUT .= $svc->{'downbytes'}; $OUT .= '	'; $OUT .= $svc->{'totalbytes'}; $OUT .= '
'; $OUT .= qq!!.'Recharge for $'; $OUT .= $svc->{'recharge_amount'} . ' with'; $OUT .= '	'; $OUT .= $svc->{'recharge_seconds'} if $svc->{'recharge_seconds'}; $OUT .= '	'; $OUT .= $svc->{'recharge_upbytes'} if $svc->{'recharge_upbytes'}; $OUT .= '	'; $OUT .= $svc->{'recharge_downbytes'} if $svc->{'recharge_downbytes'}; $OUT .= '	'; $OUT .= $svc->{'recharge_totalbytes'} if $svc->{'recharge_totalbytes'}; $OUT .= '

' : '' %> <%= if ( @svc_phone ) { $OUT.= 'Call usage

'; #"Account" ? #what else? $OUT .= ''; } else { $OUT .= ''; } %> <%= foreach my $svc_phone ( @svc_phone ) { my $link = "${url}view_cdr_details;". "svcnum=$svc_phone->{'svcnum'};beginning=0;ending=0"; $OUT .= ''; } %> <%= scalar(@svc_phone) ? '

Number
'; $OUT .= qq!!. $svc_phone->{'label'}. ': '. $svc_phone->{'value'}.''; $OUT .= '

' : '' %> <%= include('footer') %>