--- rat/lonpage.pm 2000/09/23 20:12:46 1.8 +++ rat/lonpage.pm 2000/10/02 21:33:40 1.10 @@ -4,7 +4,8 @@ # (TeX Content Handler # # 05/29/00,05/30 Gerd Kortemeyer) -# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23 Gerd Kortemeyer +# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, +# 10/02 Gerd Kortemeyer package Apache::lonpage; @@ -122,7 +123,22 @@ 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 $lcm=1; my $contents=0; @@ -246,7 +262,6 @@ sub handler { } else { $r->print(''); } - # ------------------------------------------------------------------ Start form if ($nforms) { $r->print('