[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[albertel]

albertel		Wed Aug 29 18:19:25 2007 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - BUG#5303 (part 1) don't treat a blank default value as an interesting value
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.907 loncom/lonnet/perl/lonnet.pm:1.908
--- loncom/lonnet/perl/lonnet.pm:1.907	Tue Aug 21 19:34:38 2007
+++ loncom/lonnet/perl/lonnet.pm	Wed Aug 29 18:19:24 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.907 2007/08/21 23:34:38 albertel Exp $
+# $Id: lonnet.pm,v 1.908 2007/08/29 22:19:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6696,10 +6696,11 @@
 		 # only ws inside the tag, and not in default, so use default
 		 # as value
 			    $metaentry{':'.$unikey}=$default;
-			} else {
-		  # either something interesting inside the tag or default
-                  # uninteresting
+			} elsif ( $internaltext =~ /\S/ ) {
+		  # something interesting inside the tag
 			    $metaentry{':'.$unikey}=$internaltext;
+			} else {
+		  # no interesting values, don't set a default
 			}
 # end of not-a-package not-a-library import
 		    }