version 1.444, 2003/11/10 21:50:21
|
version 1.446, 2003/11/10 23:57:49
|
Line 247 sub transfer_profile_to_env {
|
Line 247 sub transfer_profile_to_env {
|
} |
} |
} |
} |
} |
} |
|
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
foreach my $expired_key (keys(%Remove)) { |
foreach my $expired_key (keys(%Remove)) { |
&delenv($expired_key); |
&delenv($expired_key); |
} |
} |
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
|
} |
} |
|
|
# ---------------------------------------------------------- Append Environment |
# ---------------------------------------------------------- Append Environment |
Line 895 EVALBLOCK
|
Line 895 EVALBLOCK
|
} |
} |
} else { |
} else { |
if (-e $filename) { |
if (-e $filename) { |
&logthis("Unable to tie hash (save cache item): $name"); |
&logthis("Unable to tie hash (save cache item): $name ($!)"); |
unlink($filename); |
unlink($filename); |
} |
} |
} |
} |
Line 939 EVALBLOCK
|
Line 939 EVALBLOCK
|
} |
} |
} else { |
} else { |
if (-e $filename) { |
if (-e $filename) { |
&logthis("Unable to tie hash (load cache item): $name"); |
&logthis("Unable to tie hash (load cache item): $name ($!)"); |
unlink($filename); |
unlink($filename); |
} |
} |
} |
} |