[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 10 Nov 2003 21:50:21 -0000
www Mon Nov 10 16:50:21 2003 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
When fixing up versions, do not explicitly glue in current version number.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.443 loncom/lonnet/perl/lonnet.pm:1.444
--- loncom/lonnet/perl/lonnet.pm:1.443 Mon Nov 10 15:27:32 2003
+++ loncom/lonnet/perl/lonnet.pm Mon Nov 10 16:50:21 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.443 2003/11/10 20:27:32 albertel Exp $
+# $Id: lonnet.pm,v 1.444 2003/11/10 21:50:21 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4069,7 +4069,8 @@
&GDBM_READER(),0640)) {
if ($bighash{'version_'.$uri}) {
my $version=$bighash{'version_'.$uri};
- unless ($version eq 'mostrecent') {
+ unless (($version eq 'mostrecent') ||
+ ($version==&getversion($uri))) {
$uri=~s/\.(\w+)$/\.$version\.$1/;
}
}