package Koha::Kemnersaker;

use Modern::Perl;
use Koha::Database;
use C4::Context;

=pod
Oslo Public Library specific module for handling kemnersaker
=cut

# Get all ongoing kemnersaker for a patron
sub GetActiveCases {
    my ( $self, $borrowernumber ) = @_;

    return unless $borrowernumber;

    my $dbh = C4::Context->dbh;

    my @results;
    my $query = "
        SELECT ks.issue_id, ks.itemnumber, ks.timestamp, ks.status, bib.title, it.barcode, ks.date_due, ks.issuedate, ks.returndate
        FROM (
          SELECT k.issue_id, k.itemnumber, k.timestamp, k.status, iss.date_due, iss.issuedate, iss.returndate
          FROM kemnersaker k
          JOIN issues iss USING(issue_id)
          WHERE k.borrowernumber = ?
          AND k.status IN ('new', 'sent')
          UNION
          SELECT k.issue_id, k.itemnumber, k.timestamp, k.status, iss.date_due, iss.issuedate, iss.returndate
          FROM kemnersaker k
          JOIN old_issues iss USING(issue_id)
          WHERE k.borrowernumber = ?
          AND k.status IN ('new', 'sent')
        ) ks
        JOIN items it ON (it.itemnumber=ks.itemnumber)
        JOIN biblio bib ON (bib.biblionumber=it.biblionumber);
    ";

    my $sth = $dbh->prepare($query);
    $sth->execute($borrowernumber, $borrowernumber) or die "Error running query: $sth";

    while ( my $row = $sth->fetchrow_hashref() ) {
        push @results, $row;
    }

    return \@results;
}

1;