version 1.13, 2001/02/08 17:01:34
|
version 1.15, 2001/09/21 19:56:45
|
Line 9
|
Line 9
|
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 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) |
# 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; |
package Apache::lonnavmaps; |
|
|
Line 153 sub astatus {
|
Line 153 sub astatus {
|
$rid=~/(\d+)\.(\d+)/; |
$rid=~/(\d+)\.(\d+)/; |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&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 $duedate=&parmval('0.duedate',$symb); |
my $opendate=&parmval('0.opendate',$symb); |
my $opendate=&parmval('0.opendate',$symb); |
my $answerdate=&parmval('0.answerdate',$symb); |
my $answerdate=&parmval('0.answerdate',$symb); |
Line 449 sub handler {
|
Line 462 sub handler {
|
'<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
'<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
|
|
$r->print('<body bgcolor="#FFFFFF"'); |
$r->print('<body bgcolor="#FFFFFF"'); |
if ($currenturl=~/^\/res/) { |
if (($currenturl=~/^\/res/) && |
|
($currenturl!~/^\/res\/adm/)) { |
$r->print(' onLoad="window.location.hash='. |
$r->print(' onLoad="window.location.hash='. |
"'curloc'".'"'); |
"'curloc'".'"'); |
} |
} |
Line 457 sub handler {
|
Line 471 sub handler {
|
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<h1>Navigate Course Map</h1>'); |
'<h1>Navigate Course Map</h1>'); |
$r->rflush(); |
$r->rflush(); |
if ($currenturl=~/^\/res/) { |
if (($currenturl=~/^\/res/) && |
|
($currenturl!~/^\/res\/adm/)) { |
$r->print('<a href="#curloc">Current Location</a><p>'); |
$r->print('<a href="#curloc">Current Location</a><p>'); |
} |
} |
# ----------------------------------------------------- The little content list |
# ----------------------------------------------------- The little content list |
Line 476 sub handler {
|
Line 491 sub handler {
|
} |
} |
} |
} |
# ----------------------------------------------------------------- Start table |
# ----------------------------------------------------------------- Start table |
$r->print('<table cols="'.$lcm.'" border="0">'); |
$r->print('<hr><table cols="'.$lcm.'" border="0">'); |
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
$r->print("\n<tr>"); |
$r->print("\n<tr>"); |