version 1.57, 2003/06/11 15:04:55
|
version 1.59, 2003/06/16 15:54:58
|
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; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 379 my @OutputOptions =
|
Line 393 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 503 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>'; |