Diff for /rat/lonuserstate.pm between versions 1.107.2.1 and 1.109

version 1.107.2.1, 2006/05/11 23:56:27 version 1.109, 2006/05/05 15:50:20
Line 545  sub hiddenurls { Line 545  sub hiddenurls {
 sub readmap {  sub readmap {
     my $short=shift;      my $short=shift;
     $short=~s/^\///;      $short=~s/^\///;
     my %cenv=&Apache::lonnet::coursedescription($short);      my %cenv=&Apache::lonnet::coursedescription($short,{'freshen_cache'=>1});
     my $fn=$cenv{'fn'};      my $fn=$cenv{'fn'};
     my $uri;      my $uri;
     $short=~s/\//\_/g;      $short=~s/\//\_/g;
Line 592  sub readmap { Line 592  sub readmap {
  }   }
 # ------------------------------------------------------- Put versions into src  # ------------------------------------------------------- Put versions into src
  foreach my $key (keys(%hash)) {   foreach my $key (keys(%hash)) {
     if ($key=~/^src_/) {      if ($key=~/^src\_/) {
  $hash{$key}=&putinversion($hash{$key});   $hash{$key}=&putinversion($hash{$key});
     } elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) {  
  &Apache::lonnet::logthis($key);  
  my ($type, $url) = ($1,$2);  
  my $value = $hash{$key};  
  delete($hash{$key});  
  $hash{$type.&putinversion($url)}=$value;  
     }      }
  }   }
 # ---------------------------------------------------------------- Encrypt URLs  # ---------------------------------------------------------------- Encrypt URLs

Removed from v.1.107.2.1  
changed lines
  Added in v.1.109


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