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

[raeburn]

raeburn		Mon Sep 29 18:58:41 2008 EDT

  Modified files:              (Branch: version_2_7_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.688.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.679.2.5 loncom/interface/loncommon.pm:1.679.2.6
--- loncom/interface/loncommon.pm:1.679.2.5	Fri Sep 19 19:09:29 2008
+++ loncom/interface/loncommon.pm	Mon Sep 29 18:58:41 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.679.2.5 2008/09/19 23:09:29 raeburn Exp $
+# $Id: loncommon.pm,v 1.679.2.6 2008/09/29 22:58:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8330,8 +8330,10 @@
     } elsif ($origmail ne '') {
         push(@recipients,$origmail);
     }
-    if ($defmail ne '') {
-        push(@recipients,$defmail);
+    if (defined($defmail)) {
+        if ($defmail ne '') {
+            push(@recipients,$defmail);
+        }
     }
     if ($otheremails) {
         my @others;