httemplate/misc/payment.cgi

   1 <& /elements/header-cust_main.html, view=>'payment_history', cust_main=>$cust_main &>
   2
   3 <h2><% emt("Process [_1] payment",$type{$payby}) %></h2>
   4
   5 <FORM NAME="OneTrueForm" ACTION="process/payment.cgi" METHOD="POST" onSubmit="document.OneTrueForm.process.disabled=true">
   6 <INPUT TYPE="hidden" NAME="custnum"   VALUE="<% $custnum %>">
   7 <INPUT TYPE="hidden" NAME="payby"     VALUE="<% $payby %>">
   8 <INPUT TYPE="hidden" NAME="payunique" VALUE="<% $payunique %>">
   9 <INPUT TYPE="hidden" NAME="balance"   VALUE="<% $balance %>">
  10
  11 <& /elements/init_overlib.html &>
  12
  13 <TABLE class="fsinnerbox">
  14
  15   <& /elements/tr-select-payment_options.html,
  16        'custnum'            => $cust_main->custnum,
  17        'amount'             => $balance,
  18        'process-pkgpart'    =>
  19           scalar($conf->config('manual_process-pkgpart', $cust_main->agentnum)),
  20        'process-display'    => scalar($conf->config('manual_process-display')),
  21        'process-skip_first' => $conf->exists('manual_process-skip_first'),
  22        'num_payments'       => scalar($cust_main->cust_pay),
  23        'surcharge_percentage' =>
  24          ( $payby eq 'CARD'
  25              ? scalar($conf->config('credit-card-surcharge-percentage', $cust_main->agentnum))
  26              : 0
  27          ),
  28        'surcharge_flatfee' =>
  29          ( $payby eq 'CARD'
  30              ? scalar($conf->config('credit-card-surcharge-flatfee', $cust_main->agentnum))
  31              : 0
  32          ),
  33   &>
  34
  35 % if ( $conf->exists('part_pkg-term_discounts') ) {
  36     <& /elements/tr-select-discount_term.html,
  37          'custnum'   => $custnum,
  38          'amount_id' => 'amount',
  39     &>
  40 % }
  41
  42 % my $disallow_no_auto_apply = 0;
  43 % if ( $conf->exists("batch-enable")
  44 %      || grep $payby eq $_, $conf->config('batch-enable_payby')
  45 %    ) {
  46 %
  47 %     if ( grep $payby eq $_, $conf->config('realtime-disable_payby') ) {
  48 %       $disallow_no_auto_apply = 1;
  49
  50           <INPUT TYPE="hidden" NAME="batch" VALUE="1">
  51
  52 %     } else {
  53
  54           <TR>
  55             <TH ALIGN="right">&nbsp;&nbsp;&nbsp;<% mt('Add to current batch') |h %></TH>
  56             <TD>
  57               <INPUT TYPE="checkbox" NAME="batch" VALUE="1" ID="batch_checkbox" ONCHANGE="change_batch_checkbox()">
  58             </TD>
  59           </TR>
  60
  61 %     }
  62 % }
  63
  64 % unless ($disallow_no_auto_apply) {
  65 %   # false laziness with edit/cust_pay.cgi
  66
  67 <TR ID="apply_box_row">
  68   <TH ALIGN="right"><% mt('Auto-apply to invoices') |h %></TH>
  69   <TD>
  70     <SELECT NAME="apply" ID="apply_box">
  71       <OPTION VALUE="yes" SELECTED><% mt('yes') |h %></OPTION>
  72       <OPTION VALUE=""><% mt('not now') |h %></OPTION>
  73       <OPTION VALUE="never"><% mt('never') |h %></OPTION>
  74     </SELECT>
  75   </TD>
  76 </TR>
  77
  78 % # this can go away if no_auto_apply handling gets added to batch payment processing
  79 <SCRIPT>
  80 function change_batch_checkbox () {
  81   if (document.getElementById('batch_checkbox').checked) {
  82     document.getElementById('apply_box').disabled = true;
  83     document.getElementById('apply_box_row').style.display = 'none';
  84   } else {
  85     document.getElementById('apply_box').disabled = false;
  86     document.getElementById('apply_box_row').style.display = '';
  87   }
  88 }
  89 </SCRIPT>
  90
  91 % }
  92
  93 <SCRIPT TYPE="text/javascript">
  94   function cust_payby_changed (what) {
  95     var custpaybynum = what.options[what.selectedIndex].value
  96     if ( custpaybynum == '' || custpaybynum == '0' ) {
  97        //what.form.payinfo.disabled = false;
  98        $('#cust_payby').slideDown();
  99     } else {
 100        //what.form.payinfo.value = '';
 101        //what.form.payinfo.disabled = true;
 102        $('#cust_payby').slideUp();
 103     }
 104   }
 105 </SCRIPT>
 106
 107 % #can't quite handle CARD/CHEK on the same page yet, but very close
 108 % #does it make sense from a UI/usability perspective?
 109 %
 110 % my @cust_payby = ();
 111 % if ( $payby eq 'CARD' ) {
 112 %   @cust_payby = $cust_main->cust_payby('CARD','DCRD');
 113 % } elsif ( $payby eq 'CHEK' ) {
 114 %   @cust_payby = $cust_main->cust_payby('CHEK','DCHK');
 115 % } else {
 116 %   die "unknown payby $payby";
 117 % }
 118 %
 119 % my $custpaybynum = length(scalar($cgi->param('custpaybynum')))
 120 %                      ? scalar($cgi->param('custpaybynum'))
 121 %                      : scalar(@cust_payby) && $cust_payby[0]->custpaybynum;
 122
 123 <& /elements/tr-select-cust_payby.html,
 124      'cust_payby' => \@cust_payby,
 125      'curr_value' => $custpaybynum,
 126      'onchange'   => 'cust_payby_changed(this)',
 127 &>
 128
 129 </TABLE>
 130 <BR>
 131 <DIV ID="cust_payby"
 132   <% $custpaybynum ? 'STYLE="display:none"'
 133                    : ''
 134   %>
 135 >
 136 <TABLE class="fsinnerbox">
 137
 138 <& /elements/cust_payby_new.html,
 139      'cust_payby' => \@cust_payby,
 140      'curr_value' => $custpaybynum,
 141 &>
 142
 143 </TABLE>
 144 </DIV>
 145
 146 <BR>
 147 <INPUT TYPE="submit" NAME="process" VALUE="<% mt('Process payment') |h %>">
 148 </FORM>
 149
 150 <& /elements/footer-cust_main.html &>
 151 <%once>
 152
 153 my %weight = (
 154   1 => 'Primary',
 155   2 => 'Secondary',
 156   3 => 'Tertiary',
 157   4 => 'Fourth',
 158   5 => 'Fifth',
 159   6 => 'Sixth',
 160   7 => 'Seventh',
 161 );
 162
 163 </%once>
 164 <%init>
 165
 166 die "access denied"
 167   unless $FS::CurrentUser::CurrentUser->access_right('Process payment');
 168
 169 my %type = ( 'CARD' => 'credit card',
 170              'CHEK' => 'electronic check (ACH)',
 171            );
 172
 173 $cgi->param('payby') =~ /^(CARD|CHEK)$/
 174   or die "unknown payby ". $cgi->param('payby');
 175 my $payby = $1;
 176
 177 $cgi->param('custnum') =~ /^(\d+)$/
 178   or die "illegal custnum ". $cgi->param('custnum');
 179 my $custnum = $1;
 180
 181 my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
 182 die "unknown custnum $custnum" unless $cust_main;
 183
 184 my $balance = $cust_main->balance;
 185
 186 my $payinfo = '';
 187
 188 my $conf = new FS::Conf;
 189
 190 my $payunique = "webui-payment-". time. "-$$-". rand() * 2**32;
 191
 192 </%init>