<% include('/elements/header-popup.html', 'Recharge Service' ) %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

<% "Recharge $svcnum: $label - $value" %> <% ntable("#cccccc", 2) %> <% $recharge_label ? '' : 'disabled' %>> Prepaid Card % if ($recharge_label) { > <% $recharge_label %> % } Enter prepaid card: >

<%once> my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; <%init> my($svcnum, $cust_svc, $part_pkg, $label, $value, $prepaid, $amount, $payby); if ( $cgi->param('error') ) { $svcnum = $cgi->param('svcnum'); $prepaid = $cgi->param('prepaid'); $payby = $cgi->param('payby'); } elsif ( $cgi->param('svcnum') =~ /^(\d+)$/ ) { $svcnum = $1; } else { die "illegal query ". $cgi->keywords; } my $title = 'Recharge Service'; $cust_svc = qsearchs('cust_svc', {'svcnum' => $svcnum}); die "No such service: $svcnum" unless $cust_svc; ($label, $value) = $cust_svc->label; $payby = $cust_svc->cust_pkg->cust_main->payby unless $payby; $part_pkg = $cust_svc->cust_pkg->part_pkg; $amount = $part_pkg->option('recharge_amount', 1) || 0; my $recharge_label = "Charge $money_char$amount for "; $recharge_label .= $part_pkg->option('recharge_seconds', 1) . 's ' if $part_pkg->option('recharge_seconds', 1); $recharge_label .= $part_pkg->option('recharge_upbytes', 1) . ' up ' if $part_pkg->option('recharge_upbytes', 1); $recharge_label .= $part_pkg->option('recharge_downbytes', 1) . ' down ' if $part_pkg->option('recharge_downbytes', 1); $recharge_label .= $part_pkg->option('recharge_totalbytes', 1) . ' total ' if $part_pkg->option('recharge_totalbytes', 1); $recharge_label = '' unless ($recharge_label ne "Charge $money_char$amount for ");