version 1.13, 2001/02/08 17:01:34
|
version 1.14, 2001/02/08 21:47:44
|
Line 449 sub handler {
|
Line 449 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 458 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 478 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>"); |