loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2008/06/24 16:17:05	version 1.60, 2008/07/12 23:56:13
Line 4573 sub can_modify_userinfo {	Line 4573 sub can_modify_userinfo {
if (ref($userroles) eq 'ARRAY') {	if (ref($userroles) eq 'ARRAY') {
foreach my $role (@{$userroles}) {	foreach my $role (@{$userroles}) {
my $testrole;	my $testrole;
if ($role =~ /^cr\//) {	if ($context eq 'selfcreate') {
$testrole = 'cr';
} else {
$testrole = $role;	$testrole = $role;
	} else {
	if ($role =~ /^cr\//) {
	$testrole = 'cr';
	} else {
	$testrole = $role;
	}
}	}
if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {	if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {
if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {	if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {