loncom/interface/lonpickstudent.pm - diff

Return to lonpickstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2006/03/16 21:34:04	version 1.14, 2006/03/16 21:53:17
Line 77 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 135 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; }