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

% }

<% "Recharge $svcnum: $label - $value" %> <% ntable("#cccccc", 2) %> Enter prepaid card:

<%init> my($svcnum, $cust_svc, $label, $value, $prepaid); if ( $cgi->param('error') ) { $svcnum = $cgi->param('svcnum'); $prepaid = $cgi->param('prepaid'); } 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;