reserves

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index 8588ee3..157c80e 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -8,9 +8,9 @@ use Algorithm::CheckDigits;
 $|++;
 
 my $import = {
-       borrowers => 1,
-       issues => 1,
-       barcode => 1,
+       borrowers => 0,
+       issues => 0,
+       barcode => 0,
 };
 
 my $f = DBI->connect("dbi:SQLite:dbname=knjiznica.sqlite","","", { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
@@ -255,4 +255,40 @@ while( my $row = $sth->fetchrow_hashref ) {
 
 } # import->{barcode}
 
+
+
+sub reserves {
+       my ($sql) = @_;
+       my $sth = $f->prepare($sql);
+       $sth->execute;
+
+       $insert = undef;
+
+       while (my $row = $sth->fetchrow_hashref ) {
+               $row->{borrowernumber} = lookup($k, 'borrowers', 'cardnumber' => 'borrowernumber', $row->{borrowernumber});
+               $row->{biblionumber}   = lookup($k, 'biblioitems', 'collectionvolume' => 'biblionumber', $row->{biblionumber});
+               $row->{itemnumber}     = lookup($k, 'items', 'barcode' => 'itemnumber', $row->{itemnumber});
+               insert 'reserves' => $row;
+       }
+}
+reserves qq{
+select
+       ozn_vrclan||ozn_clan as borrowernumber,
+       datum_rezerv as reservedate,
+       sif_naslov as biblionumber,
+       'SRE' as branchcode,
+       datum_obavijest as notificationdate,
+       datum_opoziv as cancellationdate,
+       prior_rezerv as priority,
+       -- found 
+       datum_rezerv||' '||vrijeme_rezerv as timestamp,
+       sif_primj as itemnumber,
+       datum_obavijest as waitingdate,
+       datum_ponist as expirationdate,
+       0 as lowestPriority
+from rezerv
+};
+
+
+
 $k->commit;