loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.135, 2006/05/18 01:08:50	version 1.136, 2006/05/30 12:46:09
Line 76 use Apache::lonpercentage;	Line 76 use Apache::lonpercentage;
use Apache::lonstudentsubmissions();	use Apache::lonstudentsubmissions();
use Apache::lonsurveyreports();	use Apache::lonsurveyreports();
use Apache::longradinganalysis();	use Apache::longradinganalysis();
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

#######################################################	#######################################################
#######################################################	#######################################################
Line 1018 sub DisplayClasslist {	Line 1020 sub DisplayClasslist {
$Str .= '<td>';	$Str .= '<td>';
if ($field eq 'fullname' \|\| $field eq 'username') {	if ($field eq 'fullname' \|\| $field eq 'username') {
$Str .= '<a href="/adm/statistics?reportSelected=';	$Str .= '<a href="/adm/statistics?reportSelected=';
$Str .= &Apache::lonnet::escape('student_assessment');	$Str .= &escape('student_assessment');
$Str .= '&sort='.&Apache::lonnet::escape($env{'form.sort'});	$Str .= '&sort='.&escape($env{'form.sort'});
$Str .= '&SelectedStudent=';	$Str .= '&SelectedStudent=';
$Str .= &Apache::lonnet::escape($sname).'">';	$Str .= &escape($sname).'">';
$Str .= $student->{$field}.'&nbsp';	$Str .= $student->{$field}.'&nbsp';
$Str .= '</a>';	$Str .= '</a>';
} elsif ($field eq 'status') {	} elsif ($field eq 'status') {