aqbooksellers

[ferlib2koha.git] / ferlib2koha.pl

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index 22c3174..e702ddb 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -11,7 +11,7 @@ $|++;
 
 my $import = {
        borrowers => $ENV{FULL} || 0,
-       issues    => $ENV{FULL} || 1,
+       issues    => $ENV{FULL} || 0,
        reserves  => $ENV{FULL} || 0,
        barcode   => $ENV{FULL} || 0,
 };
@@ -107,12 +107,29 @@ sub borrowers {
 
                insert 'borrowers' => $row;
 
+               my $borrowernumber = $k->{mysql_insertid};
+
                insert 'borrower_attributes' => {
-                       borrowernumber => $k->{mysql_insertid},
+                       borrowernumber => $borrowernumber,
                        code => 'JMBG',
                        attribute => $jmbg,
                } if $jmbg;
 
+               foreach my $id ( 6,1,4,5,2 ) {
+
+                       insert 'borrower_message_preferences' => {
+                               borrowernumber => $borrowernumber,
+                               message_attribute_id => $id,
+                               days_in_advance => $id == 2 ? 0 : undef,
+                       };
+
+                       insert 'borrower_message_transport_preferences' => {
+                               borrower_message_preference_id => $k->{mysql_insertid},
+                               message_transport_type => 'email',
+                       } if $id == 4;
+
+               }
+
        }
 }
 
@@ -132,6 +149,8 @@ delete from borrowers;
 alter table borrowers auto_increment = 1;
 delete from borrower_attributes;
 alter table borrower_attributes auto_increment = 1;
+delete from borrower_message_preferences where borrowernumber is not null ;
+alter table borrower_message_preferences auto_increment = 1;
 };
 
 
@@ -274,15 +293,25 @@ set onloan = date_due, datelastborrowed = issuedate
 update items set datelastseen = datelastborrowed
 ;
 create temporary table old_returndate as
-select itemnumber,max(returndate)
+select itemnumber,max(returndate) as returndate
 from old_issues
-group by itemnumber
+group by itemnumber,returndate
 ;
 update items
-join old_issues on items.itemnumber=old_issues.itemnumber
+join old_returndate on items.itemnumber=old_returndate.itemnumber
 set datelastseen = returndate
 where returndate > datelastseen or datelastseen is null
 ;
+create temporary table old_issuedate as
+select itemnumber,max(issuedate) as issuedate
+from old_issues
+group by itemnumber,issuedate
+;
+update items
+join old_issuedate on items.itemnumber=old_issuedate.itemnumber
+set datelastborrowed = issuedate
+where datelastborrowed is null
+;
 update old_issues set timestamp = returndate
 };
 
@@ -361,6 +390,28 @@ while( my $row = $sth->fetchrow_hashref ) {
 } # import->{barcode}
 
 
+sub aqbooksellers {
+       my ($sql) = @_;
+       my $sth = $f->prepare($sql);
+       $sth->execute;
+
+       $insert = undef;
 
+       while (my $row = $sth->fetchrow_hashref ) {
+               insert 'aqbooksellers' => $row;
+       }
+}
+
+sql $k => qq{
+delete from aqbooksellers;
+alter table aqbooksellers auto_increment = 1;
+};
+aqbooksellers qq{
+select
+       ozn_nacdob as notes,
+       opis_nacdob as name,
+       'HRK' as currency
+from nacdob
+};
 
 $k->commit;