$sth->execute;
while( my $row = $sth->fetchrow_arrayref ) {
- $data->{ $row->[0] } = $row->[1];
+ my @r = @$row;
+ my $id = shift @r;
+ $data->{ $row->[0] } = $#$row == 1 ? $row->[1] : join('', @r);
}
return $data;
select Id, TexteEN from "UnitNames"
});
+my $diags = lookup( qq{
+select Id,x0136,x0142,x0144,x0147,x0151,x0152,x0153,x0158,x0160,x0161 from "DiagnoseDaten"
+});
+warn "# diags = ",dump($diags);
+
my $sth = $dbh->prepare( qq{
select * from "ComuInfos"
order by adresse
});
+
$sth->execute;
while( my $row = $sth->fetchrow_hashref ) {
my $hint = $hints->{ $row->{texteid} };
$hint =~ s/[\r\n]+/ | /gs;
- printf "%-3d %02x %-27s %-15s %s %s [ %s ]\n",
+ printf "%-3d %02x %-27s %-15s |%s| %s %s [ %s ]\n",
$row->{adresse},
$row->{adresse},
$types->{ $row->{typid} },
$units->{ $row->{id} },
+ $diags->{ $row->{id} } || ' ',
$row->{symbolname},
$names->{ $row->{texteid} } || $row->{symbolname},
$hint,