--- loncom/interface/lonhtmlcommon.pm	2004/04/12 20:03:31	1.64
+++ loncom/interface/lonhtmlcommon.pm	2004/04/16 15:06:56	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.64 2004/04/12 20:03:31 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.65 2004/04/16 15:06:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -231,7 +231,7 @@ sub date_setter {
 	}
     }
     # other potentially useful values:     wkday,yrday,is_daylight_savings
-    my ($sec,$min,$hour,$mday,$month,$year)=('','','','','','');
+    my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','','');
     if ($currentvalue) {
 	($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) = 
 	    localtime($currentvalue);
@@ -327,7 +327,7 @@ ENDJS
     if ($includeempty) { $result.="<option value=''></option>"; }
     for (my $h = 0;$h<24;$h++) {
         $result .= "      <option value=\"$h\" ";
-        $result .= "selected " if ($hour == $h);
+        $result .= "selected " if (defined($hour) && $hour == $h);
         $result .= "> ";
 	my $timest='';
         if ($h == 0) {