httemplate/edit/prepay_credit.cgi

   1 %
   2 %my $agent = '';
   3 %my $agentnum = '';
   4 %if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
   5 %  $agent = qsearchs('agent', { 'agentnum' => $agentnum=$1 } );
   6 %}
   7 %
   8 %tie my %multiplier, 'Tie::IxHash',
   9 %  1    => 'seconds',
  10 %  60   => 'minutes',
  11 %  3600 => 'hours',
  12 %;
  13 %
  14 %tie my %bytemultiplier, 'Tie::IxHash',
  15 %  1          => 'bytes',
  16 %  1000       => 'Kbytes',
  17 %  1000000    => 'Mbytes',
  18 %  1000000000 => 'Gbytes',
  19 %;
  20 %
  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');
  25 %
  26 %
  27
  28
  29 <% include("/elements/header.html",'Generate prepaid cards'. ($agent ? ' for '. $agent->agent : ''),
  30            menubar( 'Main Menu' => $p, ))
  31 %>
  32 % if ( $cgi->param('error') ) {
  33
  34   <FONT SIZE="+1" COLOR="#FF0000">Error: <% $cgi->param('error') %></FONT>
  35 % }
  36
  37
  38 <FORM ACTION="<%popurl(1)%>process/prepay_credit.cgi" METHOD="POST" NAME="OneTrueForm" onSubmit="document.OneTrueForm.submit.disabled=true">
  39
  40 Generate
  41 <INPUT TYPE="text" NAME="num" VALUE="<% $cgi->param('num') || '(quantity)' %>" SIZE=10 MAXLENGTH=10 onFocus="if ( this.value == '(quantity)' ) { this.value = ''; }">
  42 <SELECT NAME="type">
  43 % foreach (qw(alpha alphanumeric numeric)) {
  44
  45   <OPTION<% $cgi->param('type') eq $_ ? ' SELECTED' : '' %>><% $_ %>
  46 % }
  47
  48 </SELECT>
  49  prepaid cards
  50
  51 <BR>for <SELECT NAME="agentnum"><OPTION>(any agent)
  52 % foreach my $opt_agent ( qsearch('agent', { 'disabled' => '' } ) ) {
  53
  54   <OPTION VALUE="<% $opt_agent->agentnum %>"<% $opt_agent->agentnum == $agentnum ? ' SELECTED' : '' %>><% $opt_agent->agent %>
  55 % }
  56
  57 </SELECT>
  58
  59 <TABLE>
  60 <TR><TD>Value:
  61 $<INPUT TYPE="text" NAME="amount" SIZE=8 MAXLENGTH=7 VALUE="<% $cgi->param('amount') %>">
  62 </TD>
  63 <TD>and/or
  64 <INPUT TYPE="text" NAME="seconds" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('seconds') %>">
  65 <SELECT NAME="multiplier">
  66 % foreach my $multiplier ( keys %multiplier ) {
  67
  68   <OPTION VALUE="<% $multiplier %>"<% $cgi->param('multiplier') eq $multiplier ? ' SELECTED' : '' %>><% $multiplier{$multiplier} %>
  69 % }
  70
  71 </SELECT>
  72 </TD></TR>
  73 <TR><TD></TD>
  74 <TD>and/or
  75 <INPUT TYPE="text" NAME="upbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('upbytes') %>">
  76 <SELECT NAME="upmultiplier">
  77 % foreach my $multiplier ( keys %bytemultiplier ) {
  78
  79   <OPTION VALUE="<% $multiplier %>"<% $cgi->param('upmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
  80 % }
  81
  82 </SELECT> upload
  83 </TD></TR>
  84 <TR><TD></TD>
  85 <TD>and/or
  86 <INPUT TYPE="text" NAME="downbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('downbytes') %>">
  87 <SELECT NAME="downmultiplier">
  88 % foreach my $multiplier ( keys %bytemultiplier ) {
  89
  90   <OPTION VALUE="<% $multiplier %>"<% $cgi->param('downmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
  91 % }
  92
  93 </SELECT> download
  94 </TD></TR>
  95 <TR><TD></TD>
  96 <TD>and/or
  97 <INPUT TYPE="text" NAME="totalbytes" SIZE=6 MAXLENGTH=5 VALUE="<% $cgi->param('totalbytes') %>">
  98 <SELECT NAME="totalmultiplier">
  99 % foreach my $multiplier ( keys %bytemultiplier ) {
 100
 101   <OPTION VALUE="<% $multiplier %>"<% $cgi->param('totalmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %>
 102 % }
 103
 104 </SELECT> total transfer
 105 </TD></TR>
 106 </TABLE>
 107 <BR><BR>
 108 <INPUT TYPE="submit" NAME="submit" VALUE="Generate" onSubmit="this.disabled = true">
 109
 110 </FORM></BODY></HTML>
 111