loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

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)/);
}	}
}	}