From: ivan <ivan>
Date: Fri, 28 May 2004 11:33:22 +0000 (+0000)
Subject: not entirely sure why we're checking the filename at all... to catch empty form submi... 
X-Git-Tag: freeside_1_4_2beta1~84
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2fff06f0742676bf4edbb84cab007681de1d08a3;p=freeside.git

not entirely sure why we're checking the filename at all... to catch empty form submissions?
---

diff --git a/httemplate/misc/upload-batch.cgi b/httemplate/misc/upload-batch.cgi
index da5e41cbc..5d0150177 100644
--- a/httemplate/misc/upload-batch.cgi
+++ b/httemplate/misc/upload-batch.cgi
@@ -2,8 +2,9 @@
 
   my $fh = $cgi->upload('batch_results');
   my $filename = $cgi->param('batch_results');
-  $filename =~ /^.*[\/\\]([^\/\\]+)$/ or die "unparsable filename: $filename\n";
-  my $paybatch = $1;
+  $filename =~ /^(.*[\/\\])?([^\/\\]+)$/
+    or die "unparsable filename: $filename\n";
+  my $paybatch = $2;
 
   my $error = defined($fh)
     ? FS::cust_pay_batch::import_results( {