quick list of area codes and a kludge to print DA numbers for all of them

[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 );
-%  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;
@@ -192,7 +193,7 @@ my @batchlines = ();
 </%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,