version 1.25, 2007/05/05 18:51:49
|
version 1.26, 2007/05/13 18:00:32
|
Line 89 END
|
Line 89 END
|
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
my $unique_path = $identifier.time(); |
my $unique_path = $identifier.time(); |
print(&Apache::loncommon::start_page('Multiple Downloads')); |
print(&Apache::loncommon::start_page('Multiple Downloads')); |
|
|
|
|
my $scope = $env{'request.course.id'}; |
my $scope = $env{'request.course.id'}; |
if ($env{'request.course.sec'}) { |
if ($env{'request.course.sec'}) { |
Line 105 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 106 if (&Apache::lonnet::allowed('vgr',$scop
|
$zipout .= "$identifier.zip"; |
$zipout .= "$identifier.zip"; |
my $courseid = $env{'request.course.id'}; |
my $courseid = $env{'request.course.id'}; |
my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'}); |
my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'}); |
|
my $number_of_students = scalar(@stuchecked); |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Processing Status', |
|
'Preparing Zip File',$number_of_students,'inline','80'); |
my @parts = split(/\n/,$env{'cgi.'.$identifier.'.parts'}); |
my @parts = split(/\n/,$env{'cgi.'.$identifier.'.parts'}); |
my $doc_zip_root = $Apache::lonnet::perlvar{'lonZipDir'}; |
my $doc_zip_root = $Apache::lonnet::perlvar{'lonZipDir'}; |
my $uname = $env{'user.name'}; |
my $uname = $env{'user.name'}; |
Line 116 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 120 if (&Apache::lonnet::allowed('vgr',$scop
|
} |
} |
print MANIFEST &mt("Files contained in this zip:\n"); |
print MANIFEST &mt("Files contained in this zip:\n"); |
my $file_problem = 0; |
my $file_problem = 0; |
|
my $current_student = 0; |
foreach my $stu (@stuchecked) { |
foreach my $stu (@stuchecked) { |
|
$current_student ++; |
|
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,"Processing student $current_student of $number_of_students"); |
my %files_saved; |
my %files_saved; |
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname); |
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname); |
Line 153 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 160 if (&Apache::lonnet::allowed('vgr',$scop
|
} |
} |
} |
} |
} |
} |
|
|
} |
} |
|
|
&mkpath($doc_zip_root."/zipout/$unique_user",0,0700); |
&mkpath($doc_zip_root."/zipout/$unique_user",0,0700); |
Line 168 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 174 if (&Apache::lonnet::allowed('vgr',$scop
|
} |
} |
$statement = "rm -rf $doc_zip_root/zipdir/$unique_user/$unique_path"; |
$statement = "rm -rf $doc_zip_root/zipdir/$unique_user/$unique_path"; |
system($statement); |
system($statement); |
print('<a href="/zipspool/zipout/'.$unique_user.'/'.$zipout.'">'. |
&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); |
&mt("Click to download").'</a><br />'); |
print('<p><a href="/zipspool/zipout/'.$unique_user.'/'.$zipout.'">'. |
|
&mt("Click to download").'</a></p><br />'); |
close MANIFEST; |
close MANIFEST; |
} else { |
} else { |
print(&mt('You are not authorized to download student submissions.')); |
print(&mt('You are not authorized to download student submissions.')); |