summaryrefslogtreecommitdiff
path: root/httemplate/misc/download-batch.cgi
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2006-01-05 09:34:30 +0000
committercvs2git <cvs2git>2006-01-05 09:34:30 +0000
commit0c525f3ba7b2b6730b8939b950e4d76dd16802a9 (patch)
tree9d0c5411f52238759ca3484d5ecc036dc6905414 /httemplate/misc/download-batch.cgi
parent8f5c91d6c7a8dc85a8b6768a149b4c7b3e144c38 (diff)
This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'.SQL_LEDGER_2_4_4
Diffstat (limited to 'httemplate/misc/download-batch.cgi')
-rw-r--r--httemplate/misc/download-batch.cgi16
1 files changed, 0 insertions, 16 deletions
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi
deleted file mode 100644
index 306ef5d63..000000000
--- a/httemplate/misc/download-batch.cgi
+++ /dev/null
@@ -1,16 +0,0 @@
-<%
-
-#http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
-http_header('Content-Type' => 'text/plain' );
-
-for my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
- qsearch('cust_pay_batch', {} )
-) {
-
-$cust_pay_batch->exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
-my( $mon, $y ) = ( $2, $1 );
-$mon = "0$mon" if $mon < 10;
-my $exp = "$mon$y";
-
-%>,,,,<%= $cust_pay_batch->cardnum %>,<%= $exp %>,<%= $cust_pay_batch->amount %>,<%= $cust_pay_batch->paybatchnum %>
-<% } %>