/[registar]/convert.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /convert.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by dpavlin, Tue Jun 19 09:27:42 2001 UTC revision 1.6 by dpavlin, Tue Jun 19 10:10:48 2001 UTC
# Line 101  sub CondInsert { Line 101  sub CondInsert {
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;
# Line 225  sub tblLijek { Line 225  sub tblLijek {
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)",

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.26