[LON-CAPA-cvs] cvs: loncom /interface multidownload.pl

[banghart]

banghart		Wed May 23 15:31:22 2007 EDT

  Modified files:              
    /loncom/interface	multidownload.pl 
  Log:
  	Give message when student has no file submissions.
  
  
Index: loncom/interface/multidownload.pl
diff -u loncom/interface/multidownload.pl:1.32 loncom/interface/multidownload.pl:1.33
--- loncom/interface/multidownload.pl:1.32	Wed May 23 15:07:49 2007
+++ loncom/interface/multidownload.pl	Wed May 23 15:31:21 2007
@@ -2,7 +2,7 @@
 # CGI-script to allow download of all essay submissions of 
 # multiple students.
 #
-# $Id: multidownload.pl,v 1.32 2007/05/23 19:07:49 banghart Exp $
+# $Id: multidownload.pl,v 1.33 2007/05/23 19:31:21 banghart Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -131,6 +131,7 @@
         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) {
@@ -140,9 +141,9 @@
                     $file = $file_url.$file;
                     my ($file_name_only) = ($file =~ /^.*\/(.+$)/);
                     print MANIFEST ("\t$file_name_only \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 +162,9 @@
                 }
             }
         }
+        if (!$submission_count) {
+            print MANIFEST ("\tNo Files Submitted \n");
+        }
     }
     
     &mkpath($doc_zip_root."/zipout/$unique_user",0,0700);