version 1.268.2.2, 2008/12/15 00:54:54
|
version 1.268.2.4, 2008/12/28 22:13:27
|
Line 213 END_SCRIPT
|
Line 213 END_SCRIPT
|
$tool_on = ''; |
$tool_on = ''; |
} |
} |
} |
} |
$curr_access = &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item); |
|
$output .= ' <tr class="LC_info_row">'."\n". |
$output .= ' <tr class="LC_info_row">'."\n". |
' <td>'.$lt{$item}.'</td>'."\n". |
' <td>'.$lt{$item}.'</td>'."\n". |
' </tr>'."\n". |
' </tr>'."\n". |
Line 2071 sub update_user_data {
|
Line 2070 sub update_user_data {
|
} |
} |
} else { |
} else { |
$changed{$tool} = &tool_admin($tool,'',\%changeHash); |
$changed{$tool} = &tool_admin($tool,'',\%changeHash); |
print STDERR "for $tool - changed is $changed{$tool}\n"; |
|
if ($changed{$tool}) { |
if ($changed{$tool}) { |
$newaccess{$tool} = &mt('default'); |
$newaccess{$tool} = &mt('default'); |
} else { |
} else { |
Line 2125 sub update_user_data {
|
Line 2123 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); |
|
} |
} |
} |
} |
} |
} |
} |