--- loncom/interface/lonnavmaps.pm 2001/01/06 13:45:37 1.2 +++ loncom/interface/lonnavmaps.pm 2001/01/11 16:25:40 1.6 @@ -45,6 +45,12 @@ sub tracetable { $beenhere.=$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}})) && (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; @@ -146,23 +152,10 @@ 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 my $j; + my $i; my $lcm=1; my $contents=0; @@ -176,6 +169,7 @@ sub handler { } } + unless ($contents) { $r->content_type('text/html'); $r->send_http_header; @@ -191,8 +185,9 @@ sub handler { 'Navigate LON-CAPA Maps'); $r->print(''. + ''. '

Navigate Course Map

'); - + $r->rflush(); # ----------------------------------------------------------------- Start table $r->print(''); for ($i=0;$i<=$#rows;$i++) { @@ -202,7 +197,12 @@ sub handler { my $avespan=$lcm/($#colcont+1); for ($j=0;$j<=$#colcont;$j++) { my $rid=$colcont[$j]; - $r->print(''); @@ -232,6 +232,7 @@ sub handler { } } } + $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; return HTTP_NOT_ACCEPTABLE; }
'; + } + $r->print($add.''. $hash{'title_'.$rid}.''); $r->print('