version 1.132, 2006/05/01 19:37:34
|
version 1.136, 2006/05/30 12:46:09
|
Line 63 use Apache::loncoursedata;
|
Line 63 use Apache::loncoursedata;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonmysql; |
use Apache::lonmysql; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::longroup; |
use Time::HiRes; |
use Time::HiRes; |
# |
# |
# Statistics Packages |
# Statistics Packages |
Line 75 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 230 sub PrepareClasslist {
|
Line 233 sub PrepareClasslist {
|
$enrollment_status = $env{'form.Status'} if (exists($env{'form.Status'})); |
$enrollment_status = $env{'form.Status'} if (exists($env{'form.Status'})); |
# |
# |
# Get groupmembership |
# Get groupmembership |
my (%curr_groups,$classgroups,$studentgroups); |
my ($classgroups,$studentgroups); |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); |
if ($numgroups) { |
if (%curr_groups) { |
($classgroups,$studentgroups) = |
($classgroups,$studentgroups) = |
&Apache::loncoursedata::get_group_memberships($classlist, |
&Apache::loncoursedata::get_group_memberships($classlist, |
$cdom,$cnum); |
$field_names, |
|
$cdom,$cnum); |
} |
} |
my $now = time; |
my $now = time; |
|
|
Line 1016 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}.' '; |
$Str .= $student->{$field}.' '; |
$Str .= '</a>'; |
$Str .= '</a>'; |
} elsif ($field eq 'status') { |
} elsif ($field eq 'status') { |