--- loncom/interface/multidownload.pl	2007/05/22 22:39:22	1.30
+++ loncom/interface/multidownload.pl	2007/05/23 20:40:44	1.35
@@ -2,8 +2,7 @@
 # CGI-script to allow download of all essay submissions of 
 # multiple students.
 #
-# $Id: multidownload.pl,v 1.30 2007/05/22 22:39:22 banghart Exp $
-#
+# $Id: multidownload.pl,v 1.35 2007/05/23 20:40:44 banghart Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -119,7 +118,8 @@ if (&Apache::lonnet::allowed('vgr',$scop
         &Apache::lonnet::logthis("Problem making manifest");
     }
     print MANIFEST (&mt("Zip file generated on [_1]",&Apache::lonlocal::locallocaltime(time()))."\n");
-    print MANIFEST ("Course: ".$env{"course.$courseid.description"}."\n");
+    print MANIFEST (&mt("Course: [_1]",$env{"course.$courseid.description"})."\n");
+    print MANIFEST (&mt("Problem: [_1]",$res->compTitle)."\n");
     print MANIFEST (&mt("Files contained in this zip:\n"));
     my $file_problem = 0;
     my $current_student = 0;
@@ -131,6 +131,7 @@ if (&Apache::lonnet::allowed('vgr',$scop
         my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname);
         my $file_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio';
         print MANIFEST ($fullname."\n");
+        my $submission_count = 0;
         foreach my $partid (@$partlist) {
             my @ids = $res->responseIds($partid);
             foreach my $respid(@ids) {
@@ -139,10 +140,11 @@ if (&Apache::lonnet::allowed('vgr',$scop
                 foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) {
                     $file = $file_url.$file;
                     my ($file_name_only) = ($file =~ /^.*\/(.+$)/);
-                    print MANIFEST ("\t$file_name_only \n");
+                    print MANIFEST ("\t$file_name_only (".&mt("Part [_1]",$partid).
+                                    ") (".&mt("Response [_1]",$respid).")"."\n");
+                    $submission_count ++;
                     &Apache::lonnet::repcopy($file);
                     my $source = &Apache::lonnet::filelocation("",$file);
-                    
                     my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname$part_resp_path/$file_name_only";
                     if (exists($files_saved{$destination})) {
                         # file has already been saved once
@@ -161,6 +163,9 @@ if (&Apache::lonnet::allowed('vgr',$scop
                 }
             }
         }
+        if (!$submission_count) {
+            print MANIFEST ("\t".&mt("No Files Submitted")."\n");
+        }
     }
     
     &mkpath($doc_zip_root."/zipout/$unique_user",0,0700);