--- fill.pl	2000/06/19 06:03:23	1.2
+++ fill.pl	2002/01/25 14:47:43	1.3
@@ -10,7 +10,7 @@
 
 #---
 
-my $mydbh = DBI->connect("DBI:Pg:dbname=informatika","","") || die $DBI::errstr;
+my $dbh = DBI->connect("DBI:Pg:dbname=informatika","","") || die $DBI::errstr;
 open(IN,"< $file") || die "ne mogu otvoriti $file";
 while (<IN>) {
 	chomp;
@@ -53,12 +53,15 @@
 			$passwd=$passwd.$ch;
 		}
 		$sql_insert="insert into kontakt_osobe (ime,prezime,e_mail,passwd,prava) values ('$arr[0]','$arr[1]','$arr[2]','$passwd',64) ";
+	} elsif ($type eq "sap2informatika") {
+		next if ($arr[2] eq "");
+		$sql_insert="insert into sap2orgjed values ('$arr[0]','$arr[1]','$arr[2]')";
 	} else {
 		die "Nepoznat tip datoteke $type !!";
 	}
 
 	print "--$sql_insert\n";
-	$mydbh->do("$sql_insert") || die $mydbh->errstr();
+	$dbh->do("$sql_insert") || die $dbh->errstr();
 
 }