insert new borrowers in koha

diff --git a/isvu-import.pl b/isvu-import.pl
index 9aa8833..09f6843 100755 (executable)
--- 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;