version 1.268.2.2, 2008/12/15 00:54:54
|
version 1.268.2.3, 2008/12/18 17:28:24
|
Line 2125 sub update_user_data {
|
Line 2125 sub update_user_data {
|
&Apache::lonnet::put('environment',\%changeHash, |
&Apache::lonnet::put('environment',\%changeHash, |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
if ($chgresult eq 'ok') { |
if ($chgresult eq 'ok') { |
my %newenvhash; |
|
my $hashid="$env{'form.ccuname'}:$env{'form.ccdomain'}"; |
|
foreach my $key (keys(%changed)) { |
|
if ($key ne 'quota') { |
|
&Apache::lonnet::devalidate_cache_new('usertools.'.$key,$hashid); |
|
$newenvhash{'environment.tools.'.$key} = |
|
$changeHash{'tools.'.$key}; |
|
} |
|
} |
|
if (($env{'user.name'} eq $env{'form.ccuname'}) && |
if (($env{'user.name'} eq $env{'form.ccuname'}) && |
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
&Apache::lonnet::appenv(\%newenvhash); |
my %newenvhash; |
|
foreach my $key (keys(%changed)) { |
|
if ($key ne 'quota') { |
|
$newenvhash{'environment.tools.'.$key} = |
|
$changeHash{'tools.'.$key}; |
|
$newenvhash{'environment.availabletools.'.$key} = |
|
$changeHash{'tools.'.$key}; |
|
} |
|
} |
|
if (keys(%newenvhash)) { |
|
&Apache::lonnet::appenv(\%newenvhash); |
|
} |
} |
} |
} |
} |
} |
} |