X-Git-Url: http://git.rot13.org/?p=vrDialog;a=blobdiff_plain;f=db3-dump.pl;h=953645cb9f409890018e89aa1d451dd81d7fa3df;hp=fdaa5416ba63e4c515d2f2a409043dacdd619e50;hb=a51a2c621121da3e2866ba047ca314f20dcce28c;hpb=2424a155921267182fbf17acdd135f0a93fcf36a

diff --git a/db3-dump.pl b/db3-dump.pl
index fdaa541..953645c 100755
--- 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"