|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstatistics.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface