X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fpayment.cgi;h=f99f2f068b979eaea3ba2ae5fbb38dcc9df2c6c6;hb=c648976f0b7975f2328ebd7ba8c711fad0ca4195;hp=1008a216b17a32921b3f5cab801407f59600be06;hpb=45583b397d64be8c31cba0334ad89e41f4ac1d0e;p=freeside.git

diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index 1008a216b..f99f2f068 100644
--- a/httemplate/misc/payment.cgi
+++ b/httemplate/misc/payment.cgi
@@ -1,41 +1,10 @@
-%
-%   my %type = ( 'CARD' => 'credit card',
-%                'CHEK' => 'electronic check (ACH)',
-%              );
-%
-%   $cgi->param('payby') =~ /^(CARD|CHEK)$/
-%     or die "unknown payby ". $cgi->param('payby');
-%   my $payby = $1;
-%
-%   $cgi->param('custnum') =~ /^(\d+)$/
-%     or die "illegal custnum ". $cgi->param('custnum');
-%   my $custnum = $1;
-%
-%   my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
-%   die "unknown custnum $custnum" unless $cust_main;
-%
-%   my $balance = $cust_main->balance;
-%
-%   my $payinfo = '';
-%
-%   #false laziness w/selfservice make_payment.html shortcut for one-country
-%   my $conf = new FS::Conf;
-%   my %states = map { $_->state => 1 }
-%                  qsearch('cust_main_county', {
-%                    'country' => $conf->config('countrydefault') || 'US'
-%                  } );
-%   my @states = sort { $a cmp $b } keys %states;
-%
-%   my $paybatch = "webui-payment-". time. "-$$-". rand() * 2**32;
-%
-%
-
 <% include( '/elements/header.html', "Process $type{$payby} payment" ) %>
 <% include( '/elements/small_custview.html', $cust_main, '', '', popurl(2) . "view/cust_main.cgi" ) %>
 <FORM NAME="OneTrueForm" ACTION="process/payment.cgi" METHOD="POST" onSubmit="document.OneTrueForm.process.disabled=true">
-<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
-<INPUT TYPE="hidden" NAME="payby" VALUE="<% $payby %>">
-<INPUT TYPE="hidden" NAME="paybatch" VALUE="<% $paybatch %>">
+<INPUT TYPE="hidden" NAME="custnum"   VALUE="<% $custnum %>">
+<INPUT TYPE="hidden" NAME="payby"     VALUE="<% $payby %>">
+<INPUT TYPE="hidden" NAME="payunique" VALUE="<% $payunique %>">
+<INPUT TYPE="hidden" NAME="balance"   VALUE="<% $balance %>">
 
 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
 <SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
@@ -225,6 +194,16 @@ function OLiframeContent(src, width, height, name) {
     Remember this information
   </TD>
 </TR><TR>
+% if ($conf->exists("batch-enable")) {
+  <TD COLSPAN=2>
+    <INPUT TYPE="checkbox" <% ( $conf->exists("paymentforcedtobatch") && $payby eq 'CHEK' ) ? 'CHECKED DISABLED' : '' %> NAME="batch" VALUE="1">
+    Add to current batch
+% if ($conf->exists("paymentforcedtobatch") && $payby eq 'CHEK' ) {
+    <INPUT TYPE="hidden" NAME="batch" VALUE="1">
+% }
+  </TD>
+</TR><TR>
+% }
   <TD COLSPAN=2>
     <INPUT TYPE="checkbox"<% ( ( $payby eq 'CARD' && $cust_main->payby ne 'DCRD' ) || ( $payby eq 'CHEK' && $cust_main->payby eq 'CHEK' ) ) ? ' CHECKED' : '' %> NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }">
     Charge future payments to this <% $type{$payby} %> automatically
@@ -236,3 +215,40 @@ function OLiframeContent(src, width, height, name) {
 </FORM>
 
 <% include('/elements/footer.html') %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Process payment');
+
+my %type = ( 'CARD' => 'credit card',
+             'CHEK' => 'electronic check (ACH)',
+           );
+
+$cgi->param('payby') =~ /^(CARD|CHEK)$/
+  or die "unknown payby ". $cgi->param('payby');
+my $payby = $1;
+
+$cgi->param('custnum') =~ /^(\d+)$/
+  or die "illegal custnum ". $cgi->param('custnum');
+my $custnum = $1;
+
+my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
+die "unknown custnum $custnum" unless $cust_main;
+
+my $balance = $cust_main->balance;
+
+my $payinfo = '';
+
+#false laziness w/selfservice make_payment.html shortcut for one-country
+my $conf = new FS::Conf;
+my %states = map { $_->state => 1 }
+               qsearch('cust_main_county', {
+                 'country' => $conf->config('countrydefault') || 'US'
+               } );
+my @states = sort { $a cmp $b } keys %states;
+
+my $payunique = "webui-payment-". time. "-$$-". rand() * 2**32;
+
+</%init>
+
+