--- loncom/interface/lonnavmaps.pm	2001/02/08 21:47:44	1.14
+++ loncom/interface/lonnavmaps.pm	2001/09/21 19:56:45	1.15
@@ -9,7 +9,7 @@
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
 #
-# 3/1/1,6/1,17/1,29/1,30/1,2/8 Gerd Kortemeyer
+# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21 Gerd Kortemeyer
 
 package Apache::lonnavmaps;
 
@@ -153,6 +153,19 @@ sub astatus {
     $rid=~/(\d+)\.(\d+)/;
     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
 	     &Apache::lonnet::declutter($hash{'src_'.$rid});
+
+    my %duedate=();
+    my %opendate=();
+    my %answerdate=();
+    map {
+        if ($_=~/^parameter\_(.*)\_opendate$/) {
+	    my $part=$1;
+            $duedate{$part}=&parmval($part.'.duedate',$symb);
+            $opendate{$part}=&parmval($part.'.opendate',$symb);
+            $answerdate{$part}=&parmval($part.'.answerdate',$symb);
+        }
+    } sort split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys'));
+
     my $duedate=&parmval('0.duedate',$symb);
     my $opendate=&parmval('0.opendate',$symb);
     my $answerdate=&parmval('0.answerdate',$symb);