<% 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', ; $cgi->param('multiplier', '60') unless $cgi->param('multiplier'); %> <%= header('Generate prepaid cards'. ($agent ? ' for '. $agent->agent : ''), menubar( 'Main Menu' => $p, )) %> <% if ( $cgi->param('error') ) { %> Error: <%= $cgi->param('error') %> <% } %>

Generate <% foreach (qw(alpha alphanumeric numeric)) { %> param('type') eq $_ ? ' SELECTED' : '' %>><%= $_ %> <% } %> prepaid cards
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} %> <% } %>