[BACK]Return to lonindexer.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.213.4.7 and 1.222

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)/);
     }      }
 }  }
Removed from v.1.213.4.7  
changed lines
  Added in v.1.222

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>