[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Sat Mar 23 09:54:16 2002 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - value could be false, more concerened about whether it is defined
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.27 loncom/interface/loncommon.pm:1.28
--- loncom/interface/loncommon.pm:1.27	Thu Mar 21 15:24:21 2002
+++ loncom/interface/loncommon.pm	Sat Mar 23 09:54:16 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.27 2002/03/21 20:24:21 albertel Exp $
+# $Id: loncommon.pm,v 1.28 2002/03/23 14:54:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -392,7 +392,7 @@
 
 sub add_to_env {
   my ($name,$value)=@_;
-  if ($ENV{$name}) {
+  if (defined($ENV{$name})) {
     if (ref($ENV{$name})) {
       #already have multiple values
       push(@{ $ENV{$name} },$value);