[BACK]Return to multidownload.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/multidownload.pl between versions 1.38 and 1.39

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);
Removed from v.1.38  
changed lines
  Added in v.1.39

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>