httemplate/edit/prepay_credit.cgi

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