loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1056.2.6, 2010/08/20 20:47:18	version 1.1056.2.7, 2010/10/01 14:26:24
Line 6729 sub modifyuser {	Line 6729 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;