version 1.219, 2006/01/27 02:17:26
|
version 1.221, 2006/02/07 19:46:30
|
Line 1401 sub entryline {
|
Line 1401 sub entryline {
|
$foldertitle; |
$foldertitle; |
} |
} |
$renametitle=~s/\"\;/\\\"/g; |
$renametitle=~s/\"\;/\\\"/g; |
|
$renametitle=~s/\\/\\\\/g; |
my $line='<tr>'; |
my $line='<tr>'; |
# Edit commands |
# Edit commands |
my $container; |
my $container; |
Line 1666 sub tiehash {
|
Line 1667 sub tiehash {
|
sub untiehash { |
sub untiehash { |
if ($hashtied) { untie %hash; } |
if ($hashtied) { untie %hash; } |
$hashtied=0; |
$hashtied=0; |
|
return OK; |
} |
} |
|
|
# --------------------------------------------------------------- check on this |
# --------------------------------------------------------------- check on this |