version 1.11, 2006/03/15 22:11:04
|
version 1.12, 2006/03/16 21:15:16
|
Line 70 sub handler {
|
Line 70 sub handler {
|
$filter=~s/\W//g; |
$filter=~s/\W//g; |
unless ($filter) { $filter='.'; } |
unless ($filter) { $filter='.'; } |
|
|
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $classlist=&Apache::loncoursedata::get_classlist(); |
my $classlist=&Apache::loncoursedata::get_classlist(); |
|
my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); |
|
my $now = time; |
|
my %allgroups; |
|
my @coursegroups = (); |
|
if (&Apache::loncommon::coursegroups(\%allgroups,$cdom,$cnum)) { |
|
@coursegroups = keys(%allgroups); |
|
} |
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
Line 111 ENDSCRIPT
|
Line 120 ENDSCRIPT
|
if ($filter ne '.') { |
if ($filter ne '.') { |
$r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
$r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
} |
} |
$r->print('</p><p><table>'); |
$r->print('</p><p><table><tr><th> </th><th>username</th><th>domain</th><th>Name</th><th>ID</th><th>section</th><th>active group(s)</th>'); |
# ------------------------------------------------------------------ Students |
# ------------------------------------------------------------------ Students |
foreach (sort keys %$classlist) { |
foreach (sort keys %$classlist) { |
# the following undefs are for 'domain', and 'username' respectively. |
# the following undefs are for 'domain', and 'username' respectively. |
Line 124 ENDSCRIPT
|
Line 133 ENDSCRIPT
|
my ($uname,$udom)=($1,$2); |
my ($uname,$udom)=($1,$2); |
if (($uname=~/^$filter/) || |
if (($uname=~/^$filter/) || |
($fullname=~/^$filter/i)) { |
($fullname=~/^$filter/i)) { |
|
my $grouplist = ''; |
|
foreach my $group (@coursegroups) { |
|
if (exists($grouplist{$group.':'.$uname.':'.$udom})) { |
|
my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); |
|
if (($end!=0) && ($end<$now)) { next; } |
|
if (($start!=0) && ($start>$now)) {next; } |
|
$grouplist .= " $group,"; |
|
} |
|
} |
|
$grouplist =~ s/,$//; |
$r->print('<tr><td>'. |
$r->print('<tr><td>'. |
'<input type="button" value="'.&mt('Select').'" onClick="gochoose('. |
'<input type="button" value="'.&mt('Select').'" onClick="gochoose('. |
"'".$uname."','".$udom."')".'" /></td>'. |
"'".$uname."','".$udom."')".'" /></td>'. |
Line 132 ENDSCRIPT
|
Line 151 ENDSCRIPT
|
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
$fullname, |
$fullname, |
$uname,$udom).'</td><td>'.$id.'</td><td>'.$section. |
$uname,$udom).'</td><td>'.$id.'</td><td>'.$section. |
'</td></tr>'); |
'</td><td>'.$grouplist.'</td></tr>'); |
} |
} |
} |
} |
} |
} |