1 <& /elements/header-popup.html, mt('Change credit package') &>
3 <& /elements/error.html &>
5 <FORM NAME="credit_popup" ACTION="<% popurl(1) %>process/cust_credit-pkgnum.html" METHOD=POST>
6 <INPUT TYPE="hidden" NAME="crednum" VALUE="<% $cust_credit->crednum %>">
8 <% ntable("#cccccc", 2) %>
11 <TD ALIGN="right"><% mt('Date') |h %></TD>
12 <TD BGCOLOR="#eeeeee"><% time2str($date_format, $cust_credit->_date) |h %></TD>
16 <TD ALIGN="right"><% mt('Amount') |h %></TD>
17 <TD BGCOLOR="#eeeeee">
18 <% $money_char. $cust_credit->amount %>
22 % if ( $cust_credit->addlinfo ) {
24 <TD ALIGN="right"><% mt('Additional info') |h %></TD>
25 <TD BGCOLOR="#eeeeee">
26 <% $cust_credit->addlinfo |h %>
31 % if ( $conf->exists('pkg-balances') ) {
32 % $cgi->param('pkgnum', $cust_credit->pkgnum);
33 <& /elements/tr-select-cust_pkg-balances.html,
34 'custnum' => $cust_credit->custnum,
38 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="">
45 <CENTER><INPUT TYPE="submit" ID="confirm_credit_button" VALUE="<% mt('Change credit package') |h %>"></CENTER>
52 my $conf = new FS::Conf;
54 my $money_char = $conf->config('money_char') || '$';
55 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
58 unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL?
60 my $cust_credit = qsearchs({
61 'select' => 'cust_credit.*',
62 'table' => 'cust_credit',
63 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
64 'hashref' => { crednum => scalar($cgi->param('crednum')), },
65 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
67 or die 'unknown credit';