[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/;
  	    }
  	}