httemplate/search/prepay_credit.html

   1 %
   2 %my $agent = '';
   3 %my $hashref = {};
   4 %if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
   5 %  $hashref->{agentnum} = $1;
   6 %  $agent = qsearchs('agent', { 'agentnum' => $1 } );
   7 %}
   8 %
   9 %my $count_query = 'SELECT COUNT(*) FROM prepay_credit';
  10 %$count_query .= ' WHERE agentnum = '. $agent->agentnum if $agent;
  11 %
  12 %
  13 <% include( 'elements/search.html',
  14                  'title'       => 'Unused Prepaid Cards'.
  15                                   ($agent ? ' for '. $agent->agent : ''),
  16                  'menubar'     => [
  17                    'Main menu'      => $p,
  18                    'Generate cards' => $p.'edit/prepay_credit.cgi',
  19                  ],
  20                  'name'        => 'prepaid cards',
  21                  'query'       => {  'table'   => 'prepay_credit',
  22                                      'hashref' => $hashref,
  23                                   },
  24                  'count_query' => $count_query,
  25                  #'redirect'    => $link,
  26                  'header'      => [ '#', qw(Amount Time Agent) ],
  27                  'fields'      => [
  28                    'identifier',
  29                    sub { sprintf('$%.2f', shift->amount ) },
  30                    sub { my $c = shift; $c ? duration_exact($c->seconds) : '' },
  31                    sub { my $agent = shift->agent;
  32                          $agent ? $agent->agent : '';
  33                        },
  34                  ],
  35                  'links' => [
  36                    '',
  37                    '',
  38                    '',
  39                    sub { my $agent = shift->agent;
  40                          $agent ? [ "${p}view/agent.cgi?", 'agentnum' ] : '';
  41                        },
  42                  ],
  43       )
  44 %>