<% include( 'elements/search.html', 'title' => 'Unused Prepaid Cards'. ($agent ? ' for '. $agent->agent : ''), 'menubar' => [ 'Generate cards' => $p.'edit/prepay_credit.cgi', ], 'name' => 'prepaid cards', 'query' => { 'table' => 'prepay_credit', 'hashref' => $hashref, }, 'count_query' => $count_query, #'redirect' => $link, 'header' => [ '#', qw(Amount Time Upload Download Total Agent) ], 'fields' => [ 'identifier', sub { sprintf('$%.2f', shift->amount ) }, sub { my $c = shift; $c->seconds ? duration_exact($c->seconds) : '' }, sub { my $c = shift; $c->upbytes ? FS::UI::bytecount::bytecount_unexact($c->upbytes) : '' }, sub { my $c = shift; $c->downbytes ? FS::UI::bytecount::bytecount_unexact($c->downbytes) : '' }, sub { my $c = shift; $c->totalbytes ? FS::UI::bytecount::bytecount_unexact($c->totalbytes) : '' }, sub { my $agent = shift->agent; $agent ? $agent->agent : ''; }, ], 'links' => [ '', '', '', '', '', '', sub { my $agent = shift->agent; $agent ? [ "${p}edit/agent.cgi?", 'agentnum' ] : ''; }, ], ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $agent = ''; my $hashref = {}; if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { $hashref->{agentnum} = $1; $agent = qsearchs('agent', { 'agentnum' => $1 } ); } my $count_query = 'SELECT COUNT(*) FROM prepay_credit'; $count_query .= ' WHERE agentnum = '. $agent->agentnum if $agent;