--- loncom/interface/lonnavmaps.pm	2002/09/05 19:47:29	1.48
+++ loncom/interface/lonnavmaps.pm	2002/09/09 16:40:01	1.49
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.48 2002/09/05 19:47:29 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.49 2002/09/09 16:40:01 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -195,12 +195,18 @@ sub astatus {
     my %opendate=();
     my %answerdate=();
     # need to always check part 0's open/due/answer status
-    foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys')))) {
+    foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'allpossiblekeys')))) {
         if ($_=~/^parameter\_(.*)\_opendate$/) {
 	    my $part=$1;
             $duedate{$part}=&parmval($part.'.duedate',$symb);
             $opendate{$part}=&parmval($part.'.opendate',$symb);
             $answerdate{$part}=&parmval($part.'.answerdate',$symb);
+            if (&parmval($part.'.opendate.type',$symb) eq 'date_interval') {
+		$opendate{$part}=$duedate{$part}-$opendate{$part};
+            }
+            if (&parmval($part,'.answerdate.type',$symb) eq 'date_interval') {
+                $answerdate{$part}=$duedate{$part}+$answerdate{$part};
+            }
         }
     }
     my $now=time;