--- loncom/lonnet/perl/lonnet.pm 2002/08/09 19:49:30 1.266 +++ loncom/lonnet/perl/lonnet.pm 2002/08/29 03:52:37 1.267.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.266 2002/08/09 19:49:30 albertel Exp $ +# $Id: lonnet.pm,v 1.267.2.1 2002/08/29 03:52:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1114,7 +1114,7 @@ sub str2hashref { } } else { $string =~ s/^(.*?)=//; - $key=$1 + $key=&unescape($1); } $string =~ s/^=//; @@ -2831,8 +2831,9 @@ sub metadata { # the next is the end of "start tag" } } - &metadata_generate_part0(\%metathesekeys,\%metacache,$uri); $metacache{$uri.':keys'}=join(',',keys %metathesekeys); + &metadata_generate_part0(\%metathesekeys,\%metacache,$uri); + $metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys); $metacache{$uri.':cachedtimestamp'}=time; # this is the end of "was not already recently cached }