X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_pay.cgi;h=9e5f3d3f705bfc27a86e29e500ab467596ed763e;hb=d7759b49c2ff3b220ab328767645bfed85d18f31;hp=8664883c1127dee905ae5da1c3d1b8d4980176c7;hpb=b3f48204012dd722912dcb3703908bd1eaf6df7b;p=freeside.git

diff --git a/httemplate/edit/process/cust_pay.cgi b/httemplate/edit/process/cust_pay.cgi
index 8664883c1..9e5f3d3f7 100755
--- a/httemplate/edit/process/cust_pay.cgi
+++ b/httemplate/edit/process/cust_pay.cgi
@@ -40,7 +40,7 @@ my $field = my $link = $1;
 $field = 'custnum' if $field eq 'popup';
 
 my $_date;
-if ( $FS::CurrentUser::CurrentUser->access_right(['Backdate payment']) ) {
+if ( $FS::CurrentUser::CurrentUser->access_right('Backdate payment') ) {
   $_date = parse_datetime($cgi->param('_date'));
 }
 else {
@@ -50,6 +50,7 @@ else {
 my $new = new FS::cust_pay ( {
   $field => $linknum,
   _date  => $_date,
+  no_auto_apply => ($cgi->param('apply') eq 'never') ? 'Y' : '',
   map {
     $_, scalar($cgi->param($_));
   } qw( paid payby payinfo paybatch
@@ -57,6 +58,8 @@ my $new = new FS::cust_pay ( {
         bank depositor account teller
       )
   #} fields('cust_pay')
+  # gatewaynum, processor, auth, order_number
+  # are for realtime payments only, and can't be entered manually
 } );
 
 my @rights = ('Post payment');
@@ -66,6 +69,6 @@ push @rights, 'Post cash payment'  if $new->payby eq 'CASH';
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right(\@rights);
 
-my $error ||= $new->insert( 'manual' => 1 );
+my $error = $new->insert( 'manual' => 1 );
 
 </%init>