1 <% include("/elements/header.html",'Generate prepaid cards'. ($agent ? ' for '. $agent->agent : '') ) %>
3 <% include('/elements/error.html') %>
5 <FORM ACTION="<%popurl(1)%>process/prepay_credit.cgi" METHOD="POST" NAME="OneTrueForm" onSubmit="document.OneTrueForm.submit.disabled=true">
8 <INPUT TYPE="text" NAME="num" VALUE="<% $cgi->param('num') || '(quantity)' |h %>" SIZE=10 MAXLENGTH=10 onFocus="if ( this.value == '(quantity)' ) { this.value = ''; }">
12 <INPUT TYPE="text" NAME="length" SIZE=3 MAXLENGTH=2 VALUE=8>
14 % foreach (qw(alpha alphanumeric numeric)) {
15 <OPTION<% $cgi->param('type') eq $_ ? ' SELECTED' : '' %>><% $_ %>
23 <& /elements/select-agent.html,
24 'empty_label' => '(any agent)',
29 $<INPUT TYPE="text" NAME="amount" SIZE=8 MAXLENGTH=7 VALUE="<% $cgi->param('amount') |h %>">
32 <INPUT TYPE="text" NAME="seconds" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('seconds') |h %>">
33 <SELECT NAME="multiplier">
34 % foreach my $multiplier ( keys %multiplier ) {
36 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('multiplier') eq $multiplier ? ' SELECTED' : '' %>><% $multiplier{$multiplier} %>
43 <INPUT TYPE="text" NAME="upbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('upbytes') |h %>">
44 <SELECT NAME="upmultiplier">
45 % foreach my $multiplier ( keys %bytemultiplier ) {
47 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('upmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
54 <INPUT TYPE="text" NAME="downbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('downbytes') |h %>">
55 <SELECT NAME="downmultiplier">
56 % foreach my $multiplier ( keys %bytemultiplier ) {
58 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('downmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
65 <INPUT TYPE="text" NAME="totalbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('totalbytes') |h %>">
66 <SELECT NAME="totalmultiplier">
67 % foreach my $multiplier ( keys %bytemultiplier ) {
69 <OPTION VALUE="<% $multiplier %>"<% $cgi->param('totalmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
72 </SELECT> total transfer
76 <INPUT TYPE="submit" NAME="submit" VALUE="Generate" onSubmit="this.disabled = true">
80 <% include('/elements/footer.html') %>
85 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
89 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
90 $agent = qsearchs('agent', { 'agentnum' => $agentnum=$1 } );
93 tie my %multiplier, 'Tie::IxHash',
99 tie my %bytemultiplier, 'Tie::IxHash',
103 1073741824 => 'Gbytes',
106 $cgi->param('multiplier', '60') unless $cgi->param('multiplier');
107 $cgi->param('upmultiplier', '1048576') unless $cgi->param('upmultiplier');
108 $cgi->param('downmultiplier', '1048576') unless $cgi->param('downmultiplier');
109 $cgi->param('totalmultiplier','1048576') unless $cgi->param('totalmultiplier');