version 1.4, 2001/01/06 20:08:10
|
version 1.6, 2001/01/11 16:25:40
|
Line 45 sub tracetable {
|
Line 45 sub tracetable {
|
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
|
|
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'is_map_'.$rid})) { |
|
$sofar++; |
|
if (defined($rows[$sofar])) { |
|
$rows[$sofar].='&h'.$rid; |
|
} else { |
|
$rows[$sofar]='h'.$rid; |
|
} |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
Line 149 sub handler {
|
Line 155 sub handler {
|
# ------------------------------------------------------------------ Page parms |
# ------------------------------------------------------------------ Page parms |
|
|
my $j; |
my $j; |
|
my $i; |
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
|
|
Line 161 sub handler {
|
Line 168 sub handler {
|
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
} |
} |
} |
} |
} |
|
|
|
unless ($contents) { |
unless ($contents) { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
Line 178 sub handler {
|
Line 185 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">'. |
|
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<h1>Navigate Course Map</h1>'); |
'<h1>Navigate Course Map</h1>'); |
$r->rflush(); |
$r->rflush(); |
# ----------------------------------------------------------------- Start table |
# ----------------------------------------------------------------- Start table |
Line 189 sub handler {
|
Line 197 sub handler {
|
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
$r->print('<td><a href="'. |
my $add='<td> '; |
|
if ($rid=~/^h(.+)/) { |
|
$rid=$1; |
|
$add='<th bgcolor="#AAFF55">'; |
|
} |
|
$r->print($add.'<a href="'. |
$hash{'src_'.$rid}.'">'. |
$hash{'src_'.$rid}.'">'. |
$hash{'title_'.$rid}.'</a>'); |
$hash{'title_'.$rid}.'</a>'); |
$r->print('</td>'); |
$r->print('</td>'); |