loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.385, 2003/07/02 15:25:46	version 1.386, 2003/07/03 19:26:21
Line 2774 sub modifyuser {	Line 2774 sub modifyuser {
}	}
$uhome=&homeserver($uname,$udom,'true');	$uhome=&homeserver($uname,$udom,'true');
if (($uhome eq '') \|\| ($uhome eq 'no_host') \|\| ($uhome ne $unhome)) {	if (($uhome eq '') \|\| ($uhome eq 'no_host') \|\| ($uhome ne $unhome)) {
return 'error: verify home';	return 'error: unable verify users home machine.';
}	}
} # End of creation of new user	} # End of creation of new user
# ---------------------------------------------------------------------- Add ID	# ---------------------------------------------------------------------- Add ID
Line 2784 sub modifyuser {	Line 2784 sub modifyuser {
if (($uidhash{$uname}) && ($uidhash{$uname}!~/error\:/)	if (($uidhash{$uname}) && ($uidhash{$uname}!~/error\:/)
&& (!$forceid)) {	&& (!$forceid)) {
unless ($uid eq $uidhash{$uname}) {	unless ($uid eq $uidhash{$uname}) {
return 'error: mismatch '.$uidhash{$uname}.' versus '.$uid;	return 'error: user id "'.$uid.'" does not match '.
	'current user id "'.$uidhash{$uname}.'".';
}	}
} else {	} else {
&idput($udom,($uname => $uid));	&idput($udom,($uname => $uid));