--- loncom/interface/lonnavmaps.pm	2003/09/20 13:21:45	1.231
+++ loncom/interface/lonnavmaps.pm	2003/10/08 19:22:17	1.238
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.231 2003/09/20 13:21:45 www Exp $
+# $Id: lonnavmaps.pm,v 1.238 2003/10/08 19:22:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -107,9 +107,9 @@ sub real_handler {
     # Handle header-only request
     if ($r->header_only) {
         if ($ENV{'browser.mathml'}) {
-            $r->content_type('text/xml');
+            &Apache::loncommon::content_type($r,'text/xml');
         } else {
-            $r->content_type('text/html');
+            &Apache::loncommon::content_type($r,'text/html');
         }
         $r->send_http_header;
         return OK;
@@ -117,9 +117,9 @@ sub real_handler {
 
     # Send header, don't cache this page
     if ($ENV{'browser.mathml'}) {
-        $r->content_type('text/xml');
+        &Apache::loncommon::content_type($r,'text/xml');
     } else {
-        $r->content_type('text/html');
+        &Apache::loncommon::content_type($r,'text/html');
     }
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
@@ -127,7 +127,6 @@ sub real_handler {
     # Create the nav map
     my $navmap = Apache::lonnavmaps::navmap->new();
 
-
     if (!defined($navmap)) {
         my $requrl = $r->uri;
         $ENV{'user.error.msg'} = "$requrl:bre:0:0:Course not initialized";
@@ -433,7 +432,7 @@ sub timeToHumanString {
         return &mt('never');
     }
     unless (&Apache::lonlocal::current_language()=~/^en/) {
-	return localtime($time);
+	return &Apache::lonlocal::locallocaltime($time);
     } 
     my $now = time();
 
@@ -502,7 +501,7 @@ sub timeToHumanString {
         # HH:MM
         if ( $delta < $day * 5 ) {
             my $timeStr = strftime("%A, %b %e at %I:%M %P", localtime($time));
-            $timeStr =~ s/12:00 am/midnight/;
+            $timeStr =~ s/12:00 am/00:00/;
             $timeStr =~ s/12:00 pm/noon/;
             return ($inPast ? "last " : "next ") .
                 $timeStr;
@@ -512,14 +511,14 @@ sub timeToHumanString {
         if ( $time[5] == $now[5]) {
             # Return on Month Day, HH:MM meridian
             my $timeStr = strftime("on %A, %b %e at %I:%M %P", localtime($time));
-            $timeStr =~ s/12:00 am/midnight/;
+            $timeStr =~ s/12:00 am/00:00/;
             $timeStr =~ s/12:00 pm/noon/;
             return $timeStr;
         }
 
         # Not this year, so show the year
         my $timeStr = strftime("on %A, %b %e %G at %I:%M %P", localtime($time));
-        $timeStr =~ s/12:00 am/midnight/;
+        $timeStr =~ s/12:00 am/00:00/;
         $timeStr =~ s/12:00 pm/noon/;
         return $timeStr;
     }
@@ -1587,7 +1586,6 @@ sub render {
 	    # If we have the connection, make sure the user is still connected
 	    my $c = $r->connection;
 	    if ($c->aborted()) {
-		Apache::lonnet::logthis("navmaps aborted");
 		# Who cares what we do, nobody will see it anyhow.
 		return '';
 	    }
@@ -3369,7 +3367,7 @@ sub opendate {
 }
 sub problemstatus {
     (my $self, my $part) = @_;
-    return $self->parmval("problemstatus", $part);
+    return lc $self->parmval("problemstatus", $part);
 }
 sub sig {
     (my $self, my $part) = @_;
@@ -3547,7 +3545,11 @@ sub responseType {
     my $part = shift;
 
     $self->extractParts();
-    return $self->{RESPONSE_TYPES}->{$part};
+    if (defined($self->{RESPONSE_TYPES}->{$part})) {
+	return @{$self->{RESPONSE_TYPES}->{$part}};
+    } else {
+	return undef;
+    }
 }
 
 sub responseIds {
@@ -3555,7 +3557,11 @@ sub responseIds {
     my $part = shift;
 
     $self->extractParts();
-    return $self->{RESPONSE_IDS}->{$part};
+    if (defined($self->{RESPONSE_IDS}->{$part})) {
+	return @{$self->{RESPONSE_IDS}->{$part}};
+    } else {
+	return undef;
+    }
 }
 
 # Private function: Extracts the parts information, both part names and
@@ -3629,8 +3635,7 @@ sub extractParts {
                         my @otherChunks = @partChunks[$i+1..$#partChunks];
                         my $responseId = join('_', @otherChunks);
                         push @{$responseIdHash{$partIdSoFar}}, $responseId;
-                        $responseTypeHash{$partIdSoFar} = $responseType;
-                        last;
+                        push @{$responseTypeHash{$partIdSoFar}}, $responseType;
                     }
                 }
             }
@@ -3948,7 +3953,12 @@ sub status {
     #if ($self->{RESOURCE_ERROR}) { return NETWORK_FAILURE; }
     if ($completionStatus == NETWORK_FAILURE) { return NETWORK_FAILURE; }
 
-    my $suppressFeedback = lc($self->parmval("problemstatus", $part)) eq 'no';
+    my $suppressFeedback = $self->problemstatus($part) eq 'no';
+    # If there's an answer date and we're past it, don't
+    # suppress the feedback; student should know
+    if ($self->answerdate($part) && $self->answerdate($part) < time()) {
+	$suppressFeedback = 0;
+    }
 
     # There are a few whole rows we can dispose of:
     if ($completionStatus == CORRECT ||