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

Diff for /loncom/homework/grades.pm between versions 1.47 and 1.48

version 1.47, 2002/08/26 12:47:28 version 1.48, 2002/09/06 20:59:28
Line 324  sub listStudents { Line 324  sub listStudents {
 </script>  </script>
 LISTJAVASCRIPT  LISTJAVASCRIPT
   
       my ($symb,$url) = &get_symb_and_url();
     my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};      my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
     my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};      my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
     my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};      my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
Line 333  LISTJAVASCRIPT Line 334  LISTJAVASCRIPT
  'View/Grade Submissions for a Student or a Group of Students</font></h3>';   'View/Grade Submissions for a Student or a Group of Students</font></h3>';
     $result.='<table border="0">';      $result.='<table border="0">';
     $result.='<tr><td colspan=3><font size=+1>'.      $result.='<tr><td colspan=3><font size=+1>'.
  '<b>Resource: </b>'.$ENV{'form.url'}.'</font></td></tr>';   '<b>Resource: </b>'.$url.'</font></td></tr>';
     my ($partlist,$handgrade) = &response_type($ENV{'form.url'});      my ($partlist,$handgrade) = &response_type($url);
     for (sort keys(%$handgrade)) {      for (sort keys(%$handgrade)) {
  my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});   my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
  $ENV{'form.handgrade'} = 'yes' if ($handgrade eq 'yes');   $ENV{'form.handgrade'} = 'yes' if ($handgrade eq 'yes');
Line 361  LISTJAVASCRIPT Line 362  LISTJAVASCRIPT
  '<input type="hidden" name="response"    value="'.$ENV{'form.response'}.'" />'."\n".   '<input type="hidden" name="response"    value="'.$ENV{'form.response'}.'" />'."\n".
  '<input type="hidden" name="handgrade"   value="'.$ENV{'form.handgrade'}.'" /><br />'."\n".   '<input type="hidden" name="handgrade"   value="'.$ENV{'form.handgrade'}.'" /><br />'."\n".
  '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n".   '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n".
  '<input type="hidden" name="url"  value="'.$ENV{'form.url'}.'" />'."\n".   '<input type="hidden" name="url"  value="'.$url.'" />'."\n".
  '<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n".   '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
  'To view/grade a submission, click on the check box next to the student\'s name. Then '."\n".   'To view/grade a submission, click on the check box next to the student\'s name. Then '."\n".
  'click on the View/Grade button. To view the submissions for a group of students, click'."\n".   'click on the View/Grade button. To view the submissions for a group of students, click'."\n".
  ' on the check boxes for the group of students.<br />'."\n".   ' on the check boxes for the group of students.<br />'."\n".
Line 385  LISTJAVASCRIPT Line 386  LISTJAVASCRIPT
     my $ctr = 0;      my $ctr = 0;
     foreach my $student (sort {$$fullname{$a} cmp $$fullname{$b} } keys %$fullname) {      foreach my $student (sort {$$fullname{$a} cmp $$fullname{$b} } keys %$fullname) {
  my ($uname,$udom) = split(/:/,$student);   my ($uname,$udom) = split(/:/,$student);
  my (%status) = &student_gradeStatus($ENV{'form.url'},   my (%status) =&student_gradeStatus($url,$symb,$udom,$uname,$partlist);
     $ENV{'form.symb'},$udom,$uname,$partlist);  
  my $statusflg = '';   my $statusflg = '';
  foreach (keys(%status)) {   foreach (keys(%status)) {
     $statusflg = 1 if ($status{$_} ne 'nothing');      $statusflg = 1 if ($status{$_} ne 'nothing');
Line 423  LISTJAVASCRIPT Line 423  LISTJAVASCRIPT
     if ($ctr == 0) {      if ($ctr == 0) {
  $gradeTable='<br />&nbsp;<font color="red">'.   $gradeTable='<br />&nbsp;<font color="red">'.
     'No submission found for this resource.</font><br />';      'No submission found for this resource.</font><br />';
  $gradeTable.=&show_grading_menu_form ($ENV{'form.symb'},$ENV{'form.url'});   $gradeTable.=&show_grading_menu_form($symb,$url);
     } elsif ($ctr == 1) {      } elsif ($ctr == 1) {
  $gradeTable =~ s/type=checkbox/type=checkbox checked/;   $gradeTable =~ s/type=checkbox/type=checkbox checked/;
     }      }
Removed from v.1.47  
changed lines
  Added in v.1.48

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