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">'; |
} |
} |