#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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 <https://www.gnu.org/licenses>.

use Modern::Perl;

use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth        qw( get_template_and_user );
use C4::Output      qw( output_html_with_http_headers );
use C4::Circulation qw( barcodedecode CanBookBeRenewed GetLatestAutoRenewDate AddRenewal );
use Koha::DateUtils qw( dt_from_string );
use Koha::Database;
use Koha::BiblioFrameworks;
use Koha::Patrons;

my $cgi = CGI->new;

my ( $template, $librarian, $cookie, $flags ) = get_template_and_user(
    {
        template_name => "circ/renew.tt",
        query         => $cgi,
        type          => "intranet",
        flagsrequired => { circulate => "circulate_remaining_permissions" },
    }
);

my $schema = Koha::Database->new()->schema();

my $op      = $cgi->param('op') || q{};
my $barcode = $cgi->param('barcode') // '';
my $unseen  = $cgi->param('unseen') || 0;
$barcode = barcodedecode($barcode) if $barcode;
my $override_limit = $cgi->param('override_limit');
my $override_holds = $cgi->param('override_holds');
my $override_debt  = $cgi->param('override_debt');
my $hard_due_date  = $cgi->param('hard_due_date');

my ( $item, $checkout, $patron );
my $error = q{};
my ( $soonest_renew_date, $latest_auto_renew_date );

if ( $op eq 'cud-renew' && $barcode ) {
    $barcode = barcodedecode($barcode) if $barcode;
    $item    = Koha::Items->find( { barcode => $barcode } );

    if ($item) {

        $checkout = $item->checkout;

        if ($checkout) {

            $patron = $checkout->patron;
            my $borrowernumber = $patron->borrowernumber;

            if ( ( $patron->is_debarred || q{} ) lt dt_from_string()->ymd() ) {
                my $confirmations;
                my $can_renew;
                my $info;
                my $requested_due_date =
                    ( C4::Context->preference('SpecifyDueDate') && $hard_due_date )
                    ? $hard_due_date
                    : undef;
                ( $can_renew, $error, $info ) =
                    CanBookBeRenewed( $patron, $checkout, $override_limit, undef, $requested_due_date );
                push @{$confirmations}, 'RENEWAL_LIMIT' if $override_limit;

                if ( $error && ( $error eq 'on_reserve' ) ) {
                    if ($override_holds) {
                        $can_renew = 1;
                        $error     = undef;
                        push @{$confirmations}, 'ON_RESERVE';
                    } else {
                        $can_renew = 0;
                    }
                }

                if ( $error && ( $error eq 'too_soon' or $error eq 'auto_too_soon' ) ) {
                    $soonest_renew_date = $info->{soonest_renew_date};
                }
                if ( $error && ( $error eq 'auto_too_late' ) ) {
                    $latest_auto_renew_date = GetLatestAutoRenewDate(
                        $patron,
                        $checkout,
                    );
                }

                if ( $error && ( $error eq 'too_much_owing' or $error eq 'auto_too_much_owing' ) ) {
                    if ( $override_debt && C4::Context->preference("AllowFineOverrideRenewing") ) {
                        $can_renew = 1;
                        $error     = undef;
                    } else {
                        $can_renew = 0;
                    }
                }

                if ($can_renew) {
                    my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
                    my $date_due =
                        ( C4::Context->preference('SpecifyDueDate') && $hard_due_date )
                        ? $hard_due_date
                        : $cgi->param('renewonholdduedate');

                    $date_due = AddRenewal(
                        {
                            itemnumber    => $item->itemnumber(),
                            branch        => $branchcode,
                            datedue       => $date_due,
                            seen          => !$unseen,
                            confirmations => $confirmations
                        }
                    );
                    $template->param( date_due => $date_due );
                }
            } else {
                $error = "patron_restricted";
            }
        } else {
            $error = "no_checkout";
        }
    } else {
        $error = "no_item";
    }

    $template->param(
        item                => $item,
        issue               => $checkout,
        borrower            => $patron,
        error               => $error,
        soonestrenewdate    => $soonest_renew_date,
        latestautorenewdate => $latest_auto_renew_date,
    );
}

$template->param( hard_due_date => $hard_due_date );

# Checking if there is a Fast Cataloging Framework
$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find('FA');

output_html_with_http_headers( $cgi, $cookie, $template->output );