loncom/interface/statistics/longradinganalysis.pm - diff

Return to longradinganalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.8, 2008/09/12 14:35:45	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 176 sub task_analysis {	Line 173 sub task_analysis {
}	}

&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last student'));	'last student');

}	}

Line 327 sub create_interface {	Line 324 sub create_interface {
$str .= '</td>';	$str .= '</td>';
#	#
$str .= '<td>';	$str .= '<td>';
##
$str .= '<nobr><label>'.&mt('Status: [_1]',
'<input type="text" '.
'name="stats_status" size="60" value="" />'
).
'</label></nobr>';
$str .= '</td>';	$str .= '</td>';
##	##
##	##