freeside/httemplate/misc upload-batch.cgi,1.1.2.3,1.1.2.4

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory pouncequick:/tmp/cvs-serv1613

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	upload-batch.cgi 
Log Message:
not entirely sure why we're checking the filename at all... to catch empty form submissions?

Index: upload-batch.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/upload-batch.cgi,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -d -r1.1.2.3 -r1.1.2.4
--- upload-batch.cgi	28 May 2004 11:21:47 -0000	1.1.2.3
+++ upload-batch.cgi	28 May 2004 11:33:22 -0000	1.1.2.4
@@ -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( {