version 1.58, 2003/06/11 16:19:39
|
version 1.62, 2003/06/23 16:06:11
|
Line 140 sub BuildStudentAssessmentPage {
|
Line 140 sub BuildStudentAssessmentPage {
|
my ($r,$c)=@_; |
my ($r,$c)=@_; |
undef($Statistics); |
undef($Statistics); |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
|
if ($ENV{'form.selectstudent'}) { |
|
&Apache::lonstatistics::DisplayClasslist($r); |
|
return; |
|
} |
# |
# |
# Print out the HTML headers for the interface |
# Print out the HTML headers for the interface |
# This also parses the output mode selector |
# This also parses the output mode selector |
Line 326 sub CreateInterface {
|
Line 330 sub CreateInterface {
|
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '<input type="submit" value="Generate Chart" />'; |
$Str .= '<input type="submit" value="Generate Chart" />'; |
$Str .= ' 'x8; |
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="selectstudent" '. |
|
'value="Select One Student" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<br />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 1047 END
|
Line 1057 END
|
($r,'Excel File Compilation Status', |
($r,'Excel File Compilation Status', |
'Excel File Compilation Progress', $studentcount); |
'Excel File Compilation Progress', $studentcount); |
# |
# |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing first student'); |
return; |
return; |
} |
} |
|
|
Line 1507 sub StudentPerformanceOnSequence {
|
Line 1519 sub StudentPerformanceOnSequence {
|
} |
} |
} |
} |
# |
# |
|
if (! defined($partscore)) { |
|
$partscore = $symbol; |
|
} |
|
push (@ScoreData,$partscore); |
|
# |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
$symbol = '<a href="/adm/grades'. |
$symbol = '<a href="/adm/grades'. |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
Line 1514 sub StudentPerformanceOnSequence {
|
Line 1531 sub StudentPerformanceOnSequence {
|
'&domain='.$student->{'domain'}. |
'&domain='.$student->{'domain'}. |
'&command=submission">'.$symbol.'</a>'; |
'&command=submission">'.$symbol.'</a>'; |
} |
} |
if (! defined($partscore)) { |
$Str .= $symbol; |
$partscore = $symbol; |
|
} |
|
push (@ScoreData,$partscore); |
|
} |
} |
$Str .= $symbol; |
|
} |
} |
return ($Str,$performance_length,$score,$max,\@ScoreData); |
return ($Str,$performance_length,$score,$max,\@ScoreData); |
} |
} |