version 1.12, 2006/03/16 21:15:16
|
version 1.14, 2006/03/16 21:53:17
|
Line 42 sub handler {
|
Line 42 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
$r->print(&Apache::loncommon::start_page("Selecting a User")); |
$r->print(&Apache::loncommon::start_page("Selecting a User",undef, |
|
{'no_nav_bar' => 1})); |
|
|
|
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
Line 76 sub handler {
|
Line 77 sub handler {
|
my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); |
my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); |
my $now = time; |
my $now = time; |
my %allgroups; |
my %allgroups; |
my @coursegroups = (); |
&Apache::loncommon::coursegroups(\%allgroups,$cdom,$cnum); |
if (&Apache::loncommon::coursegroups(\%allgroups,$cdom,$cnum)) { |
|
@coursegroups = keys(%allgroups); |
|
} |
|
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
Line 134 ENDSCRIPT
|
Line 132 ENDSCRIPT
|
if (($uname=~/^$filter/) || |
if (($uname=~/^$filter/) || |
($fullname=~/^$filter/i)) { |
($fullname=~/^$filter/i)) { |
my $grouplist = ''; |
my $grouplist = ''; |
foreach my $group (@coursegroups) { |
foreach my $group (sort(keys(%allgroups))) { |
if (exists($grouplist{$group.':'.$uname.':'.$udom})) { |
if (exists($grouplist{$group.':'.$uname.':'.$udom})) { |
my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); |
my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); |
if (($end!=0) && ($end<$now)) { next; } |
if (($end!=0) && ($end<$now)) { next; } |