userid, returndate

[ferlib2koha.git] / ferlib2koha.pl

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index 66a4734..8588ee3 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -3,17 +3,20 @@
 use strict;
 use DBI;
 use Data::Dump qw/dump/;
+use Algorithm::CheckDigits;
 
 $|++;
 
 my $import = {
        borrowers => 1,
-       issues => 0,
+       issues => 1,
+       barcode => 1,
 };
 
 my $f = DBI->connect("dbi:SQLite:dbname=knjiznica.sqlite","","", { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
 $f->{sqlite_unicode} = 1;
 my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
+my $u = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', csv_sep_char => '|' }) || die $DBI::errstr;
 
 our $lookup;
 sub lookup {
@@ -30,7 +33,7 @@ sub lookup {
                        $hash->{ $row->{$k} } = $row->{$v};
                }
                $lookup->{$key} = $hash;
-               warn dump($lookup);
+               warn "# lookup $key = ",dump($hash);
        }
        return unless length $s > 1;
        if ( ! exists $lookup->{$key}->{$s} ) {
@@ -79,15 +82,23 @@ sub borrowers {
                $row->{'B_country'} = lookup($f, 'drzava', 'ozn_drzava', 'naz_drzava', $row->{'B_country'}, $row->{B_country} );
                $row->{'B_city'}    = lookup($f, 'mjesto', 'post_ozn', 'naz_mjesto', $row->{'B_city'}, $row->{B_city} );
 
-               $row->{'email'}    = lookup($f, 'clanost', 'ozn_vrclan||ozn_clan', 'email', $row->{'cardnumber'}, undef);
+               $row->{'B_email'}  = lookup($f, 'clanost', 'ozn_vrclan||ozn_clan', 'email', $row->{'cardnumber'}, undef);
                $row->{'emailpro'} = lookup($f, 'clanost', 'ozn_vrclan||ozn_clan', 'email_k', $row->{'cardnumber'}, undef);
 
+               $row->{'email'}    = lookup($u, 'users', 'jmbag', 'email', substr($row->{cardnumber},1), undef); # $row->{B_email} || $row->{emailpro} )
+
+               $row->{'userid'}    = lookup($u, 'users', 'jmbag', 'nick', substr($row->{cardnumber},1), $row->{cardnumber});
+
                $row->{sex} =~ s/\x{17D}/F/;
 
                $row->{city} ||= '?'; # not null
 
                $row->{borrowernotes} = lookup($f, 'clanorg', 'ozn_vrclan||ozn_clan', 'napom_clan', $row->{'cardnumber'}, undef);
 
+               $row->{title} = lookup($f, 'titula', 'ozn_titula', 'opis_titula', $row->{title}, $row->{title});
+
+               $row->{dateexpiry} ||= '01.01.2020'; # next revision
+
                my $jmbg = delete $row->{jmbg};
 
                insert 'borrowers' => $row;
@@ -140,7 +151,7 @@ select
   'D' || sif_djel as cardnumber,
   ime_djel as firstname,
   prez_djel as surname,
-  ozn_titula as title, -- FIXME 
+  ozn_titula as title,
 --  sif_orgjed (REF orgjed) as B_address,
 --  sif_strsp_djel as ??,
   tel_djel as phonepro,
@@ -163,7 +174,7 @@ select
   'O' || mbr_clan as cardnumber,
   ime_clan as firstname,
   prez_clan as surname,
-  ozn_titula as title, -- ?
+  ozn_titula as title,
   zvanje_clan as ethnicity, -- XXX we are not allowerd by low to collect ethnicity
 --  krat_poduz (REF poduz) as B_address,
   tel_poduz as B_phone,
@@ -178,6 +189,11 @@ select
 from clost
 };
 
+my $sth_syspref = $k->prepare(qq{ update systempreferences set value=? where variable=? });
+my $BorrowersTitles = join('|', @{ $k->selectcol_arrayref(qq{ select distinct title from borrowers where title != '' }) });
+$sth_syspref->execute( $BorrowersTitles => 'BorrowersTitles' );
+warn "# BorrowersTitles [$BorrowersTitles]";
+
 } # import->{borrowers}
 
 sub issues {
@@ -190,6 +206,7 @@ sub issues {
        while (my $row = $sth->fetchrow_hashref ) {
                $row->{borrowernumber} = lookup($k, 'borrowers', 'cardnumber' => 'borrowernumber', $row->{borrowernumber});
                $row->{itemnumber}     = lookup($k, 'items', 'barcode' => 'itemnumber', $row->{itemnumber});
+               $row->{returndate} = '31.12.2011';
                insert $table => $row;
        }
 }
@@ -206,13 +223,36 @@ select
 from posud
 };
 
-if ( $import->{issuses} ) {
+if ( $import->{issues} ) {
 
 $k->do('delete from old_issues');
 $k->do('delete from issues');
 issues 'old_issues' => qq{$posud_sql where datum_vra != ''};
 issues 'issues'     => qq{$posud_sql where datum_vra == ''};
 
+$k->do(qq{
+update items
+join issues on items.itemnumber=issues.itemnumber
+set onloan = date_due, datelastborrowed = issuedate
+});
+
+
 }; # import->{issues}
 
+if ( $import->{barcode} ) {
+
+my $sth        = $k->prepare(qq{ select itemnumber,barcode from items where length(barcode) < 13 });
+my $sth_update = $k->prepare(qq{ update items set barcode=? where itemnumber=? });
+
+$sth->execute;
+warn "update ", $sth->rows, " barcodes";
+
+my $ean = CheckDigits('ean');
+
+while( my $row = $sth->fetchrow_hashref ) {
+       $sth_update->execute( $ean->complete( sprintf('%012d', $row->{barcode}) ), $row->{itemnumber} );
+}
+
+} # import->{barcode}
+
 $k->commit;