version 1.54, 2003/06/10 15:42:51
|
version 1.56, 2003/06/11 14:41:59
|
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 "Update Display". |
|
</font> |
|
</p> |
|
ENDMSG |
|
# $r->print(&OutputDescriptions()); |
|
return; |
return; |
} |
} |
# |
# |
Line 188 ENDMSG
|
Line 179 ENDMSG
|
@Students = @Apache::lonstatistics::Students; |
@Students = @Apache::lonstatistics::Students; |
} |
} |
# |
# |
|
# Perform generic initialization tasks |
|
# Since we use lonnet::EXT to retrieve problem weights, |
|
# to ensure current data we must clear the caches out. |
|
# This makes sure that parameter changes at the student level |
|
# are immediately reflected in the chart. |
|
&Apache::lonnet::clear_EXT_cache_status(); |
|
# |
# Call the initialize routine selected above |
# Call the initialize routine selected above |
$initialize->($r); |
$initialize->($r); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
Line 322 sub CreateInterface {
|
Line 320 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 .= ' 'x8; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 573 sub html_initialize {
|
Line 573 sub html_initialize {
|
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
" ".localtime(time)."</h3>"); |
" ".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 616 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 |