Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.266 and 1.267.2.1

version 1.266, 2002/08/09 19:49:30 version 1.267.2.1, 2002/08/29 03:52:37
Line 1114  sub str2hashref { Line 1114  sub str2hashref {
           }            }
       } else {        } else {
           $string =~ s/^(.*?)=//;            $string =~ s/^(.*?)=//;
   $key=$1    $key=&unescape($1);
       }        }
       $string =~ s/^=//;        $string =~ s/^=//;
   
Line 2831  sub metadata { Line 2831  sub metadata {
 # the next is the end of "start tag"  # the next is the end of "start tag"
  }   }
        }         }
  &metadata_generate_part0(\%metathesekeys,\%metacache,$uri);  
        $metacache{$uri.':keys'}=join(',',keys %metathesekeys);         $metacache{$uri.':keys'}=join(',',keys %metathesekeys);
    &metadata_generate_part0(\%metathesekeys,\%metacache,$uri);
          $metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys);
        $metacache{$uri.':cachedtimestamp'}=time;         $metacache{$uri.':cachedtimestamp'}=time;
 # this is the end of "was not already recently cached  # this is the end of "was not already recently cached
     }      }

Removed from v.1.266  
changed lines
  Added in v.1.267.2.1


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