summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2006-06-16 00:47:39 +0000
committerivan <ivan>2006-06-16 00:47:39 +0000
commit1904b218cacfe4e96f3fd3b57f7242617099c485 (patch)
tree79b3300bfe115afe546c7fba0472bfd159b4ab39
parent2aee6063dd65e588b884181542815f98319419bf (diff)
and fix the name for TD Canada Trust. and that's it for now. really.
-rw-r--r--httemplate/misc/download-batch.cgi10
1 files changed, 5 insertions, 5 deletions
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi
index 88b10ee..2d6f8a2 100644
--- a/httemplate/misc/download-batch.cgi
+++ b/httemplate/misc/download-batch.cgi
@@ -6,10 +6,10 @@ my $conf=new FS::Conf;
http_header('Content-Type' => 'text/plain' );
my $format;
-if ( $cgi->param('format') =~ /^([\w ]+)$/ ) {
+if ( $cgi->param('format') =~ /^([\w\- ]+)$/ ) {
$format = $1;
} else {
- $format = $conf->config('batch_default_format');
+ $format = $conf->config('batch-default_format');
}
my $oldAutoCommit = $FS::UID::AutoCommit;
@@ -39,7 +39,7 @@ if ($format eq "BoM") {
sprintf( "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"){
+}elsif ($format eq "csv-td_canada_trust-merchant_pc_batch"){
# 1;
}else{
die "Unknown format for batch in batchconfig. \n";
@@ -63,7 +63,7 @@ for my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
my( $account, $aba ) = split( '@', $cust_pay_batch->payinfo );
%><%= sprintf( "D%010u%09u%-12s%-29s%-19s\n",$cust_pay_batch->amount*100,$aba,$account,$cust_pay_batch->payname,$cust_pay_batch->invnum %><%
- } elsif ($format eq "CSV file for TD Canada Trust Merchant PC Batch") {
+ } elsif ($format eq "csv-td_canada_trust-merchant_pc_batch") {
%>,,,,<%= $cust_pay_batch->payinfo %>,<%= $exp %>,<%= $cust_pay_batch->amount %>,<%= $cust_pay_batch->paybatchnum %><%
@@ -78,7 +78,7 @@ if ($format eq "BoM") {
%><%= sprintf( "YD%08u%014u%56s\n",$batchcount,$batchtotal*100,"" ).
sprintf( "Z%014u%05u%014u%05u%41s\n",$batchtotal*100,$batchcount,"0","0","" ) %><%
-} elsif ($format eq "CSV file for TD Canada Trust Merchant PC Batch"){
+} elsif ($format eq "csv-td_canada_trust-merchant_pc_batch"){
#1;
} else {
die "I'm already dead (again), but you did not know that.\n";