loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.197, 2002/01/04 16:31:41	version 1.198, 2002/01/04 18:12:23
Line 1736 sub modifyuserauth {	Line 1736 sub modifyuserauth {
sub modifyuser {	sub modifyuser {
my ($udom,$uname,$uid,$umode,$upass,$first,$middle,$last,$gene,	my ($udom,$uname,$uid,$umode,$upass,$first,$middle,$last,$gene,
$forceid)=@_;	$forceid)=@_;
	$udom=~s/\W//g;
	$uname=~s/\W//g;
&logthis('Call to modify user '.$udom.', '.$uname.', '.$uid.', '.	&logthis('Call to modify user '.$udom.', '.$uname.', '.$uid.', '.
$umode.', '.$first.', '.$middle.', '.	$umode.', '.$first.', '.$middle.', '.
$last.', '.$gene.'(forceid: '.$forceid.') by '.	$last.', '.$gene.'(forceid: '.$forceid.') by '.