version 1.6, 2002/08/01 20:49:06
|
version 1.7, 2002/08/05 20:53:38
|
Line 86 sub BuildStudentAssessmentPage {
|
Line 86 sub BuildStudentAssessmentPage {
|
$students); |
$students); |
$r->print(&CreateInterface(\%cache, $selectedName, $students, $formName, |
$r->print(&CreateInterface(\%cache, $selectedName, $students, $formName, |
$doNotShow)); |
$doNotShow)); |
|
$r->rflush(); |
|
|
my $Str = ''; |
my $Str = ''; |
if($selectedName eq 'No Student Selected') { |
if($selectedName eq 'No Student Selected') { |
Line 136 sub BuildStudentAssessmentPage {
|
Line 137 sub BuildStudentAssessmentPage {
|
'preformatted')); |
'preformatted')); |
$r->print(&StudentReport(\%cache, $_, $spacing, $sequenceKeys)); |
$r->print(&StudentReport(\%cache, $_, $spacing, $sequenceKeys)); |
$r->print("\n"); |
$r->print("\n"); |
|
$r->rflush(); |
untie(%cache); |
untie(%cache); |
} |
} |
} |
} |