/[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.4 by dpavlin, Tue Jun 19 08:54:02 2001 UTC revision 1.5 by dpavlin, Tue Jun 19 09:27:42 2001 UTC
# Line 82  sub Log { Line 82  sub Log {
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    
# Line 222  sub tblLijek { Line 226  sub tblLijek {
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,
# Line 314  sub tblVodeca { Line 318  sub tblVodeca {
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\"]");
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26