diff options
author | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
commit | eb061f5119325e666f0dff40d4089e5c1df58e17 (patch) | |
tree | d55e8fef5aca62eb13bbc8ad20dbdf941c3bd266 /httemplate/search/prepay_credit.html | |
parent | 3a17b276638200475d54201fa62566b7440e819a (diff) |
This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6
Diffstat (limited to 'httemplate/search/prepay_credit.html')
-rw-r--r-- | httemplate/search/prepay_credit.html | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/httemplate/search/prepay_credit.html b/httemplate/search/prepay_credit.html deleted file mode 100644 index 96391fc..0000000 --- a/httemplate/search/prepay_credit.html +++ /dev/null @@ -1,67 +0,0 @@ -<% 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}view/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; - -</%init> |