version 1.38, 2008/12/30 23:18:24
|
version 1.39, 2011/12/21 21:25:40
|
Line 100 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 100 if (&Apache::lonnet::allowed('vgr',$scop
|
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 $number_of_students = scalar(@stuchecked); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Processing Status', |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$number_of_students); |
'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 119 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 118 if (&Apache::lonnet::allowed('vgr',$scop
|
my $current_student = 0; |
my $current_student = 0; |
foreach my $stu (@stuchecked) { |
foreach my $stu (@stuchecked) { |
$current_student ++; |
$current_student ++; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,"Processing student $current_student of $number_of_students"); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Processing student [_1] of [_2]",$current_student,$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); |