--- loncom/interface/lonhtmlcommon.pm	2004/04/07 22:33:00	1.63
+++ loncom/interface/lonhtmlcommon.pm	2004/04/19 16:43:03	1.66
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.63 2004/04/07 22:33:00 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.66 2004/04/19 16:43:03 matthew 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) {
@@ -392,12 +392,14 @@ sub get_date_from_form {
         if (($tmpsec =~ /^\d+$/) && ($tmpsec >= 0) && ($tmpsec < 60)) {
             $sec = $tmpsec;
         }
+	if (!defined($tmpsec) || $tmpsec eq '') { $sec = 0; }
     }
     if (defined($ENV{'form.'.$dname.'_minute'})) {
         my $tmpmin = $ENV{'form.'.$dname.'_minute'};
         if (($tmpmin =~ /^\d+$/) && ($tmpmin >= 0) && ($tmpmin < 60)) {
             $min = $tmpmin;
         }
+	if (!defined($tmpmin) || $tmpmin eq '') { $min = 0; }
     }
     if (defined($ENV{'form.'.$dname.'_hour'})) {
         my $tmphour = $ENV{'form.'.$dname.'_hour'};
@@ -950,7 +952,7 @@ returns: nothing
         #
         # The first one should be the course, I guess.
 	if (!defined($menulink)) { $menulink=1; }
-        if ($menulink && exists($ENV{'request.course.id'})) {
+        if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {
             my $cid = $ENV{'request.course.id'};
             unshift(@Crumbs,{
                              href=>'/adm/menu',