version 1.57, 2003/06/11 15:04:55
|
version 1.63, 2003/06/24 19:23:45
|
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 149 sub BuildStudentAssessmentPage {
|
Line 153 sub BuildStudentAssessmentPage {
|
$r->print('<input type="hidden" name="sort" value="'. |
$r->print('<input type="hidden" name="sort" value="'. |
$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) { |
return; |
return; |
} |
} |
Line 292 sub CreateInterface {
|
Line 297 sub CreateInterface {
|
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b>'. |
$Str .= '<td align="center"><b>Output Data</b></td>'; |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>Output Data</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Output_Data"). |
|
'</td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
# |
# |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\n"; |
Line 321 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 379 my @OutputOptions =
|
Line 394 my @OutputOptions =
|
|
|
sub OutputDescriptions { |
sub OutputDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>Output Modes</h2>\n"; |
$Str .= "<h2>Output Formats</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $outputmode (@OutputOptions) { |
foreach my $outputmode (@OutputOptions) { |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
Line 489 my @OutputDataOptions =
|
Line 504 my @OutputDataOptions =
|
|
|
sub HTMLifyOutputDataDescriptions { |
sub HTMLifyOutputDataDescriptions { |
my $Str = ''; |
my $Str = ''; |
|
$Str .= "<h2>Output Data</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
Line 1041 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 1482 sub StudentPerformanceOnSequence {
|
Line 1500 sub StudentPerformanceOnSequence {
|
# |
# |
$partscore = $weight*$awarded; |
$partscore = $weight*$awarded; |
$score += $partscore; |
$score += $partscore; |
$symbol = $weight; |
$symbol = $partscore; |
if (length($symbol) > 1) { |
if (length($symbol) > 1) { |
$symbol = '*'; |
$symbol = '*'; |
} |
} |
Line 1501 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 1508 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); |
} |
} |