version 1.8, 2004/03/12 21:13:11
|
version 1.9, 2004/03/16 16:30:32
|
Line 295 sub GetStudentAnswers {
|
Line 295 sub GetStudentAnswers {
|
my ($resource,$partid,$respid) = ($problem->{'resource'}, |
my ($resource,$partid,$respid) = ($problem->{'resource'}, |
$problem->{'part'}, |
$problem->{'part'}, |
$problem->{'respid'}); |
$problem->{'respid'}); |
|
# Read in the cache (if it exists) before we start timing things. |
|
&Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'}); |
# Open progress window |
# Open progress window |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Student Answer Compilation Status', |
($r,'Student Answer Compilation Status', |
'Student Answer Compilation Progress', scalar(@$Students)); |
'Student Answer Compilation Progress', scalar(@$Students)); |
$r->print("<table>\n"); |
|
$r->rflush(); |
$r->rflush(); |
foreach my $student (@$Students) { |
foreach my $student (@$Students) { |
last if ($c->aborted()); |
last if ($c->aborted()); |
Line 311 sub GetStudentAnswers {
|
Line 312 sub GetStudentAnswers {
|
&mt('last student')); |
&mt('last student')); |
$student->{'answer'} = $answer; |
$student->{'answer'} = $answer; |
} |
} |
|
&Apache::lonstathelpers::write_answer_cache(); |
return if ($c->aborted()); |
return if ($c->aborted()); |
$r->print("</table>\n"); |
|
$r->rflush(); |
$r->rflush(); |
# close progress window |
# close progress window |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
return; |
return; |
} |
} |
|
|
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
## |
## |