4 %if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
5 % $agent = qsearchs('agent', { 'agentnum' => $agentnum=$1 } );
8 %tie my %multiplier, 'Tie::IxHash',
14 %tie my %bytemultiplier, 'Tie::IxHash',
17 % 1000000 => 'Mbytes',
18 % 1000000000 => 'Gbytes',
21 %$cgi->param('multiplier', '60') unless $cgi->param('multiplier');
22 %$cgi->param('upmultiplier', '1000000') unless $cgi->param('upmultiplier');
23 %$cgi->param('downmultiplier', '1000000') unless $cgi->param('downmultiplier');
24 %$cgi->param('totalmultiplier','1000000') unless $cgi->param('totalmultiplier');
29 <% include("/elements/header.html",'Generate prepaid cards'. ($agent ? ' for '. $agent->agent : ''),
30 menubar( 'Main Menu' => $p, ))
32 % if ( $cgi->param('error') ) {
34 <FONT SIZE="+1" COLOR="#FF0000">Error: <% $cgi->param('error') %></FONT>
38 <FORM ACTION="<%popurl(1)%>process/prepay_credit.cgi" METHOD="POST" NAME="OneTrueForm" onSubmit="document.OneTrueForm.submit.disabled=true">
41 <INPUT TYPE="text" NAME="num" VALUE="<% $cgi->param('num') || '(quantity)' %>" SIZE=10 MAXLENGTH=10 onFocus="if ( this.value == '(quantity)' ) { this.value = ''; }">
43 % foreach (qw(alpha alphanumeric numeric)) {
45 <OPTION<% $cgi->param('type') eq $_ ? ' SELECTED' : '' %>><% $_ %>
51 <BR>for <SELECT NAME="agentnum"><OPTION>(any agent)
52 % foreach my $opt_agent ( qsearch('agent', { 'disabled' => '' } ) ) {
54 <OPTION VALUE="<% $opt_agent->agentnum %>"<% $opt_agent->agentnum == $agentnum ? ' SELECTED' : '' %>><% $opt_agent->agent %>
61 $<INPUT TYPE="text" NAME="amount" SIZE=8 MAXLENGTH=7 VALUE="<% $cgi->param('amount') %>">
64 <INPUT TYPE="text" NAME="seconds" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('seconds') %>">
65 <SELECT NAME="multiplier">
66 % foreach my $multiplier ( keys %multiplier ) {
68 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('multiplier') eq $multiplier ? ' SELECTED' : '' %>><% $multiplier{$multiplier} %>
75 <INPUT TYPE="text" NAME="upbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('upbytes') %>">
76 <SELECT NAME="upmultiplier">
77 % foreach my $multiplier ( keys %bytemultiplier ) {
79 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('upmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
86 <INPUT TYPE="text" NAME="downbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('downbytes') %>">
87 <SELECT NAME="downmultiplier">
88 % foreach my $multiplier ( keys %bytemultiplier ) {
90 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('downmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
97 <INPUT TYPE="text" NAME="totalbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('totalbytes') %>">
98 <SELECT NAME="totalmultiplier">
99 % foreach my $multiplier ( keys %bytemultiplier ) {
101 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('totalmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
104 </SELECT> total transfer
108 <INPUT TYPE="submit" NAME="submit" VALUE="Generate" onSubmit="this.disabled = true">
110 </FORM></BODY></HTML>