version 1.2, 2001/01/06 13:45:37
|
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 146 sub handler {
|
Line 152 sub handler {
|
} |
} |
} |
} |
|
|
# ------------------------------------------------------------ Add to symb list |
|
|
|
my $i; |
|
my %symbhash=(); |
|
for ($i=0;$i<=$#rows;$i++) { |
|
if ($rows[$i]) { |
|
my @colcont=split(/\&/,$rows[$i]); |
|
map { |
|
$symbhash{$hash{'src_'.$_}}=''; |
|
} @colcont; |
|
} |
|
} |
|
&Apache::lonnet::symblist($requrl,%symbhash); |
|
|
|
# ------------------------------------------------------------------ Page parms |
# ------------------------------------------------------------------ Page parms |
|
|
my $j; |
my $j; |
|
my $i; |
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
|
|
Line 176 sub handler {
|
Line 169 sub handler {
|
} |
} |
} |
} |
|
|
|
|
unless ($contents) { |
unless ($contents) { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 191 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(); |
# ----------------------------------------------------------------- Start table |
# ----------------------------------------------------------------- Start table |
$r->print('<table cols="'.$lcm.'" border="0">'); |
$r->print('<table cols="'.$lcm.'" border="0">'); |
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
Line 202 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>'); |
Line 232 sub handler {
|
Line 232 sub handler {
|
} |
} |
} |
} |
} |
} |
|
|
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |