loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.136, 2011/08/05 14:46:58	version 1.138, 2012/04/25 21:22:01
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 $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});	my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
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);
Line 1422 sub curr_role_permissions {	Line 1421 sub curr_role_permissions {
sub my_custom_roles {	sub my_custom_roles {
my ($crstype) = @_;	my ($crstype) = @_;
my %returnhash=();	my %returnhash=();
	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
my %rolehash=&Apache::lonnet::dump('roles');	my %rolehash=&Apache::lonnet::dump('roles');
foreach my $key (keys(%rolehash)) {	foreach my $key (keys(%rolehash)) {
if ($key=~/^rolesdef\_(\w+)$/) {	if ($key=~/^rolesdef\_(\w+)$/) {