version 1.25, 2011/01/17 00:19:41
|
version 1.26, 2011/12/21 21:25:51
|
Line 234 sub SurveyProblemSelector {
|
Line 234 sub SurveyProblemSelector {
|
sub compile_student_answers { |
sub compile_student_answers { |
my ($r,$problem,$ProblemData,$Students) = @_; |
my ($r,$problem,$ProblemData,$Students) = @_; |
my $resource = $problem->{'resource'}; |
my $resource = $problem->{'resource'}; |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students)); |
($r,'Processing Student Submissions', |
|
'Processing Student Submissions', |
|
scalar(@$Students),'inline',undef,'Statistics','stats_status'); |
|
foreach my $student (@$Students) { |
foreach my $student (@$Students) { |
foreach my $partid (@{$resource->parts}) { |
foreach my $partid (@{$resource->parts}) { |
my @response_ids = $resource->responseIds($partid); |
my @response_ids = $resource->responseIds($partid); |
Line 279 sub compile_student_answers {
|
Line 276 sub compile_student_answers {
|
} |
} |
} |
} |
} |
} |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
'last student'); |
|
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
return; |
return; |
Line 671 sub CreateInterface {
|
Line 667 sub CreateInterface {
|
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table(); |
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$Str .= '<p><span class="LC_nobreak">' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
|
$Str .= '</p>'; |
$Str .= '</p>'; |
## |
## |
return $Str; |
return $Str; |