httemplate/edit/cust_credit-pkgnum.html

   1 <& /elements/header-popup.html, mt('Change credit package') &>
   2
   3 <& /elements/error.html &>
   4
   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 %>">
   7
   8 <% ntable("#cccccc", 2) %>
   9
  10   <TR>
  11     <TD ALIGN="right"><% mt('Date') |h %></TD>
  12     <TD BGCOLOR="#eeeeee"><% time2str($date_format, $cust_credit->_date) |h %></TD>
  13   </TR>
  14
  15   <TR>
  16     <TD ALIGN="right"><% mt('Amount') |h %></TD>
  17     <TD BGCOLOR="#eeeeee">
  18       <% $money_char. $cust_credit->amount %>
  19     </TD>
  20   </TR>
  21
  22 % if ( $cust_credit->addlinfo ) {
  23     <TR>
  24       <TD ALIGN="right"><% mt('Additional info') |h %></TD>
  25       <TD BGCOLOR="#eeeeee">
  26         <% $cust_credit->addlinfo |h %>
  27       </TD>
  28     </TR>
  29 % }
  30
  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,
  35                  'cgi'     => $cgi
  36     &>
  37 % } else {
  38   <INPUT TYPE="hidden" NAME="pkgnum" VALUE="">
  39 % }
  40
  41 </TABLE>
  42
  43 <BR>
  44
  45 <CENTER><INPUT TYPE="submit" ID="confirm_credit_button" VALUE="<% mt('Change credit package') |h %>"></CENTER>
  46
  47 </FORM>
  48 </BODY>
  49 </HTML>
  50 <%init>
  51
  52 my $conf = new FS::Conf;
  53
  54 my $money_char  = $conf->config('money_char')  || '$';
  55 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
  56
  57 die "access denied"
  58   unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL?
  59
  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,
  66 })
  67   or die 'unknown credit';
  68
  69 </%init>