loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97.2.18, 2010/08/20 20:28:21	version 1.97.2.19, 2010/11/01 13:46:36
Line 47 sub modifystudent {	Line 47 sub modifystudent {
# this one. If $csec is defined, drop them from all other sections of	# this one. If $csec is defined, drop them from all other sections of
# this course and add them to section $csec	# this course and add them to section $csec
my ($cnum,$cdom) = &get_course_identity($courseid);	my ($cnum,$cdom) = &get_course_identity($courseid);
my %roles = &Apache::lonnet::dump('roles',$udom,$unam);	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
	my %roles = &Apache::lonnet::dump('roles',$udom,$unam,'.',undef,$extra);
my ($tmp) = keys(%roles);	my ($tmp) = keys(%roles);
# Bail out if we were unable to get the students roles	# Bail out if we were unable to get the students roles
return "$1" if ($tmp =~ /^(con_lost\|error\|no_such_host)/i);	return "$1" if ($tmp =~ /^(con_lost\|error\|no_such_host)/i);