% }elsif ($format eq "ach-spiritone"){
%
% my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
-% my $payname=$cust_pay_batch->payname; $payname =~ tr/",/ /; #payinfo too?
+% 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"!;
</%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,