+
+sub issues {
+ my ($table,$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->{itemnumber} = lookup($k, 'items', 'barcode' => 'itemnumber', $row->{itemnumber});
+ insert $table => $row;
+ }
+}
+
+my $posud_sql = qq{
+select
+ ozn_vrclan||ozn_clan as borrowernumber,
+ sif_primj as itemnumber,
+ datum_do as date_due,
+ 'SRE' as branchcode, -- FIXME
+ datum_vra as returndate,
+ datum_pos as issuedate,
+ datum_pos||' '||vrijeme_pos as timestamp
+from posud
+};
+
+issues 'old_issues' => qq{$posud_sql where datum_vra != ''};
+issues 'issues' => qq{$posud_sql where datum_vra == ''};
+