loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1086, 2010/09/26 01:50:33	version 1.1087, 2010/09/30 14:08:51
Line 6861 sub modifyuser {	Line 6861 sub modifyuser {
if ($reply ne 'ok') {	if ($reply ne 'ok') {
return 'error: '.$reply;	return 'error: '.$reply;
}	}
	if ($names{'permanentemail'} ne $oldnames{'permanentemail'}) {
	&Apache::lonnet::devalidate_cache_new('emailscache',$uname.':'.$udom);
	}
my $sqlresult = &update_allusers_table($uname,$udom,\%names);	my $sqlresult = &update_allusers_table($uname,$udom,\%names);
&devalidate_cache_new('namescache',$uname.':'.$udom);	&devalidate_cache_new('namescache',$uname.':'.$udom);
$logmsg = 'Success modifying user '.$logmsg;	$logmsg = 'Success modifying user '.$logmsg;