[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.394 and 1.395

version 1.394, 2007/04/15 18:25:56 version 1.395, 2007/04/16 19:00:38
Line 1626  sub show_problem { Line 1626  sub show_problem {
     $result.='</td></tr></table><br />';      $result.='</td></tr></table><br />';
     return $result;      return $result;
 }  }
   
 sub download_all_link {  sub download_all_link {
     my ($r,$symb) = @_;      my ($r,$symb) = @_;
     my $courseid=$env{'request.course.id'};      my $all_students = 
     my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');   join("\n", &Apache::loncommon::get_env_multiple('form.stuinfo'));
     my $parts;  
     my $total      = scalar(@stuchecked)-1;      my $parts =
     my $all_students;   join("\n",&Apache::loncommon::get_env_multiple('form.vPart'));
     foreach my $stu_info (@stuchecked) {  
         $all_students .= $stu_info."\n";  
     }  
     foreach my $part (&Apache::loncommon::get_env_multiple('form.vPart')) {  
         $parts .= $part."\n";  
     }  
     my $identifier = &Apache::loncommon::get_cgi_id();      my $identifier = &Apache::loncommon::get_cgi_id();
     &Apache::lonnet::appenv('cgi.'.$identifier.'.students' => $all_students,      &Apache::lonnet::appenv('cgi.'.$identifier.'.students' => $all_students,
                             'cgi.'.$identifier.'.symb' => $symb,                              'cgi.'.$identifier.'.symb' => $symb,
                             'cgi.'.$identifier.'.parts' => $parts,                              'cgi.'.$identifier.'.parts' => $parts,);
                             'cgi.'.$identifier.'.courseid' => $courseid);      $r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">'.
     $r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">Download All Submitted Documents</a>');        &mt('Download All Submitted Documents').'</a>');
     return      return
 }  }
   
 # --------------------------- show submissions of a student, option to grade   # --------------------------- show submissions of a student, option to grade 
 sub submission {  sub submission {
     my ($request,$counter,$total) = @_;      my ($request,$counter,$total) = @_;
Line 6150  sub handler { Line 6147  sub handler {
  }   }
     } else {      } else {
  &init_perm();   &init_perm();
  &Apache::lonnet::logthis("command is $command");  
  foreach my $key (keys %perm) {  
     &Apache::lonnet::logthis("key is $key");  
  }  
  if ($command eq 'submission' && $perm{'vgr'}) {   if ($command eq 'submission' && $perm{'vgr'}) {
     ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));      ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
  } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {   } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
Removed from v.1.394  
changed lines
  Added in v.1.395

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