101 |
sub tblATK { |
sub tblATK { |
102 |
my ($table, $fields, $data) = @_; |
my ($table, $fields, $data) = @_; |
103 |
my $count = 0; |
my $count = 0; |
104 |
my $sth = $pgdbh->prepare("INSERT INTO atk_inn (sifra, naziv, razno) VALUES (?, ?, ?)"); |
my $sth = $pgdbh->prepare("INSERT INTO $table (sifra, naziv, razno) VALUES (?, ?, ?)"); |
105 |
unless ($sth) { |
unless ($sth) { |
106 |
print &Log("[$table-prepare] ".$pgdbh->errstr); |
print &Log("[$table-prepare] ".$pgdbh->errstr); |
107 |
return 0; |
return 0; |
225 |
$oprez = &ConvertString($oprez); |
$oprez = &ConvertString($oprez); |
226 |
$tel = &ConvertString($tel); |
$tel = &ConvertString($tel); |
227 |
$fax = &ConvertString($fax); |
$fax = &ConvertString($fax); |
228 |
CondInsert("atk_inn", "sifra", $sif_atk, |
CondInsert("atk", "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("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)", |