version 1.213.4.7, 2014/06/09 21:35:19
|
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 1344 sub coursecontext {
|
Line 1344 sub coursecontext {
|
$r->print( |
$r->print( |
&mt('Already in this course:').'<br />' |
&mt('Already in this course:').'<br />' |
.&mt('[_1] in folder/map [_2]', |
.&mt('[_1] in folder/map [_2]', |
&Apache::lonnet::gettitle($resource), |
&Apache::lonnet::gettitle($resource), |
&Apache::lonnet::gettitle($map)) |
&Apache::lonnet::gettitle($map)) |
.'<br />'); |
.'<br />'); |
} |
} |
} |
} |
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)/); |
} |
} |
} |
} |