--- loncom/interface/lonnavmaps.pm 2001/02/08 17:01:34 1.13
+++ 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);
@@ -449,7 +462,8 @@ sub handler {
'Navigate LON-CAPA Maps');
$r->print('print(' onLoad="window.location.hash='.
"'curloc'".'"');
}
@@ -457,7 +471,8 @@ sub handler {
'
'.
'Navigate Course Map
');
$r->rflush();
- if ($currenturl=~/^\/res/) {
+ if (($currenturl=~/^\/res/) &&
+ ($currenturl!~/^\/res\/adm/)) {
$r->print('Current Location');
}
# ----------------------------------------------------- The little content list
@@ -476,7 +491,7 @@ sub handler {
}
}
# ----------------------------------------------------------------- Start table
- $r->print('
');
+ $r->print('
');
for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {
$r->print("\n");