[LON-CAPA-cvs] cvs: loncom(version_0_5_1) /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 29 Aug 2002 03:52:38 -0000
albertel Wed Aug 28 23:52:38 2002 EDT
Modified files: (Branch: version_0_5_1)
/loncom/lonnet/perl lonnet.pm
Log:
- backport of 1.274 changes to version_0_5_1
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.267 loncom/lonnet/perl/lonnet.pm:1.267.2.1
--- loncom/lonnet/perl/lonnet.pm:1.267 Tue Aug 13 10:37:52 2002
+++ loncom/lonnet/perl/lonnet.pm Wed Aug 28 23:52:37 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.267 2002/08/13 14:37:52 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
#
@@ -2831,8 +2831,9 @@
# 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
}