[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.17 and 1.19

version 1.17, 2002/10/24 20:58:06 version 1.19, 2002/12/06 21:11:48
Line 167  sub BuildStudentAssessmentPage { Line 167  sub BuildStudentAssessmentPage {
   
   
 #    $r->print("AverageTtal");  #    $r->print("AverageTtal");
     $r->print(&StudentAverageTotal(\%cache, $spacing, $sequenceKeys));  #    $r->print(&StudentAverageTotal(\%cache, $spacing, $sequenceKeys));
     $r->print("\n");  #    $r->print("\n");
     $r->rflush();  #    $r->rflush();
     untie(%cache);      untie(%cache);
   
   
Line 219  sub CreateInterface { Line 219  sub CreateInterface {
     $Str .= '</td><td>'."\n";      $Str .= '</td><td>'."\n";
     $Str .= '<input type="submit" name="DefaultColumns" ';      $Str .= '<input type="submit" name="DefaultColumns" ';
     $Str .= 'value="Default Column Display" />'."\n";      $Str .= 'value="Default Column Display" />'."\n";
       $Str .= '</td><td>'."\n";
       $Str .= '<input type="submit" name="displaymode" ';
       if (! exists($ENV{'form.displaymode'}) ||
           lc($ENV{'form.displaymode'}) eq 'display with links') {
           $Str .= 'value="Display without links" />';
           # Set the current value, in case it is undefined
           $ENV{'form.displaymode'} = 'Display with links'; 
       } else {
           $Str .= 'value="Display with links" />';
       }
       $Str .= "\n";
     $Str .= '</td></tr></table>'."\n";      $Str .= '</td></tr></table>'."\n";
   
     return $Str;      return $Str;
Line 265  sub CreateTableHeadings { Line 276  sub CreateTableHeadings {
 =item &FormatStudentData()  =item &FormatStudentData()
   
 First, FormatStudentInformation is called and prefixes the course information.  First, FormatStudentInformation is called and prefixes the course information.
 This function produces a formatted string of the student's course information.  This function produces a formatted string of the student\'s course information.
 Each column of data represents all the problems for a given sequence.  For  Each column of data represents all the problems for a given sequence.  For
 valid grade data, a link is created for that problem to a submission record  valid grade data, a link is created for that problem to a submission record
 for that problem.  for that problem.
Line 327  sub StudentReport { Line 338  sub StudentReport {
                 }                  }
                 $hasVersion = 'true';                  $hasVersion = 'true';
                 $hasData = 'true';                  $hasData = 'true';
                 $Str .= '<a href="/adm/grades?symb=';                  if (lc($ENV{'form.displaymode'}) ne 'display without links') {
                 $Str .= &Apache::lonnet::escape($problem);                      $Str .= '<a href="/adm/grades?symb=';
                 $Str .= '&student='.$username.'&domain='.$domain;                      $Str .= &Apache::lonnet::escape($problem);
                 $Str .= '&command=submission">';                       $Str .= '&student='.$username.'&domain='.$domain;
                       $Str .= '&command=submission">'; 
                   }
                 my $code = $cache->{$name.':'.$problemID.':'.$_.':code'};                  my $code = $cache->{$name.':'.$problemID.':'.$_.':code'};
                 my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'};                  my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'};
                 if($code eq '*' && $tries < 10 && $tries ne '') {                  if($code eq '*' && $tries < 10 && $tries ne '') {
                     $code = $tries;                      $code = $tries;
                 }                  }
                 $Str .= $code;                  $Str .= $code;
                 $Str .= '</a>';                  if (lc($ENV{'form.displaymode'}) ne 'display without links') {
                       $Str .= '</a>';
                   }
                 $characterCount++;                  $characterCount++;
             }              }
         }          }
Removed from v.1.17  
changed lines
  Added in v.1.19

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