version 1.7, 2000/09/22 10:28:41
|
version 1.9, 2000/09/25 20:31:33
|
Line 4
|
Line 4
|
# (TeX Content Handler |
# (TeX Content Handler |
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 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 Gerd Kortemeyer |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23 Gerd Kortemeyer |
|
|
package Apache::lonpage; |
package Apache::lonpage; |
|
|
Line 122 sub handler {
|
Line 122 sub handler {
|
} |
} |
} |
} |
|
|
|
# ------------------------------------------------------------ Add to symb list |
|
|
my $i; |
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 $j; |
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
Line 158 sub handler {
|
Line 173 sub handler {
|
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
my %posthash=('request.prefix' => $prefix); |
my %posthash=('request.prefix' => $prefix); |
if (($ENV{'$form.'.$prefix.'submit'}) |
if (($ENV{'form.'.$prefix.'submit'}) |
|| ($ENV{'form.all_submit'})) { |
|| ($ENV{'form.all_submit'})) { |
map { |
map { |
if ($_=~/^form.$prefix/) { |
if ($_=~/^form.$prefix/) { |
Line 246 sub handler {
|
Line 261 sub handler {
|
} else { |
} else { |
$r->print('<body bgcolor="#FFFFFF">'); |
$r->print('<body bgcolor="#FFFFFF">'); |
} |
} |
|
|
# ------------------------------------------------------------------ Start form |
# ------------------------------------------------------------------ Start form |
if ($nforms) { |
if ($nforms) { |
$r->print('<form method="post" action="'. |
$r->print('<form method="post" action="'. |