<% include("/elements/header.html",'Generate prepaid cards'. ($agent ? ' for '. $agent->agent : '') ) %> <% include('/elements/error.html') %>

Generate prepaid cards of   % foreach (qw(alpha alphanumeric numeric)) { param('type') eq $_ ? ' SELECTED' : '' %>><% $_ %> % } characters each
for (any agent) % foreach my $opt_agent ( qsearch('agent', { 'disabled' => '' } ) ) { agentnum == $agentnum ? ' SELECTED' : '' %>><% $opt_agent->agent %> % }

Value: $	and/or % foreach my $multiplier ( keys %multiplier ) { param('multiplier') eq $multiplier ? ' SELECTED' : '' %>><% $multiplier{$multiplier} %> % }
	and/or % foreach my $multiplier ( keys %bytemultiplier ) { param('upmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %> % } upload
	and/or % foreach my $multiplier ( keys %bytemultiplier ) { param('downmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %> % } download
	and/or % foreach my $multiplier ( keys %bytemultiplier ) { param('totalmultiplier') eq $multiplier ? ' SELECTED' : '' %>><% $bytemultiplier{$multiplier} %> % } total transfer

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $agent = ''; my $agentnum = ''; if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { $agent = qsearchs('agent', { 'agentnum' => $agentnum=$1 } ); } tie my %multiplier, 'Tie::IxHash', 1 => 'seconds', 60 => 'minutes', 3600 => 'hours', ; tie my %bytemultiplier, 'Tie::IxHash', 1 => 'bytes', 1024 => 'Kbytes', 1048576 => 'Mbytes', 1073741824 => 'Gbytes', ; $cgi->param('multiplier', '60') unless $cgi->param('multiplier'); $cgi->param('upmultiplier', '1048576') unless $cgi->param('upmultiplier'); $cgi->param('downmultiplier', '1048576') unless $cgi->param('downmultiplier'); $cgi->param('totalmultiplier','1048576') unless $cgi->param('totalmultiplier');