[BACK]Return to lonstudentassessment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.54 and 1.55

version 1.54, 2003/06/10 15:42:51 version 1.55, 2003/06/10 19:19:57
Line 150  sub BuildStudentAssessmentPage { Line 150  sub BuildStudentAssessmentPage {
               $ENV{'form.sort'}.'" />');                $ENV{'form.sort'}.'" />');
     $r->rflush();      $r->rflush();
     if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) {      if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) {
         $r->print(<<ENDMSG);  
 <p>  
 <font size="+2">  
 Please make your selections in the boxes above and hit   
 the button marked &quot;Update&nbsp;Display&quot;.  
 </font>  
 </p>  
 ENDMSG  
 #        $r->print(&OutputDescriptions());  
         return;          return;
     }      }
     #      #
Line 322  sub CreateInterface { Line 313  sub CreateInterface {
     $Str .= &CreateAndParseOutputDataSelector();      $Str .= &CreateAndParseOutputDataSelector();
     $Str .= '</td></tr>'."\n";      $Str .= '</td></tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
       $Str .= '<input type="submit" value="Generate Chart" />';
       $Str .= '&nbsp;'x8;
     return $Str;      return $Str;
 }  }
   
Line 573  sub html_initialize { Line 566  sub html_initialize {
     $r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.      $r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
               "&nbsp;&nbsp;".localtime(time)."</h3>");                "&nbsp;&nbsp;".localtime(time)."</h3>");
   
     $r->print("<h3>".$datadescription."</h3>");              if ($data !~ /^final table/) {
           $r->print("<h3>".$datadescription."</h3>");        
       }
     #      #
     # Set up progress window for 'final table' display only      # Set up progress window for 'final table' display only
     if ($data =~ /^final table/) {      if ($data =~ /^final table/) {
Line 614  sub html_outputstudent { Line 609  sub html_outputstudent {
     my ($r,$student) = @_;      my ($r,$student) = @_;
     my $Str = '';      my $Str = '';
     #      #
     if($count++ % 5 == 0 && $count > 0) {      if($count++ % 5 == 0 && $count > 0 && $data !~ /^final table/) {
         $r->print("</pre><pre>");          $r->print("</pre><pre>");
     }      }
     # First, the @StudentData fields need to be listed      # First, the @StudentData fields need to be listed
Removed from v.1.54  
changed lines
  Added in v.1.55

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