loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.347, 2010/09/08 02:16:07	version 1.350, 2010/09/26 01:57:21
Line 1461 sub display_existing_roles {	Line 1461 sub display_existing_roles {
$rolesdump{$newkey} = $newvalue;	$rolesdump{$newkey} = $newvalue;
}	}
} else {	} else {
%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
	%rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra);
}	}
# Build up table of user roles to allow revocation and re-enabling of roles.	# Build up table of user roles to allow revocation and re-enabling of roles.
my ($tmp) = keys(%rolesdump);	my ($tmp) = keys(%rolesdump);
Line 3445 sub update_roles {	Line 3446 sub update_roles {
}	}
} # End of foreach (keys(%env))	} # End of foreach (keys(%env))
# Flush the course logs so reverse user roles immediately updated	# Flush the course logs so reverse user roles immediately updated
&Apache::lonnet::flushcourselogs();	$r->register_cleanup(\&Apache::lonnet::flushcourselogs);
if (@rolechanges == 0) {	if (@rolechanges == 0) {
$r->print(&mt('No roles to modify'));	$r->print(&mt('No roles to modify'));
}	}