my $messages;

    my $messages;

    my $dotransfer      = 1;

    my $dotransfer      = 1;

    my $itemnumber = GetItemnumberFromBarcode( $barcode );

    my $itemnumber = GetItemnumberFromBarcode( $barcode );

    my $biblio = GetBiblioFromItemNumber($itemnumber);

    my $biblio = GetBiblioFromItemNumber($itemnumber);

    # bad barcode..

    # bad barcode..

    }

    }

    # check if it is still issued to someone, return it...

    # check if it is still issued to someone, return it...

        AddReturn( $barcode, $fbr );

        AddReturn( $barcode, $fbr );

    }

    }

    # find reserves.....

    # find reserves.....

    my $override_high_holds = $params->{override_high_holds} || 0;

    my $override_high_holds = $params->{override_high_holds} || 0;

    my $item = GetItem(GetItemnumberFromBarcode( $barcode ));

    my $item = GetItem(GetItemnumberFromBarcode( $barcode ));

	my $biblioitem = GetBiblioItemData($item->{biblioitemnumber});

	my $biblioitem = GetBiblioItemData($item->{biblioitemnumber});

	$item->{'itemtype'}=$item->{'itype'}; 

	$item->{'itemtype'}=$item->{'itype'}; 

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

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

    #

    #

    my $switch_onsite_checkout =

    my $switch_onsite_checkout =

          C4::Context->preference('SwitchOnSiteCheckouts')

          C4::Context->preference('SwitchOnSiteCheckouts')

      and $issue

      and $issue

    my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout, switch_onsite_checkout => $switch_onsite_checkout, } );

    my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout, switch_onsite_checkout => $switch_onsite_checkout, } );

    # if TooMany max_allowed returns 0 the user doesn't have permission to check out this book

    # if TooMany max_allowed returns 0 the user doesn't have permission to check out this book

    if ( $toomany ) {

    if ( $toomany ) {

    #

    #

    # CHECK IF BOOK ALREADY ISSUED TO THIS BORROWER

    # CHECK IF BOOK ALREADY ISSUED TO THIS BORROWER

    #

    #

        # Already issued to current borrower.

        # Already issued to current borrower.

        # If it is an on-site checkout if it can be switched to a normal checkout

        # If it is an on-site checkout if it can be switched to a normal checkout

        # or ask whether the loan should be renewed

        # or ask whether the loan should be renewed

                and C4::Context->preference('SwitchOnSiteCheckouts') ) {

                and C4::Context->preference('SwitchOnSiteCheckouts') ) {

            $messages{ONSITE_CHECKOUT_WILL_BE_SWITCHED} = 1;

            $messages{ONSITE_CHECKOUT_WILL_BE_SWITCHED} = 1;

        } else {

        } else {

            }

            }

        }

        }

    }

    }

        # issued to someone else

        # issued to someone else

        my ( $can_be_returned, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} );

        my ( $can_be_returned, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} );

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

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

        # get actual issuing if there is one

        # get actual issuing if there is one

        # get biblioinformation for this item

        # get biblioinformation for this item

        my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} );

        my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} );

        # check if we just renew the issue.

        # check if we just renew the issue.

                and not $switch_onsite_checkout ) {

                and not $switch_onsite_checkout ) {

            $datedue = AddRenewal(

            $datedue = AddRenewal(

                $borrower->{'borrowernumber'},

                $borrower->{'borrowernumber'},

        }

        }

        else {

        else {

            # it's NOT a renewal

            # it's NOT a renewal

                # This book is currently on loan, but not to the person

                # This book is currently on loan, but not to the person

                # who wants to borrow it now. mark it returned before issuing to the new borrower

                # who wants to borrow it now. mark it returned before issuing to the new borrower

                my ( $allowed, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} );

                my ( $allowed, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} );

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

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

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

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

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

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

      or return;

      or return;

        and $issuing_rule->norenewalbefore ne "" )

        and $issuing_rule->norenewalbefore ne "" )

    {

    {

        my $soonestrenewal =

        my $soonestrenewal =

            $issuing_rule->lengthunit => $issuing_rule->norenewalbefore );

            $issuing_rule->lengthunit => $issuing_rule->norenewalbefore );

        if ( C4::Context->preference('NoRenewalBeforePrecision') eq 'date'

        if ( C4::Context->preference('NoRenewalBeforePrecision') eq 'date'

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

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

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

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

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

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

      or return;

      or return;

    return if not $issuing_rule->no_auto_renewal_after

    return if not $issuing_rule->no_auto_renewal_after

               or $issuing_rule->no_auto_renewal_after eq '';

               or $issuing_rule->no_auto_renewal_after eq '';

    $maximum_renewal_date->add(

    $maximum_renewal_date->add(

        $issuing_rule->lengthunit => $issuing_rule->no_auto_renewal_after

        $issuing_rule->lengthunit => $issuing_rule->no_auto_renewal_after

    );

    );

use DateTime;

use DateTime;

use C4::Auth;

use C4::Auth;

use C4::Members::Attributes qw(GetBorrowerAttributes);

use C4::Members::Attributes qw(GetBorrowerAttributes);

use Koha::Libraries;

use Koha::Libraries;

    my @renewal = CanBookBeRenewed( $borrowernumber, $itemnumber );

    my @renewal = CanBookBeRenewed( $borrowernumber, $itemnumber );

    if ( $renewal[0] ) { AddRenewal( $borrowernumber, $itemnumber ); }

    if ( $renewal[0] ) { AddRenewal( $borrowernumber, $itemnumber ); }

    # Hashref building

    # Hashref building

    my $out;

    my $out;

    $out->{'success'}  = $renewal[0];

    $out->{'success'}  = $renewal[0];

    $out->{'error'}    = $renewal[1];

    $out->{'error'}    = $renewal[1];

use C4::Members;

use C4::Members;

use C4::Reserves;

use C4::Reserves;

use Koha::Database;

use Koha::Database;

=encoding UTF-8

=encoding UTF-8

    $item->{sip_media_type} = $itemtype->sip_media_type() if $itemtype;

    $item->{sip_media_type} = $itemtype->sip_media_type() if $itemtype;

	# check if its on issue and if so get the borrower

	# check if its on issue and if so get the borrower

    if ($issue) {

    if ($issue) {

    }

    }

	$item->{patron} = $borrower->{'cardnumber'};

	$item->{patron} = $borrower->{'cardnumber'};

    my $reserves = GetReservesFromBiblionumber({ biblionumber => $item->{biblionumber} });

    my $reserves = GetReservesFromBiblionumber({ biblionumber => $item->{biblionumber} });

    $item->{hold_queue} = [ sort priority_sort @$reserves ];

    $item->{hold_queue} = [ sort priority_sort @$reserves ];

use strict;

use strict;

use warnings;

use warnings;

use C4::Context;

use C4::Context;

use Koha::DateUtils;

use Koha::DateUtils;

my %fields = (

my %fields = (

	ok            => 0,

	ok            => 0,

    } # renew from AddIssue ??

    } # renew from AddIssue ??

    else {

    else {

        # need to reread the issue to get due date

        # need to reread the issue to get due date

        }

        }

    }

    }

    return $due_dt;

    return $due_dt;

use C4::Items;

use C4::Items;

use C4::Members;

use C4::Members;

use C4::Stats;

use C4::Stats;

use Koha::Upload;

use Koha::Upload;

use Date::Calc qw( Add_Delta_Days Date_to_Days );

use Date::Calc qw( Add_Delta_Days Date_to_Days );

    my $item = GetBiblioFromItemNumber( undef, $barcode );

    my $item = GetBiblioFromItemNumber( undef, $barcode );

    return unless $item->{'itemnumber'};

    return unless $item->{'itemnumber'};

}

}

use C4::BackgroundJob;

use C4::BackgroundJob;

use Koha::Upload;

use Koha::Upload;

use Koha::Account;

use Koha::Account;

use Koha::Patrons;

use Koha::Patrons;

use Date::Calc qw( Add_Delta_Days Date_to_Days );

use Date::Calc qw( Add_Delta_Days Date_to_Days );

    my $branchcode = C4::Context->userenv->{branch};

    my $branchcode = C4::Context->userenv->{branch};

    my $borrower = GetMember( 'cardnumber'=>$circ->{ 'cardnumber' } );

    my $borrower = GetMember( 'cardnumber'=>$circ->{ 'cardnumber' } );

    my $item = GetBiblioFromItemNumber( undef, $circ->{ 'barcode' } );

    my $item = GetBiblioFromItemNumber( undef, $circ->{ 'barcode' } );

        #warn "Item Currently Issued.";

        #warn "Item Currently Issued.";

        if ( $issue->{'borrowernumber'} eq $borrower->{'borrowernumber'} ) { ## Issued to this person already, renew it.

        if ( $issue->{'borrowernumber'} eq $borrower->{'borrowernumber'} ) { ## Issued to this person already, renew it.

            #warn "Item issued to this member already, renewing.";

            #warn "Item issued to this member already, renewing.";

    my $item = GetBiblioFromItemNumber( undef, $barcode );

    my $item = GetBiblioFromItemNumber( undef, $barcode );

    return unless $item->{'itemnumber'};

    return unless $item->{'itemnumber'};

}

}

use C4::Overdues;

use C4::Overdues;

use C4::Debug;

use C4::Debug;

use Koha::DateUtils;

use Koha::DateUtils;

use Koha::Libraries;

use Koha::Libraries;

use Koha::Patrons;

use Koha::Patrons;

use Date::Calc qw/Today Date_to_Days/;

use Date::Calc qw/Today Date_to_Days/;

        # If the item is currently on loan, we display its return date and

        # If the item is currently on loan, we display its return date and

        # change the background color.

        # change the background color.

            $itemLoopIter->{backgroundcolor} = 'onloan';

            $itemLoopIter->{backgroundcolor} = 'onloan';

        }

        }

use C4::Members;

use C4::Members;

use C4::Search;		# enabled_staff_search_views

use C4::Search;		# enabled_staff_search_views

use Koha::DateUtils;

use Koha::DateUtils;

use Koha::Holds;

use Koha::Holds;

use Koha::Libraries;

use Koha::Libraries;

use Koha::Patrons;

use Koha::Patrons;

            # if the item is currently on loan, we display its return date and

            # if the item is currently on loan, we display its return date and

            # change the background color

            # change the background color

                $item->{backgroundcolor} = 'onloan';

                $item->{backgroundcolor} = 'onloan';

            }

            }

use C4::Overdues qw(UpdateFine CalcFine);

use C4::Overdues qw(UpdateFine CalcFine);

use Koha::DateUtils;

use Koha::DateUtils;

use Koha::Database;

use Koha::Database;

use Koha::Subscriptions;

use Koha::Subscriptions;

my $schema = Koha::Database->schema;

my $schema = Koha::Database->schema;

    is (defined $issue2, 1, "Item 2 checked out, due date: " . $issue2->date_due());

    is (defined $issue2, 1, "Item 2 checked out, due date: " . $issue2->date_due());

    is ($borrowing_borrowernumber, $renewing_borrowernumber, "Item checked out to $renewing_borrower->{firstname} $renewing_borrower->{surname}");

    is ($borrowing_borrowernumber, $renewing_borrowernumber, "Item checked out to $renewing_borrower->{firstname} $renewing_borrower->{surname}");

    my ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber, 1);

    my ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber, 1);

use Koha::DateUtils qw( dt_from_string );

use Koha::DateUtils qw( dt_from_string );

use Koha::Database;

use Koha::Database;

use t::lib::TestBuilder;

use t::lib::TestBuilder;

use t::lib::Mocks;

use t::lib::Mocks;

is( $messages->{ONSITE_CHECKOUT_WILL_BE_SWITCHED}, 1, 'If SwitchOnSiteCheckouts, switch the on-site checkout' );

is( $messages->{ONSITE_CHECKOUT_WILL_BE_SWITCHED}, 1, 'If SwitchOnSiteCheckouts, switch the on-site checkout' );

is( exists $impossible->{TOO_MANY}, '', 'If SwitchOnSiteCheckouts, switch the on-site checkout' );

is( exists $impossible->{TOO_MANY}, '', 'If SwitchOnSiteCheckouts, switch the on-site checkout' );

C4::Circulation::AddIssue( $patron, $item->{barcode}, undef, undef, undef, undef, { switch_onsite_checkout => 1 } );

C4::Circulation::AddIssue( $patron, $item->{barcode}, undef, undef, undef, undef, { switch_onsite_checkout => 1 } );

my $five_days_after = dt_from_string->add( days => 5 )->set( hour => 23, minute => 59, second => 0 );

my $five_days_after = dt_from_string->add( days => 5 )->set( hour => 23, minute => 59, second => 0 );

# Specific case

# Specific case

t::lib::Mocks::mock_preference('ConsiderOnSiteCheckoutsAsNormalCheckouts', 1);

t::lib::Mocks::mock_preference('ConsiderOnSiteCheckoutsAsNormalCheckouts', 1);

use Modern::Perl;

use Modern::Perl;

use DateTime::Duration;

use DateTime::Duration;

use t::lib::Mocks;

use t::lib::Mocks;

      AddReturn

      AddReturn

      GetBiblioIssues

      GetBiblioIssues

      GetIssuingCharges

      GetIssuingCharges

      GetOpenIssue

      GetOpenIssue

      GetRenewCount

      GetRenewCount

      GetUpcomingDueIssues

      GetUpcomingDueIssues

#Test GetBiblioIssues

#Test GetBiblioIssues

is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" );

is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" );

#Test GetOpenIssue

#Test GetOpenIssue

is( GetOpenIssue(), undef, "Without parameter GetOpenIssue returns undef" );

is( GetOpenIssue(), undef, "Without parameter GetOpenIssue returns undef" );

is( GetOpenIssue(-1), undef,

is( GetOpenIssue(-1), undef,