version 1.2, 2001/01/06 13:45:37
|
version 1.5, 2001/01/06 20:17:33
|
Line 146 sub handler {
|
Line 146 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 163 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 192 sub handler {
|
Line 180 sub handler {
|
|
|
$r->print('<body bgcolor="#FFFFFF">'. |
$r->print('<body bgcolor="#FFFFFF">'. |
'<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 232 sub handler {
|
Line 220 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; |
} |
} |