while ( my ($celvalue) = $sth->fetchrow ) {
my %cell = ( rowtitle => $celvalue, totalrow => 0 ); # we leave 'rowtitle' as hash key (used when filling the table), and add coltitle_display
$cell{rowtitle_display} =
( $line =~ /ccode/ ) ? $ccodes->{$celvalue}
: ( $line =~ /location/ ) ? $locations->{$celvalue}
while ( my ($celvalue) = $sth->fetchrow ) {
my %cell = ( rowtitle => $celvalue, totalrow => 0 ); # we leave 'rowtitle' as hash key (used when filling the table), and add coltitle_display
$cell{rowtitle_display} =
( $line =~ /ccode/ ) ? $ccodes->{$celvalue}
: ( $line =~ /location/ ) ? $locations->{$celvalue}