1942c1942,1944 < print $q->td({-nowrap=>'1'}, $q->escapeHTML($state[$state])) if $vis{'state'}; --- > #print $q->td({-nowrap=>'1'}, $q->escapeHTML($state[$state])) if $vis{'state'}; > my(@color)= ("#ffff99","#ff9999","#ffffcc","#ffcccc","#cc66cc","#99ffff","#55ccff","#99ffcc"); > print $q->td({-nowrap=>'1', -bgcolor=>$color[$state]}, $q->escapeHTML($state[$state])) if $vis{'state'};