use Koha::Recalls;

                'recall_overdue_fine',

#!/usr/bin/perl

# Copyright 2020 Aleisha Amohia <aleisha@catalyst.net.nz>

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

BEGIN {

    # find Koha's Perl modules

    # test carefully before changing this

    use FindBin;

    eval { require "$FindBin::Bin/../kohalib.pl" };

}

# set overdue recalls as overdue. This includes:

# - recalls that have been requested and not fulfilled and have passed their expiration date

# - recalls that have been awaiting pickup for longer than the specified recall_shelf_time circulation rule, or the RecallsMaxPickUpDelay if circ rule is unset

use Koha::Script -cron;

use Koha::DateUtils;

use Koha::Recalls;

use C4::Log;

cronlogaction();

my @recalls = Koha::Recalls->search({ old => undef });

foreach my $recall (@recalls) {

    if ( ( $recall->requested or $recall->overdue ) and $recall->expirationdate and dt_from_string( $recall->expirationdate ) < dt_from_string() ){

        # recall is requested or overdue and has surpassed the specified expiration date

        $recall->set_expired({ interface => 'COMMANDLINE' });

    }

    if ( $recall->waiting ) {

        my $recall_shelf_time = Koha::CirculationRules->get_effective_rule({

            categorycode => $recall->patron->categorycode,

            itemtype => $recall->item->effective_itemtype,

            branchcode => $recall->branchcode,

            rule_name => 'recall_shelf_time',

        });

        my $waitingdate = dt_from_string( $recall->waitingdate );

        my $now = dt_from_string();

        my $days_waiting = $now->subtract_datetime( $waitingdate );

        if ( defined $recall_shelf_time and $recall_shelf_time->rule_value > 0 ) {

            if ( $days_waiting->days > $recall_shelf_time->rule_value ) {

                # recall has been awaiting pickup for longer than the circ rules allow

                $recall->set_expired({ interface => 'COMMANDLINE' });

            }

        } else {

            if ( $days_waiting->days > C4::Context->preference('RecallsMaxPickUpDelay') ) {

                # recall has been awaiting pickup for longer than the syspref allows

                $recall->set_expired({ interface => 'COMMANDLINE' });

            }

        }

    }

}

#!/usr/bin/perl

# Copyright 2020 Aleisha Amohia <aleisha@catalyst.net.nz>

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

BEGIN {

    # find Koha's Perl modules

    # test carefully before changing this

    use FindBin;

    eval { require "$FindBin::Bin/../kohalib.pl" };

}

# set overdue recalls as overdue

use Koha::Script -cron;

use Koha::DateUtils;

use Koha::Checkouts;

use Koha::Recalls;

use C4::Log;

cronlogaction();

my @recalls = Koha::Recalls->search({ status => 'R' });

foreach my $recall (@recalls){

    if ( $recall->should_be_overdue ){

        $recall->set_overdue({ interface => 'COMMANDLINE' });

    }

}

subtest 'Recall overdue fines' => sub {

    plan tests => 2;

    Koha::CirculationRules->set_rules(

        {

            branchcode   => undef,

            categorycode => undef,

            itemtype     => undef,

            rules        => {

                fine                          => '1.00',

                lengthunit                    => 'days',

                finedays                      => 0,

                firstremind                   => 0,

                chargeperiod                  => 1,

                recall_overdue_fine           => '5.00',

            },

        }

    );

    my $start_dt = DateTime->new(

        year       => 2000,

        month      => 1,

        day        => 1,

    );

    my $end_dt = DateTime->new(

        year       => 2000,

        month      => 1,

        day        => 6,

    );

    my $recall = Koha::Recall->new({

        borrowernumber => $patron->{borrowernumber},

        recalldate => dt_from_string,

        biblionumber => $item->{biblionumber},

        branchcode => $branch->{branchcode},

        status => 'R',

        itemnumber => $item->{itemnumber},

        expirationdate => undef,

        item_level_recall => 1

    })->store;

    $recall->set_overdue;

    my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );

    is( int($amount), 25, 'Use recall fine amount specified in circulation rules' );

    $recall->set_finished;

    ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );

    is( int($amount), 5, 'With no recall, use normal fine amount' );

    teardown();

};