version 1.10, 2010/06/10 16:14:39
|
version 1.11, 2011/12/21 21:25:51
|
Line 149 sub build_grading_analysis_page {
|
Line 149 sub build_grading_analysis_page {
|
|
|
sub task_analysis { |
sub task_analysis { |
my ($r,$problem,$students) = @_; |
my ($r,$problem,$students) = @_; |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students)); |
($r,'Student Answer Compilation Status', |
|
'Student Answer Compilation Progress', scalar(@$students), |
|
'inline',undef,'Statistics','stats_status'); |
|
my %graders; |
my %graders; |
foreach my $student (@$students) { |
foreach my $student (@$students) { |
my $sname = $student->{'username'}; |
my $sname = $student->{'username'}; |
Line 327 sub create_interface {
|
Line 324 sub create_interface {
|
$str .= '</td>'; |
$str .= '</td>'; |
# |
# |
$str .= '<td>'; |
$str .= '<td>'; |
## |
|
$str .= '<span class="LC_nobreak"><label>' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</label></span>'; |
|
$str .= '</td>'; |
$str .= '</td>'; |
## |
## |
## |
## |