loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2002/09/01 19:29:00	version 1.45, 2002/09/02 18:25:55
Line 607 sub handler {	Line 607 sub handler {
$r->print("\n<tr>");	$r->print("\n<tr>");
my @colcont=split(/\&/,$rows[$i]);	my @colcont=split(/\&/,$rows[$i]);
my $avespan=$lcm/($#colcont+1);	my $avespan=$lcm/($#colcont+1);

	# for each item I wish to print on this row...
for ($j=0;$j<=$#colcont;$j++) {	for ($j=0;$j<=$#colcont;$j++) {
my $indent;my $indentstr;	my $indent;my $indentstr;
my $linkid;	my $linkid;
my $rid=$colcont[$j];	my $rid=$colcont[$j];

	# bug? $rid can't accept a list of two elements
$rid=~/(\d+)\.(\d+)$/;	$rid=~/(\d+)\.(\d+)$/;
my $src=	my $src=
&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});	&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});
Line 648 sub handler {	Line 652 sub handler {
} elsif ($code eq '4') {	} elsif ($code eq '4') {
$add='<td bgcolor="#E0FFAA">';	$add='<td bgcolor="#E0FFAA">';
} else {	} else {
$add='<td bgcolor="#FFAAAA">';	$add='<td bgcolor="#CCCCFF">';
if ($tcode eq '2') {	if ($tcode eq '2') {
$add='<td bgcolor="#FFFFAA">';	$add='<td bgcolor="#FFFFAA">';
}	}