Update tabulky DICTREFER

\n"; die (""); endif; @$vysledek1 = Pg_Exec($spojeni, "SELECT item,text1 FROM obdict WHERE zmena = 1 order by item"); if (!$vysledek1): echo "Doslo k chybe pri zpracovani dotazu v tabulce OBDICT.
\n"; die (""); endif; echo "V tabulce OBDICT bylo zmeneno ".Pg_NumRows($vysledek1)." radek/radku.
\n"; if (Pg_NumRows($vysledek1)==0): echo "Neni treba updatovat zadne tabulky.
\n"; die (""); endif; for ($m=0; $m < Pg_NumRows($vysledek1); $m++): $zaznam1 = Pg_Fetch_Array($vysledek1, $m); $radek = $zaznam1["text1"]; echo "
Zpracovavam radek: ".$radek."
"; while(vrat_slovo()): @$vysledek2 = Pg_Exec($spojeni, "SELECT item1,refer1 FROM dictrefer WHERE refer1 = '$slovo' AND item1 = '$zaznam1[item]' "); if (!$vysledek2) { echo "Doslo k chybe pri zpracovani dotazu v tabulce dictrefer.
\n"; die (""); } elseif (Pg_NumRows($vysledek2)==0) { //slovicko nenalezeno v OBDICT $item1_pom=$zaznam1["item"]; $vysledek3 = Pg_Exec($spojeni,"INSERT INTO dictrefer(item1,refer1) VALUES ('$item1_pom','$slovo')" ); if (!$vysledek3) { echo "Doslo k chybe pri insertu slovicka do tabulky DICTREFER.
\n"; echo "\nINSERT INTO dictrefer(item1,refer1) VALUES ('".$zaznam1["item"]."','".$slovo."')\n
"; die (""); } else { echo "\n

Nova radka v tabulce DICTREFER ulozena!!!
"; echo "\nINSERT INTO dictrefer(item1,refer1) VALUES ('".$zaznam1["item"]."','".$slovo."')\n
"; $pocitadlo_novych_radku++; } } else { //slovicko nalezeno echo "\n

Zaznam jiz nalezen!!
"; echo "refer1 = '".$slovo."' & item1 = '".$zaznam1["item"]."'"; echo "\n
"; continue; } endwhile; $item_pom=$zaznam1["item"]; $text1_pom=$zaznam1["text1"]; @$vysledek4 = Pg_Exec($spojeni,"UPDATE obdict SET zmena = '0' WHERE ((item='$item_pom') AND (text1='$text1_pom'))"); if (!$vysledek4) { echo "Doslo k chybe pri updatu polozky zmena v tabulce OBDICT.
\n"; die (""); } else echo "
Zmena 1 -> 0 - uspesne ulozeno!!!"; endfor; echo "\n
Do tabulky DICTREFER bylo ulozeno ".$pocitadlo_novych_radku." novych radek/radku."; ?>