projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update overlibmws to current code
[freeside.git]
/
httemplate
/
misc
/
download-batch.cgi
diff --git
a/httemplate/misc/download-batch.cgi
b/httemplate/misc/download-batch.cgi
index
26c385e
..
57905da
100644
(file)
--- a/
httemplate/misc/download-batch.cgi
+++ b/
httemplate/misc/download-batch.cgi
@@
-98,8
+98,9
@@
% }elsif ($format eq "ach-spiritone"){
%
% my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
% }elsif ($format eq "ach-spiritone"){
%
% my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
-% my $payname=$cust_pay_batch->payname; $payname =~ tr/",/ /; #payinfo too?
-% my $batchline = qq!"$payname","!.$cust_pay_batch->custnum. #dodgy, works for autoapply
+% my $payname=$cust_pay_batch->first. " ". $cust_pay_batch->last;
+% $payname =~ tr/",/ /; #payinfo too?
+% my $batchline = qq!"$payname","!.$cust_pay_batch->paybatchnum.
% qq!","$aba","$account","27","!.$cust_pay_batch->amount.
% qq!","27","0.00"!;
% push @batchlines, $batchline;
% qq!","$aba","$account","27","!.$cust_pay_batch->amount.
% qq!","27","0.00"!;
% push @batchlines, $batchline;
@@
-192,7
+193,7
@@
my @batchlines = ();
</%init>
<%cleanup>
if ($autopost) {
</%init>
<%cleanup>
if ($autopost) {
- my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
+ my $dir = $FS::UID::conf_dir. "
/
cache.". $FS::UID::datasrc;
my $fh = new File::Temp(
TEMPLATE => 'paybatch.'. $batchnum .'.XXXXXXXX',
DIR => $dir,
my $fh = new File::Temp(
TEMPLATE => 'paybatch.'. $batchnum .'.XXXXXXXX',
DIR => $dir,