version 1.221, 2014/05/31 16:01:33
|
version 1.222, 2014/12/11 01:46:17
|
Line 623 END
|
Line 623 END
|
|
|
|
|
# ----------------- read in what directories have previously been set to "open" |
# ----------------- read in what directories have previously been set to "open" |
foreach (keys %hash) { |
foreach (keys(%hash)) { |
if ($_ =~ /^diropen_status_/) { |
if ($_ =~ /^diropen_status_/) { |
my $key = $_; |
my $key = $_; |
$key =~ s/^diropen_status_//; |
$key =~ s/^diropen_status_//; |
Line 754 sub get_list {
|
Line 754 sub get_list {
|
|
|
(my $luri = $uri) =~ s/\//_/g; |
(my $luri = $uri) =~ s/\//_/g; |
if ($env{'form.updatedisplay'}) { |
if ($env{'form.updatedisplay'}) { |
foreach (keys %hash) { |
foreach (keys(%hash)) { |
delete $hash{$_} if ($_ =~ /^dirlist_files_/); |
delete $hash{$_} if ($_ =~ /^dirlist_files_/); |
delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/); |
delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/); |
} |
} |
Line 1432 sub start_fresh_session {
|
Line 1432 sub start_fresh_session {
|
delete $hash->{'form.element'}; |
delete $hash->{'form.element'}; |
delete $hash->{'form.omit'}; |
delete $hash->{'form.omit'}; |
delete $hash->{'form.only'}; |
delete $hash->{'form.only'}; |
foreach (keys %{$hash}) { |
foreach (keys(%{$hash})) { |
delete $hash->{$_} if (/^(pre_|store)/); |
delete $hash->{$_} if (/^(pre_|store)/); |
} |
} |
} |
} |