--- loncom/interface/multidownload.pl	2007/04/27 22:07:19	1.16
+++ loncom/interface/multidownload.pl	2007/04/27 22:20:30	1.18
@@ -2,7 +2,7 @@
 # CGI-script to allow download of all essay submissions of 
 # multiple students.
 #
-# $Id: multidownload.pl,v 1.16 2007/04/27 22:07:19 banghart Exp $
+# $Id: multidownload.pl,v 1.18 2007/04/27 22:20:30 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,8 +73,6 @@ if (&Apache::lonnet::allowed('vgr',$scop
     
     my $navmap = Apache::lonnavmaps::navmap->new();
     my $res = $navmap->getBySymb($symb);
-
-
     my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/);
     $zipout =~ s/\s/_/g;
     $zipout .= ".zip";
@@ -99,8 +97,7 @@ if (&Apache::lonnet::allowed('vgr',$scop
             &mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700);
             my $files = &Apache::grades::get_submitted_files($studom,$stuname,$partid,$respid,\%record);
             foreach my $file (@$files) {
-                $file =~ /(^.*\/)(.+$)/;
-                my $file_name_only = $2;
+                my ($file_name_only) = ($file =~ /^.*\/(.+$)/);
                 &Apache::lonnet::repcopy($file);
                 my $source = &Apache::lonnet::filelocation("",$file);
                 my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid/$file_name_only";