- my($reformat,$origid,$datacenter,$typecode,$shortname,$longname,$mybank,$myacct) = $conf->config('batchconfig');
- printf "A%10s%04u%06u%05u%54s\n",$origid,$pay_batch->batchnum,$jdate,$datacenter,"";
- printf "XD%03u%06u%-15s%-30s%09u%-12s \n",$typecode,$jdate,$shortname,$longname,$mybank,$myacct;
-}elsif ($format eq "CSV file for TD Canada Trust Merchant PC Batch"){
- 1;
+
+ my($origid,$datacenter,$typecode,$shortname,$longname,$mybank,$myacct) =
+ $conf->config("batchconfig-$format");
+ %><%= sprintf( "A%10s%04u%06u%05u%54s\n",$origid,$pay_batch->batchnum,$jdate,$datacenter,"").
+ sprintf( "XD%03u%06u%-15s%-30s%09u%-12s \n",$typecode,$jdate,$shortname,$longname,$mybank,$myacct )
+ %><%
+
+}elsif ($format eq "csv-td_canada_trust-merchant_pc_batch"){
+# 1;