X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=isvu-import.pl;h=09f684359e03a9816621167c130f182ea55c4ba2;hb=7425d8f21604f9556734e83049b20cae2daf9f8b;hp=6a6705715afeb474dc2a577be17f513805ba5d41;hpb=e46d184ce8bbc9065edacb746499898983e530e1;p=ferlib2koha.git

diff --git a/isvu-import.pl b/isvu-import.pl
index 6a67057..09f6843 100755
--- a/isvu-import.pl
+++ b/isvu-import.pl
@@ -6,13 +6,52 @@ use Data::Dump qw/dump/;
 use Algorithm::CheckDigits;
 use Text::Unaccent;
 
+use lib 'lib';
+use FERWeb;
+
+my $f = FERWeb->new;
 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
+my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
 
 my $s = $c->prepare(qq{
 select * from brucosi_2011_ISVU
 });
 $s->execute;
 
+my $user_exists = $k->prepare(qq{
+select * from borrowers where cardnumber = ?
+});
+
+my $insert_user = $k->prepare(qq{
+insert into borrowers 
+(cardnumber, categorycode, userid, firstname, surname, branchcode, email, dateexpiry)
+values
+(?,'S',?,?,?,'SRE',?,'2021-12-13')
+});
+
 while( my $row = $s->fetchrow_hashref ) {
-	print "# row = ",dump($row),$/;
+
+	warn "# row = ",dump($row),$/;
+
+	my $user = $f->getinfobycode( $row->{jmbag} );
+
+	warn "# user = ", dump($user), $/;
+
+	$user_exists->execute( 'S' . $row->{jmbag} );
+
+	if ( $user_exists->rows ) {
+		warn "EXISTS: ",dump($row);
+		print "#";
+	} else {
+		$insert_user->execute( 'S' . $row->{jmbag}, $user->{nick}, $user->{first_name}, $user->{last_name}, $user->{email} );
+	}
+
+	print join(" "
+		, $row->{jmbag}
+		, $user->{nick}
+		, $user->{email}
+	),$/;
+
 }
+
+$k->commit;