rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.8, 2000/09/23 20:12:46	version 1.9, 2000/09/25 20:31:33
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 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="'.