From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 15 Aug 2011 18:04:35 +0000 (+0200)
Subject: insert new borrowers in koha
X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=commitdiff_plain;h=8e04fcefd5a54692d2a3f5654b3f8a063520e589

insert new borrowers in koha
---

diff --git a/isvu-import.pl b/isvu-import.pl
index 9aa8833..09f6843 100755
--- a/isvu-import.pl
+++ b/isvu-import.pl
@@ -22,6 +22,13 @@ 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 ) {
 
 	warn "# row = ",dump($row),$/;
@@ -35,6 +42,8 @@ while( my $row = $s->fetchrow_hashref ) {
 	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(" "
@@ -44,3 +53,5 @@ while( my $row = $s->fetchrow_hashref ) {
 	),$/;
 
 }
+
+$k->commit;