82 |
} |
} |
83 |
|
|
84 |
sub CondInsert { |
sub CondInsert { |
85 |
my ($table, $name, $key, @fields, @values) = @_; |
my @values=pop @_; # chop last argument which is array |
86 |
|
my ($table, $name, $key, $fields) = @_; |
87 |
my $sql = "SELECT $name FROM $table WHERE ($name = $key)"; |
my $sql = "SELECT $name FROM $table WHERE ($name = $key)"; |
88 |
my $cnt = $pgdbh->do($sql); |
my $cnt = $pgdbh->do($sql); |
89 |
return 0 if ($cnt > 0); |
return 0 if ($cnt > 0); |
90 |
$sql = "INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")"; |
return 0 if ($#values == 0); |
91 |
my $sth = $pgdbh->prepare("INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")"); |
my @valtpl; |
92 |
|
for (my $i=0; $i<=$#values; $i++) { push @valtpl,"?" } |
93 |
|
$sql = "INSERT INTO $table $fields VALUES (".join(",",@valtpl).")"; |
94 |
|
my $sth = $pgdbh->prepare($sql); |
95 |
my $ret = $sth->execute(@values); |
my $ret = $sth->execute(@values); |
96 |
my $err = $pgdbh->errstr; |
my $err = $pgdbh->errstr; |
97 |
print &Log("[$sql] ".$err) if ($err); |
print &Log("[$sql] [".join(",",@values)."]".$err) if ($err); |
98 |
return $ret; |
return $ret; |
99 |
} |
} |
100 |
|
|
226 |
$tel = &ConvertString($tel); |
$tel = &ConvertString($tel); |
227 |
$fax = &ConvertString($fax); |
$fax = &ConvertString($fax); |
228 |
CondInsert("atk_inn", "sifra", $sif_atk, |
CondInsert("atk_inn", "sifra", $sif_atk, |
229 |
"(sifra, naziv, razno)", "($sif_atk, $naz_atk, '')"); |
"(sifra, naziv, razno)", ($sif_atk, $naz_atk, '')); |
230 |
CondInsert("atk_inn", "sifra", $sif_inn, |
CondInsert("atk_inn", "sifra", $sif_inn, |
231 |
"(sifra, naziv, razno)", "($sif_inn, $naz_inn, '')"); |
"(sifra, naziv, razno)", ($sif_inn, $naz_inn, '')); |
232 |
CondInsert("proizvodjaci", "sifra", $sif_proizvodjac, |
CondInsert("proizvodjaci", "sifra", $sif_proizvodjac, |
233 |
"(sifra, naziv, drzava, zastupnistvo, mjesto, zip, ulica_i_broj, razno, telefon, fax)", |
"(sifra, naziv, drzava, zastupnistvo, mjesto, zip, ulica_i_broj, razno, telefon, fax)", |
234 |
"($sif_proizvodjac, $naz_proizvodjac, $drzava, $zastupnistvo, $mjesto, '', $ulica_i_broj, '', $tel, $fax)"); |
($sif_proizvodjac, $naz_proizvodjac, $drzava, $zastupnistvo, $mjesto, '', $ulica_i_broj, '', $tel, $fax)); |
235 |
CondInsert("nacin_izdavanja", "sifra", $sif_nacin_izdavanja, |
CondInsert("nacin_izdavanja", "sifra", $sif_nacin_izdavanja, |
236 |
"(sifra, opis)", "($sif_nacin_izdavanja, $naz_nacin_izdavanja)"); |
"(sifra, opis)", ($sif_nacin_izdavanja, $naz_nacin_izdavanja)); |
237 |
CondInsert("list_fond", "sifra", $sif_list_fond, |
CondInsert("list_fond", "sifra", $sif_list_fond, |
238 |
"(sifra, opis)", "($sif_list_fond, $naz_list_fond)"); |
"(sifra, opis)", ($sif_list_fond, $naz_list_fond)); |
239 |
CondInsert("trudnoca", "sifra", $sif_trudnoca, |
CondInsert("trudnoca", "sifra", $sif_trudnoca, |
240 |
"(sifra, opis)", "($sif_trudnoca, $naz_trudnoca)"); |
"(sifra, opis)", ($sif_trudnoca, $naz_trudnoca)); |
241 |
CondInsert("dojencad", "sifra", $sif_dojencad, |
CondInsert("dojencad", "sifra", $sif_dojencad, |
242 |
"(sifra, opis)", "($sif_dojencad, $naz_dojencad)"); |
"(sifra, opis)", ($sif_dojencad, $naz_dojencad)); |
243 |
CondInsert("vozac", "sifra", $sif_vozac, |
CondInsert("vozac", "sifra", $sif_vozac, |
244 |
"(sifra, opis)", "($sif_vozac, $naz_vozac)"); |
"(sifra, opis)", ($sif_vozac, $naz_vozac)); |
245 |
CondInsert("droga", "sifra", $sif_droga, |
CondInsert("droga", "sifra", $sif_droga, |
246 |
"(sifra, opis)", "($sif_droga, '')"); |
"(sifra, opis)", ($sif_droga, '')); |
247 |
my $tmp = $sth->execute($sifra, $naziv, $sif_atk, $sif_inn, |
my $tmp = $sth->execute($sifra, $naziv, $sif_atk, $sif_inn, |
248 |
$sif_proizvodjac, $pakovanje, $sastav_1, $sastav_2, |
$sif_proizvodjac, $pakovanje, $sastav_1, $sastav_2, |
249 |
$sif_nacin_izdavanja, $sif_list_fond, $sif_trudnoca, |
$sif_nacin_izdavanja, $sif_list_fond, $sif_trudnoca, |
318 |
my $tmp = 0; |
my $tmp = 0; |
319 |
if ($code eq "06") { |
if ($code eq "06") { |
320 |
$tmp += CondInsert("nacin_izdavanja", "sifra", $sifra, |
$tmp += CondInsert("nacin_izdavanja", "sifra", $sifra, |
321 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
322 |
} elsif ($code eq "07") { |
} elsif ($code eq "07") { |
323 |
$tmp += CondInsert("list_fond", "sifra", $sifra, |
$tmp += CondInsert("list_fond", "sifra", $sifra, |
324 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
325 |
} elsif ($code eq "08") { |
} elsif ($code eq "08") { |
326 |
$tmp += CondInsert("trudnoca", "sifra", $sifra, |
$tmp += CondInsert("trudnoca", "sifra", $sifra, |
327 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
328 |
} elsif ($code eq "09") { |
} elsif ($code eq "09") { |
329 |
$tmp += CondInsert("dojencad", "sifra", $sifra, |
$tmp += CondInsert("dojencad", "sifra", $sifra, |
330 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
331 |
} elsif ($code eq "10") { |
} elsif ($code eq "10") { |
332 |
$tmp += CondInsert("vozac", "sifra", $sifra, |
$tmp += CondInsert("vozac", "sifra", $sifra, |
333 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
334 |
} elsif ($code eq "11") { |
} elsif ($code eq "11") { |
335 |
$tmp += CondInsert("droga", "sifra", $sifra, |
$tmp += CondInsert("droga", "sifra", $sifra, |
336 |
"(sifra, opis)", "($sifra, $naziv)"); |
"(sifra, opis)", ($sifra, $naziv)); |
337 |
} else { |
} else { |
338 |
# UNKNOWN CODE!!! |
# UNKNOWN CODE!!! |
339 |
print &Log("[WARNING: unknown code \"$code\"]"); |
print &Log("[WARNING: unknown code \"$code\"]"); |