isvu-import.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5 use Data::Dump qw/dump/;
   6 use Algorithm::CheckDigits;
   7 use Text::Unaccent;
   8
   9 use lib 'lib';
  10 use FERWeb;
  11
  12 my $f = FERWeb->new;
  13 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
  14 my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
  15
  16 my $s = $c->prepare(qq{
  17 select * from brucosi_2011_ISVU
  18 });
  19 $s->execute;
  20
  21 my $user_exists = $k->prepare(qq{
  22 select * from borrowers where cardnumber = ?
  23 });
  24
  25 my $insert_user = $k->prepare(qq{
  26 insert into borrowers
  27 (cardnumber, categorycode, userid, firstname, surname, branchcode, email, dateexpiry)
  28 values
  29 (?,'S',?,?,?,'SRE',?,'2021-12-13')
  30 });
  31
  32 while( my $row = $s->fetchrow_hashref ) {
  33
  34         warn "# row = ",dump($row),$/;
  35
  36         my $user = $f->getinfobycode( $row->{jmbag} );
  37
  38         warn "# user = ", dump($user), $/;
  39
  40         $user_exists->execute( 'S' . $row->{jmbag} );
  41
  42         if ( $user_exists->rows ) {
  43                 warn "EXISTS: ",dump($row);
  44                 print "#";
  45         } else {
  46                 $insert_user->execute( 'S' . $row->{jmbag}, $user->{nick}, $user->{first_name}, $user->{last_name}, $user->{email} );
  47         }
  48
  49         print join(" "
  50                 , $row->{jmbag}
  51                 , $user->{nick}
  52                 , $user->{email}
  53         ),$/;
  54
  55 }
  56
  57 $k->commit;