--- loncom/interface/multidownload.pl 2007/04/26 17:36:10 1.6
+++ loncom/interface/multidownload.pl 2007/04/26 17:43:24 1.7
@@ -2,7 +2,7 @@
# CGI-script to allow download of all essay submissions of
# multiple students.
#
-# $Id: multidownload.pl,v 1.6 2007/04/26 17:36:10 banghart Exp $
+# $Id: multidownload.pl,v 1.7 2007/04/26 17:43:24 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -79,21 +79,21 @@ if (&Apache::lonnet::allowed('vgr',$scop
my $uname = $env{'user.name'};
my $udom = $env{'user.domain'};
mkdir($doc_zip_root."/zipdir",0700);
- mkdir($doc_zip_root."/zipdir/$uname$udom",0700);
+ mkdir($doc_zip_root."/zipdir/$identifier",0700);
foreach my $stu (@stuchecked) {
my ($stuname,$studom,$fullname) = split(/:/,$stu);
- mkdir($doc_zip_root."/zipdir/$uname$udom/$stuname",0700);
+ mkdir($doc_zip_root."/zipdir/$identifier/$stuname",0700);
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname);
foreach my $part (@part_response_id) {
my ($partid,$respid) = @{$part};
- mkdir($doc_zip_root."/zipdir/$uname$udom/$stuname/part$partid",0700);
- mkdir($doc_zip_root."/zipdir/$uname$udom/$stuname/part$partid/resp$respid",0700);
+ mkdir($doc_zip_root."/zipdir/$identifier/$stuname/part$partid",0700);
+ mkdir($doc_zip_root."/zipdir/$identifier/$stuname/part$partid/resp$respid",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_content = &Apache::lonnet::getfile($file);
- if (open(my $fh,">$doc_zip_root/zipdir/$uname$udom/$stuname/part$partid/resp$respid/$file_name_only")) {
+ if (open(my $fh,">$doc_zip_root/zipdir/$identifier/$stuname/part$partid/resp$respid/$file_name_only")) {
print($fh $file_content);
close($fh);
} else {
@@ -103,9 +103,9 @@ if (&Apache::lonnet::allowed('vgr',$scop
}
}
mkdir($doc_zip_root."/zipout",0777);
- my $statement = "zip -r $doc_zip_root/zipout/output.zip $doc_zip_root/zipdir/$uname$udom/* > /dev/null";
+ my $statement = "zip -r $doc_zip_root/zipout/output.zip $doc_zip_root/zipdir/$identifier/* > /dev/null";
system($statement);
- $statement = "rm -rf $doc_zip_root/zipdir/$uname$udom";
+ $statement = "rm -rf $doc_zip_root/zipdir/$identifier";
system($statement);
print('Click to download
');
} else {