<& /elements/header-popup.html, mt('Change credit package') &> <& /elements/error.html &>

<% ntable("#cccccc", 2) %> <% mt('Date') |h %> <% time2str($date_format, $cust_credit->_date) |h %> <% mt('Amount') |h %> <% $money_char. $cust_credit->amount %> % if ( $cust_credit->addlinfo ) { <% mt('Additional info') |h %> <% $cust_credit->addlinfo |h %> % } % if ( $conf->exists('pkg-balances') ) { % $cgi->param('pkgnum', $cust_credit->pkgnum); <& /elements/tr-select-cust_pkg-balances.html, 'custnum' => $cust_credit->custnum, 'cgi' => $cgi &> % } else { % }

<%init> my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL? my $cust_credit = qsearchs({ 'select' => 'cust_credit.*', 'table' => 'cust_credit', 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', 'hashref' => { crednum => scalar($cgi->param('crednum')), }, 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, }) or die 'unknown credit';