borrowernotes, ethnicity (zvanje)

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index 5c29826..66a4734 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -6,6 +6,11 @@ use Data::Dump qw/dump/;
 
 $|++;
 
+my $import = {
+       borrowers => 1,
+       issues => 0,
+};
+
 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;
@@ -77,11 +82,12 @@ sub borrowers {
                $row->{'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->{sex} =~ s/\x{17D}/F/;
 
                $row->{city} ||= '?'; # not null
 
+               $row->{borrowernotes} = lookup($f, 'clanorg', 'ozn_vrclan||ozn_clan', 'napom_clan', $row->{'cardnumber'}, undef);
+
                my $jmbg = delete $row->{jmbg};
 
                insert 'borrowers' => $row;
@@ -95,6 +101,8 @@ sub borrowers {
        }
 }
 
+if ( $import->{borrowers} ) {
+
 $k->do(qq{ delete from borrowers where borrowernumber > 57 });
 $k->do(qq{ delete from borrower_attributes where borrowernumber > 57 });
 
@@ -156,7 +164,7 @@ select
   ime_clan as firstname,
   prez_clan as surname,
   ozn_titula as title, -- ?
-  zvanje_clan as borrowernotes, -- ?
+  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,
 --  fax_poduz as ??,
@@ -170,6 +178,7 @@ select
 from clost
 };
 
+} # import->{borrowers}
 
 sub issues {
        my ($table,$sql) = @_;
@@ -197,7 +206,13 @@ select
 from posud
 };
 
+if ( $import->{issuses} ) {
+
+$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 == ''};
 
+}; # import->{issues}
+
 $k->commit;