&GetLatestAutoRenewDate

=head2 GetLatestAutoRenewDate

  $NoAutoRenewalAfterThisDate = &GetLatestAutoRenewDate($borrowernumber, $itemnumber);

Find out the latest possible auto renew date of a borrowed item.

C<$borrowernumber> is the borrower number of the patron who currently

has the item on loan.

C<$itemnumber> is the number of the item to renew.

C<$GetLatestAutoRenewDate> returns the DateTime of the latest possible

auto renew date, based on the value "No auto renewal after" of the applicable

issuing rule.

Returns undef if there is no date specify in the circ rules or if the patron, loan,

or item cannot be found.

=cut

sub GetLatestAutoRenewDate {

    my ( $borrowernumber, $itemnumber ) = @_;

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

    my $item      = GetItem($itemnumber)      or return;

    my $itemissue = GetItemIssue($itemnumber) or return;

    $borrowernumber ||= $itemissue->{borrowernumber};

    my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber )

      or return;

    my $branchcode = _GetCircControlBranch( $item, $borrower );

    my $issuingrule =

      GetIssuingRule( $borrower->{categorycode}, $item->{itype}, $branchcode );

    my $now = dt_from_string;

    return if not $issuingrule->{no_auto_renewal_after}

               or $issuingrule->{no_auto_renewal_after} eq '';

    my $maximum_renewal_date = dt_from_string($itemissue->{issuedate});

    $maximum_renewal_date->add(

        $issuingrule->{lengthunit} => $issuingrule->{no_auto_renewal_after}

    );

    return $maximum_renewal_date;

}

                if ( $error && ( $error eq 'auto_too_late' ) ) {

                    $latest_auto_renew_date = C4::Circulation::GetLatestAutoRenewDate(

                        $borrower->borrowernumber(),

                        $item->itemnumber(),

                    );

                }

        latestautorenewdate => $latest_auto_renew_date,

    subtest "GetLatestAutoRenewDate" => sub {

        plan tests => 3;

        my $item_to_auto_renew = $builder->build(

            {   source => 'Item',

                value  => {

                    biblionumber  => $biblionumber,

                    homebranch    => $branch,

                    holdingbranch => $branch,

                }

            }

        );

        my $ten_days_before = dt_from_string->add( days => -10 );

        my $ten_days_ahead  = dt_from_string->add( days => 10 );

        AddIssue( $renewing_borrower, $item_to_auto_renew->{barcode}, $ten_days_ahead, undef, $ten_days_before, undef, { auto_renew => 1 } );

        $dbh->do('UPDATE issuingrules SET norenewalbefore = 7, no_auto_renewal_after = ""');

        my $latest_auto_renew_date = GetLatestAutoRenewDate( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );

        is( $latest_auto_renew_date, undef, 'GetLatestAutoRenewDate should return undef if no_auto_renewal_after is not defined' );

        my $five_days_before = dt_from_string->add( days => -5 );

        $dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 5');

        $latest_auto_renew_date = GetLatestAutoRenewDate( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );

        is( $latest_auto_renew_date->truncate( to => 'minute' ),

            $five_days_before->truncate( to => 'minute' ),

            'GetLatestAutoRenewDate should return -5 days if no_auto_renewal_after = 5 and date_due is 10 days before'

        );

        my $five_days_ahead = dt_from_string->add( days => 5 );

        $dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 15');

        $latest_auto_renew_date = GetLatestAutoRenewDate( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );

        is( $latest_auto_renew_date->truncate( to => 'minute' ),

            $five_days_ahead->truncate( to => 'minute' ),

            'GetLatestAutoRenewDate should return +5 days if no_auto_renewal_after = 15 and date_due is 10 days before'

        );

    };