[LON-CAPA-cvs] cvs: loncom /interface multidownload.pl
banghart
lon-capa-cvs-allow@mail.lon-capa.org
Thu, 26 Apr 2007 22:16:59 -0000
banghart Thu Apr 26 18:16:59 2007 EDT
Modified files:
/loncom/interface multidownload.pl
Log:
Give informative message about failure to copy files.
Index: loncom/interface/multidownload.pl
diff -u loncom/interface/multidownload.pl:1.13 loncom/interface/multidownload.pl:1.14
--- loncom/interface/multidownload.pl:1.13 Thu Apr 26 18:05:50 2007
+++ loncom/interface/multidownload.pl Thu Apr 26 18:16:57 2007
@@ -2,7 +2,7 @@
# CGI-script to allow download of all essay submissions of
# multiple students.
#
-# $Id: multidownload.pl,v 1.13 2007/04/26 22:05:50 banghart Exp $
+# $Id: multidownload.pl,v 1.14 2007/04/26 22:16:57 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -83,6 +83,7 @@
my $udom = $env{'user.domain'};
&mkpath($doc_zip_root."/zipdir/$uname$udom/$unique_path",0,0700);
foreach my $stu (@stuchecked) {
+ my $file_problem = 0;
my ($stuname,$studom,$fullname) = split(/:/,$stu);
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname);
foreach my $part (@part_response_id) {
@@ -94,7 +95,13 @@
my $file_name_only = $2;
&Apache::lonnet::repcopy($file);
my $source = &Apache::lonnet::filelocation("",$file);
- ©($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only");
+ if (!©($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only")) {
+ if (!$file_problem) {
+ print &mt("Unable to create: <br />");
+ $file_problem = 1;
+ }
+ print ("$stuname/part$partid/resp$respid/$file_name_only <br />");
+ }
}
}
}