limit to just my boiler model

diff --git a/db3-dump.pl b/db3-dump.pl
index fdaa541..953645c 100755 (executable)
--- a/db3-dump.pl
+++ b/db3-dump.pl
@@ -46,8 +46,9 @@ select Id, TexteEN from "UnitNames"
 
 my $diags = lookup( qq{
 select Id,x0136,x0142,x0144,x0147,x0151,x0152,x0153,x0158,x0160,x0161 from "DiagnoseDaten"
+where x0147 = 1
 });
-warn "# diags = ",dump($diags);
+#warn "# diags = ",dump($diags);
 
 my $sth = $dbh->prepare( qq{
 select * from "ComuInfos"