loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.126, 2010/09/20 00:51:15	version 1.127, 2010/09/26 01:57:21
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);