loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.290, 2005/11/15 15:52:51	version 1.291, 2005/11/15 16:04:14
Line 3128 sub get_course_users {	Line 3128 sub get_course_users {
my $now = time;	my $now = time;
foreach my $student (keys(%{$classlist})) {	foreach my $student (keys(%{$classlist})) {
my $match = 0;	my $match = 0;
if (ref($sections) eq 'ARRAY') && (@{$sections} > 0) {	if ((ref($sections) eq 'ARRAY') && (@{$sections} > 0)) {
unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/,	unless(grep(/^\Q$$classlist{$student}[$idx{section}]\E$/,
@{$sections})) {	@{$sections})) {
next;	next;
Line 3207 sub get_user_info {	Line 3207 sub get_user_info {
my ($udom,$uname,$idx,$userdata) = @_;	my ($udom,$uname,$idx,$userdata) = @_;
$$userdata{$uname.':'.$udom}[$$idx{fullname}] =	$$userdata{$uname.':'.$udom}[$$idx{fullname}] =
&plainname($uname,$udom,'lastname');	&plainname($uname,$udom,'lastname');
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname	$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname;
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom	$$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom;
return;	return;
}	}