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

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

version 1.393, 2007/03/14 23:39:39 version 1.394, 2007/04/15 18:25:56
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 {
       my ($r,$symb) = @_;
       my $courseid=$env{'request.course.id'};
       my @stuchecked = &Apache::loncommon::get_env_multiple('form.stuinfo');
       my $parts;
       my $total      = scalar(@stuchecked)-1;
       my $all_students;
       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();
       &Apache::lonnet::appenv('cgi.'.$identifier.'.students' => $all_students,
                               'cgi.'.$identifier.'.symb' => $symb,
                               'cgi.'.$identifier.'.parts' => $parts,
                               'cgi.'.$identifier.'.courseid' => $courseid);
       $r->print('<a href="/cgi-bin/multidownload.pl?'.$identifier.'">Download All Submitted Documents</a>');
       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 1661  sub submission { Line 1681  sub submission {
  &sub_page_kw_js($request) if ($env{'form.handgrade'} eq 'yes');   &sub_page_kw_js($request) if ($env{'form.handgrade'} eq 'yes');
  $env{'form.probTitle'} = $env{'form.probTitle'} eq '' ?    $env{'form.probTitle'} = $env{'form.probTitle'} eq '' ? 
     &Apache::lonnet::gettitle($symb) : $env{'form.probTitle'};      &Apache::lonnet::gettitle($symb) : $env{'form.probTitle'};
    &download_all_link($request,$symb);
  $request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".   $request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".
  '<font size=+1>&nbsp;<b>Resource: </b>'.$env{'form.probTitle'}.'</font>'."\n");   '<font size=+1>&nbsp;<b>Resource: </b>'.$env{'form.probTitle'}.'</font>'."\n");
   
Line 6130  sub handler { Line 6150  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.393  
changed lines
  Added in v.1.394

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