version 1.7, 2006/08/08 18:20:50
|
version 1.8, 2007/07/25 17:43:34
|
Line 89 while (my $fname = shift) {
|
Line 89 while (my $fname = shift) {
|
} |
} |
while (my ($key,$value) = each(%$dbref)) { |
while (my ($key,$value) = each(%$dbref)) { |
if ($value =~ s/^__FROZEN__//) { |
if ($value =~ s/^__FROZEN__//) { |
#$value = thaw(&unescape($value)); |
$value = thaw(&unescape($value)); |
} |
} |
if ($unesc) { |
if ($unesc) { |
$key = &unescape($key); |
$key = &unescape($key); |
Line 100 while (my $fname = shift) {
|
Line 100 while (my $fname = shift) {
|
} |
} |
print "$key = ".(ref($value)?Dumper($value):$value)."\n"; |
print "$key = ".(ref($value)?Dumper($value):$value)."\n"; |
} |
} |
&LONCAPA::locking_hash_untie($dbref); |
if ($fname =~ m/^\Q$perlvar{'lonUsersDir'}\E/) { |
|
&LONCAPA::locking_hash_untie($dbref); |
|
} else { |
|
untie($dbref); |
|
} |
} |
} |
exit; |
exit; |
|
|