");
- my @colcont=split(/\&/,$rows[$i]);
- my $avespan=$lcm/($#colcont+1);
- for ($j=0;$j<=$#colcont;$j++) {
- my $rid=$colcont[$j];
- my $add=' ';
- if ($rid=~/^h(.+)/) {
- $rid=$1;
- $add=' | ';
- }
- $r->print($add.''.
- $hash{'title_'.$rid}.'');
- $r->print('');
- }
- $r->print(' |
');
- }
+ $r->print("\n");
+ $r->print("