C4::Context->dbh->do("DELETE FROM accountlines WHERE borrowernumber IN ( SELECT borrowernumber FROM borrowers WHERE cardnumber = '99999999999' )");

C4::Context->dbh->do("DELETE FROM accountlines WHERE borrowernumber IN ( SELECT borrowernumber FROM borrowers WHERE cardnumber = '99999999999' )");

C4::Context->dbh->do("DELETE FROM borrowers WHERE cardnumber = '99999999999'");

C4::Context->dbh->do("DELETE FROM borrowers WHERE cardnumber = '99999999999'");

C4::Context->dbh->do("DELETE FROM accountlines");

C4::Context->dbh->do("DELETE FROM accountlines");

{

{

# CanBookBeRenewed tests

# CanBookBeRenewed tests

    C4::Context->set_preference('ItemsDeniedRenewal','');

    C4::Context->set_preference('ItemsDeniedRenewal','');

    # Generate test biblio

    # Generate test biblio

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

    my $branch = $library2->{branchcode};

    my $branch = $library2->{branchcode};

        {

        {

            replacementprice => 12.00,

            replacementprice => 12.00,

    );

    );

        {

        {

            replacementprice => 23.00,

            replacementprice => 23.00,

    );

    );

        {

        {

            replacementprice => 23.00,

            replacementprice => 23.00,

    );

    );

    # Create borrowers

    # Create borrowers

    my $checkitem      = undef;

    my $checkitem      = undef;

    my $found          = undef;

    my $found          = undef;

    my $datedue = dt_from_string( $issue->date_due() );

    my $datedue = dt_from_string( $issue->date_due() );

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

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

    $datedue = dt_from_string( $issue->date_due() );

    $datedue = dt_from_string( $issue->date_due() );

    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}");

    is( $renewokay, 1, 'Can renew, no holds for this title or item');

    is( $renewokay, 1, 'Can renew, no holds for this title or item');

    # Testing of feature to allow the renewal of reserved items if other items on the record can fill all needed holds

    # Testing of feature to allow the renewal of reserved items if other items on the record can fill all needed holds

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

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

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

    is( $renewokay, 1, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 1, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 1, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 1, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    # Now let's add an item level hold, we should no longer be able to renew the item

    # Now let's add an item level hold, we should no longer be able to renew the item

        {

        {

            borrowernumber => $hold_waiting_borrowernumber,

            borrowernumber => $hold_waiting_borrowernumber,

            biblionumber   => $biblio->biblionumber,

            biblionumber   => $biblio->biblionumber,

            branchcode     => $branch,

            branchcode     => $branch,

            priority       => 3,

            priority       => 3,

        }

        }

    );

    );

    is( $renewokay, 0, 'Bug 13919 - Renewal possible with item level hold on item');

    is( $renewokay, 0, 'Bug 13919 - Renewal possible with item level hold on item');

    $hold->delete();

    $hold->delete();

        {

        {

            borrowernumber => $hold_waiting_borrowernumber,

            borrowernumber => $hold_waiting_borrowernumber,

            biblionumber   => $biblio->biblionumber,

            biblionumber   => $biblio->biblionumber,

            branchcode     => $branch,

            branchcode     => $branch,

            priority       => 0,

            priority       => 0,

            found          => 'W'

            found          => 'W'

        }

        }

    );

    );

    is( $renewokay, 0, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 0, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 0, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    is( $renewokay, 0, 'Bug 11634 - Allow renewal of item with unfilled holds if other available items can fill those holds');

    t::lib::Mocks::mock_preference('AllowRenewalIfOtherItemsAvailable', 0 );

    t::lib::Mocks::mock_preference('AllowRenewalIfOtherItemsAvailable', 0 );

    is( $renewokay, 0, '(Bug 10663) Cannot renew, reserved');

    is( $renewokay, 0, '(Bug 10663) Cannot renew, reserved');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, reserved (returned error is on_reserve)');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, reserved (returned error is on_reserve)');

    is( $renewokay, 0, '(Bug 10663) Cannot renew, reserved');

    is( $renewokay, 0, '(Bug 10663) Cannot renew, reserved');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, reserved (returned error is on_reserve)');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, reserved (returned error is on_reserve)');

    my $reserveid = Koha::Holds->search({ biblionumber => $biblio->biblionumber, borrowernumber => $reserving_borrowernumber })->next->reserve_id;

    my $reserveid = Koha::Holds->search({ biblionumber => $biblio->biblionumber, borrowernumber => $reserving_borrowernumber })->next->reserve_id;

    my $reserving_borrower = Koha::Patrons->find( $reserving_borrowernumber )->unblessed;

    my $reserving_borrower = Koha::Patrons->find( $reserving_borrowernumber )->unblessed;

    my $reserve = $dbh->selectrow_hashref(

    my $reserve = $dbh->selectrow_hashref(

        'SELECT * FROM old_reserves WHERE reserve_id = ?',

        'SELECT * FROM old_reserves WHERE reserve_id = ?',

        { Slice => {} },

        { Slice => {} },

    AddReserve(

    AddReserve(

        $branch, $reserving_borrowernumber, $biblio->biblionumber,

        $branch, $reserving_borrowernumber, $biblio->biblionumber,

        $bibitems,  $priority, $resdate, $expdate, $notes,

        $bibitems,  $priority, $resdate, $expdate, $notes,

    );

    );

    is( $renewokay, 0, '(Bug 10663) Cannot renew, item reserved');

    is( $renewokay, 0, '(Bug 10663) Cannot renew, item reserved');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, item reserved (returned error is on_reserve)');

    is( $error, 'on_reserve', '(Bug 10663) Cannot renew, item reserved (returned error is on_reserve)');

    is( $renewokay, 1, 'Can renew item 2, item-level hold is on item 1');

    is( $renewokay, 1, 'Can renew item 2, item-level hold is on item 1');

    # Items can't fill hold for reasons

    # Items can't fill hold for reasons

    is( $renewokay, 1, 'Can renew, item is marked not for loan, hold does not block');

    is( $renewokay, 1, 'Can renew, item is marked not for loan, hold does not block');

    # FIXME: Add more for itemtype not for loan etc.

    # FIXME: Add more for itemtype not for loan etc.

    # Restricted users cannot renew when RestrictionBlockRenewing is enabled

    # Restricted users cannot renew when RestrictionBlockRenewing is enabled

        {

        {

            replacementprice => 23.00,

            replacementprice => 23.00,

    );

    );

    is (defined $datedue5, 1, "Item with date due checked out, due date: $datedue5");

    is (defined $datedue5, 1, "Item with date due checked out, due date: $datedue5");

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

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

    is( $renewokay, 1, '(Bug 8236), Can renew, user is not restricted');

    is( $renewokay, 1, '(Bug 8236), Can renew, user is not restricted');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, user is restricted');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, user is restricted');

    # Users cannot renew an overdue item

    # Users cannot renew an overdue item

        {

        {

            replacementprice => 23.00,

            replacementprice => 23.00,

    );

    );

        {

        {

            replacementprice => 23.00,

            replacementprice => 23.00,

    );

    );

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

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

    my $now = dt_from_string();

    my $now = dt_from_string();

    my $five_weeks_ago = $now - $five_weeks;

    my $five_weeks_ago = $now - $five_weeks;

    t::lib::Mocks::mock_preference('finesMode', 'production');

    t::lib::Mocks::mock_preference('finesMode', 'production');

    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due);

    is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due);

    C4::Overdues::UpdateFine(

    C4::Overdues::UpdateFine(

        {

        {

            issue_id       => $passeddatedue1->id(),

            issue_id       => $passeddatedue1->id(),

            borrowernumber => $renewing_borrower->{borrowernumber},

            borrowernumber => $renewing_borrower->{borrowernumber},

            amount         => $fine,

            amount         => $fine,

            type           => 'FU',

            type           => 'FU',

    t::lib::Mocks::mock_preference('RenewalLog', 0);

    t::lib::Mocks::mock_preference('RenewalLog', 0);

    my $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } );

    my $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } );

    my $old_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    my $old_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    my $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    my $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    is ($new_log_size, $old_log_size, 'renew log not added because of the syspref RenewalLog');

    is ($new_log_size, $old_log_size, 'renew log not added because of the syspref RenewalLog');

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

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

    $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } );

    $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } );

    $old_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    $old_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');

    is ($new_log_size, $old_log_size + 1, 'renew log successfully added');

    is( $fines->count, 2 );

    is( $fines->count, 2 );

    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );

    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );

    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );

    is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' );

    my $old_issue_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } );

    my $old_issue_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } );

    my $old_renew_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    my $old_renew_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } );

    is ($new_log_size, $old_renew_log_size + 1, 'renew log successfully added when renewed via issuing');

    is ($new_log_size, $old_renew_log_size + 1, 'renew log successfully added when renewed via issuing');

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } );

    $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } );

    is ($new_log_size, $old_issue_log_size, 'renew not logged as issue when renewed via issuing');

    is ($new_log_size, $old_issue_log_size, 'renew not logged as issue when renewed via issuing');

    $fines->delete();

    $fines->delete();

    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');

    t::lib::Mocks::mock_preference('OverduesBlockRenewing','blockitem');

    is( $renewokay, 1, '(Bug 8236), Can renew, this item is not overdue');

    is( $renewokay, 1, '(Bug 8236), Can renew, this item is not overdue');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, this item is overdue');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, this item is overdue');

    # Bug 14101

    # Bug 14101

    # Test automatic renewal before value for "norenewalbefore" in policy is set

    # Test automatic renewal before value for "norenewalbefore" in policy is set

    # In this case automatic renewal is not permitted prior to due date

    # In this case automatic renewal is not permitted prior to due date

        {

        {

            replacementprice => 16.00,

            replacementprice => 16.00,

    );

    );

    ( $renewokay, $error ) =

    ( $renewokay, $error ) =

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $error, 'auto_too_soon',

    is( $error, 'auto_too_soon',

        'Bug 14101: Cannot renew, renewal is automatic and premature, "No renewal before" = undef (returned code is auto_too_soon)' );

        'Bug 14101: Cannot renew, renewal is automatic and premature, "No renewal before" = undef (returned code is auto_too_soon)' );

    # Test premature manual renewal

    # Test premature manual renewal

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

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

    is( $renewokay, 0, 'Bug 7413: Cannot renew, renewal is premature');

    is( $renewokay, 0, 'Bug 7413: Cannot renew, renewal is premature');

    is( $error, 'too_soon', 'Bug 7413: Cannot renew, renewal is premature (returned code is too_soon)');

    is( $error, 'too_soon', 'Bug 7413: Cannot renew, renewal is premature (returned code is too_soon)');

    # Test 'exact time' setting for syspref NoRenewalBeforePrecision

    # Test 'exact time' setting for syspref NoRenewalBeforePrecision

    t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'exact_time' );

    t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'exact_time' );

    is(

    is(

        $datedue->clone->add( days => -7 ),

        $datedue->clone->add( days => -7 ),

        'Bug 14395: Renewals permitted 7 days before due date, as expected'

        'Bug 14395: Renewals permitted 7 days before due date, as expected'

    );

    );

    # Test 'date' setting for syspref NoRenewalBeforePrecision

    # Test 'date' setting for syspref NoRenewalBeforePrecision

    t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'date' );

    t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'date' );

    is(

    is(

        $datedue->clone->add( days => -7 )->truncate( to => 'day' ),

        $datedue->clone->add( days => -7 )->truncate( to => 'day' ),

        'Bug 14395: Renewals permitted 7 days before due date, as expected'

        'Bug 14395: Renewals permitted 7 days before due date, as expected'

    );

    );

    # Bug 14101

    # Bug 14101

    # Test premature automatic renewal

    # Test premature automatic renewal

    ( $renewokay, $error ) =

    ( $renewokay, $error ) =

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $error, 'auto_too_soon',

    is( $error, 'auto_too_soon',

        'Bug 14101: Cannot renew, renewal is automatic and premature (returned code is auto_too_soon)'

        'Bug 14101: Cannot renew, renewal is automatic and premature (returned code is auto_too_soon)'

    # and test automatic renewal again

    # and test automatic renewal again

    $dbh->do('UPDATE issuingrules SET norenewalbefore = 0');

    $dbh->do('UPDATE issuingrules SET norenewalbefore = 0');

    ( $renewokay, $error ) =

    ( $renewokay, $error ) =

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic and premature' );

    is( $error, 'auto_too_soon',

    is( $error, 'auto_too_soon',

        'Bug 14101: Cannot renew, renewal is automatic and premature, "No renewal before" = 0 (returned code is auto_too_soon)'

        'Bug 14101: Cannot renew, renewal is automatic and premature, "No renewal before" = 0 (returned code is auto_too_soon)'

    # and test automatic renewal again

    # and test automatic renewal again

    $dbh->do('UPDATE issuingrules SET norenewalbefore = 99');

    $dbh->do('UPDATE issuingrules SET norenewalbefore = 99');

    ( $renewokay, $error ) =

    ( $renewokay, $error ) =

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic' );

    is( $renewokay, 0, 'Bug 14101: Cannot renew, renewal is automatic' );

    is( $error, 'auto_renew',

    is( $error, 'auto_renew',

        'Bug 14101: Cannot renew, renewal is automatic (returned code is auto_renew)'

        'Bug 14101: Cannot renew, renewal is automatic (returned code is auto_renew)'

    # set policy to forbid renewals

    # set policy to forbid renewals

    $dbh->do('UPDATE issuingrules SET norenewalbefore = NULL, renewalsallowed = 0');

    $dbh->do('UPDATE issuingrules SET norenewalbefore = NULL, renewalsallowed = 0');

    is( $renewokay, 0, 'Cannot renew, 0 renewals allowed');

    is( $renewokay, 0, 'Cannot renew, 0 renewals allowed');

    is( $error, 'too_many', 'Cannot renew, 0 renewals allowed (returned code is too_many)');

    is( $error, 'too_many', 'Cannot renew, 0 renewals allowed (returned code is too_many)');

    C4::Overdues::UpdateFine(

    C4::Overdues::UpdateFine(

        {

        {

            issue_id       => $issue->id(),

            issue_id       => $issue->id(),

            borrowernumber => $renewing_borrower->{borrowernumber},

            borrowernumber => $renewing_borrower->{borrowernumber},

            amount         => 15.00,

            amount         => 15.00,

            type           => q{},

            type           => q{},

    t::lib::Mocks::mock_preference('WhenLostForgiveFine','0');

    t::lib::Mocks::mock_preference('WhenLostForgiveFine','0');

    t::lib::Mocks::mock_preference('WhenLostChargeReplacementFee','0');

    t::lib::Mocks::mock_preference('WhenLostChargeReplacementFee','0');

    $line = Koha::Account::Lines->find($line->id);

    $line = Koha::Account::Lines->find($line->id);

    is( $line->accounttype, 'F', 'Account type correctly changed from FU to F' );

    is( $line->accounttype, 'F', 'Account type correctly changed from FU to F' );

    ok( !$item->onloan(), "Lost item marked as returned has false onloan value" );

    ok( !$item->onloan(), "Lost item marked as returned has false onloan value" );

    is( $checkout, undef, 'LostItem called with forced return has checked in the item' );

    is( $checkout, undef, 'LostItem called with forced return has checked in the item' );

    my $total_due = $dbh->selectrow_array(

    my $total_due = $dbh->selectrow_array(

    C4::Overdues::UpdateFine(

    C4::Overdues::UpdateFine(

        {

        {

            issue_id       => $issue2->id(),

            issue_id       => $issue2->id(),

            borrowernumber => $renewing_borrower->{borrowernumber},

            borrowernumber => $renewing_borrower->{borrowernumber},

            amount         => 15.00,

            amount         => 15.00,

            type           => q{},

            type           => q{},

        }

        }

    );

    );

    ok( $item2->onloan(), "Lost item *not* marked as returned has true onloan value" );

    ok( $item2->onloan(), "Lost item *not* marked as returned has true onloan value" );

    $total_due = $dbh->selectrow_array(

    $total_due = $dbh->selectrow_array(

        'SELECT SUM( amountoutstanding ) FROM accountlines WHERE borrowernumber = ?',

        'SELECT SUM( amountoutstanding ) FROM accountlines WHERE borrowernumber = ?',

    # Users cannot renew any item if there is an overdue item

    # Users cannot renew any item if there is an overdue item

    t::lib::Mocks::mock_preference('OverduesBlockRenewing','block');

    t::lib::Mocks::mock_preference('OverduesBlockRenewing','block');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, one of the items is overdue');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, one of the items is overdue');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, one of the items is overdue');

    is( $renewokay, 0, '(Bug 8236), Cannot renew, one of the items is overdue');

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

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

    is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" );

    is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" );

  }

  }

{

{

    # GetUpcomingDueIssues tests

    # GetUpcomingDueIssues tests

    my $branch   = $library2->{branchcode};

    my $branch   = $library2->{branchcode};

    #Create another record

    #Create another record

    my $biblio2 = $builder->build_sample_biblio();

    my $biblio2 = $builder->build_sample_biblio();

    #Create third item

    #Create third item

        {

        {

    );

    );

    # Create a borrower

    # Create a borrower

    my %a_borrower_data = (

    my %a_borrower_data = (

        firstname =>  'Fridolyn',

        firstname =>  'Fridolyn',

    my $two_days_ahead = DateTime->today(time_zone => C4::Context->tz())->add( days => 2 );

    my $two_days_ahead = DateTime->today(time_zone => C4::Context->tz())->add( days => 2 );

    my $today = DateTime->today(time_zone => C4::Context->tz());

    my $today = DateTime->today(time_zone => C4::Context->tz());

    my $datedue = dt_from_string( $issue->date_due() );

    my $datedue = dt_from_string( $issue->date_due() );

    my $datedue2 = dt_from_string( $issue->date_due() );

    my $datedue2 = dt_from_string( $issue->date_due() );

    my $upcoming_dues;

    my $upcoming_dues;

    # Bug 11218 - Due notices not generated - GetUpcomingDueIssues needs to select due today items as well

    # Bug 11218 - Due notices not generated - GetUpcomingDueIssues needs to select due today items as well

    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => -1 } );

    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => -1 } );

    is ( scalar ( @$upcoming_dues), 0, "Overdues can not be selected" );

    is ( scalar ( @$upcoming_dues), 0, "Overdues can not be selected" );

}

}

{

{

    my $branch   = $library2->{branchcode};

    my $branch   = $library2->{branchcode};

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

    #Create third item

    #Create third item

        {

        {

    );

    );

    # Create a borrower

    # Create a borrower

    my $borrowernumber = Koha::Patron->new(\%a_borrower_data)->store->borrowernumber;

    my $borrowernumber = Koha::Patron->new(\%a_borrower_data)->store->borrowernumber;

    my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;

    my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;

    UpdateFine(

    UpdateFine(

        {

        {

            issue_id       => $issue->id(),

            issue_id       => $issue->id(),

            borrowernumber => $borrowernumber,

            borrowernumber => $borrowernumber,

            amount         => 0,

            amount         => 0,

            type           => q{}

            type           => q{}

        }

        }

    );

    );

    my $count = $hr->{count};

    my $count = $hr->{count};

    is ( $count, 0, "Calling UpdateFine on non-existant fine with an amount of 0 does not result in an empty fine" );

    is ( $count, 0, "Calling UpdateFine on non-existant fine with an amount of 0 does not result in an empty fine" );

    );

    );

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

        {

        {

    );

    );

        {

        {

    );

    );

    my $borrowernumber1 = Koha::Patron->new({

    my $borrowernumber1 = Koha::Patron->new({

    my $borrower1 = Koha::Patrons->find( $borrowernumber1 )->unblessed;

    my $borrower1 = Koha::Patrons->find( $borrowernumber1 )->unblessed;

    my $borrower2 = Koha::Patrons->find( $borrowernumber2 )->unblessed;

    my $borrower2 = Koha::Patrons->find( $borrowernumber2 )->unblessed;

    is( $renewokay, 1, 'Bug 14337 - Verify the borrower can renew with no hold on the record' );

    is( $renewokay, 1, 'Bug 14337 - Verify the borrower can renew with no hold on the record' );

    AddReserve(

    AddReserve(

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 0");

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 0");

    t::lib::Mocks::mock_preference( 'AllowRenewalIfOtherItemsAvailable', 0 );

    t::lib::Mocks::mock_preference( 'AllowRenewalIfOtherItemsAvailable', 0 );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable and onshelfholds are disabled' );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable and onshelfholds are disabled' );

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 0");

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 0");

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

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

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is enabled and onshelfholds is disabled' );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is enabled and onshelfholds is disabled' );

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

    t::lib::Mocks::mock_preference( 'AllowRenewalIfOtherItemsAvailable', 0 );

    t::lib::Mocks::mock_preference( 'AllowRenewalIfOtherItemsAvailable', 0 );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is disabled and onshelfhold is enabled' );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower cannot renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is disabled and onshelfhold is enabled' );

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

    C4::Context->dbh->do("UPDATE issuingrules SET onshelfholds = 1");

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

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

    is( $renewokay, 1, 'Bug 14337 - Verify the borrower can renew with a hold on the record if AllowRenewalIfOtherItemsAvailable and onshelfhold are enabled' );

    is( $renewokay, 1, 'Bug 14337 - Verify the borrower can renew with a hold on the record if AllowRenewalIfOtherItemsAvailable and onshelfhold are enabled' );

    # Setting item not checked out to be not for loan but holdable

    # Setting item not checked out to be not for loan but holdable

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower can not renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is enabled but the only available item is notforloan' );

    is( $renewokay, 0, 'Bug 14337 - Verify the borrower can not renew with a hold on the record if AllowRenewalIfOtherItemsAvailable is enabled but the only available item is notforloan' );

}

}

{

{

    # Don't allow renewing onsite checkout

    # Don't allow renewing onsite checkout

    my $branch   = $library->{branchcode};

    my $branch   = $library->{branchcode};

    #Create another record

    #Create another record

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

        {

        {

    );

    );

    my $borrowernumber = Koha::Patron->new({

    my $borrowernumber = Koha::Patron->new({

    my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;

    my $borrower = Koha::Patrons->find( $borrowernumber )->unblessed;

    is( $renewed, 0, 'CanBookBeRenewed should not allow to renew on-site checkout' );

    is( $renewed, 0, 'CanBookBeRenewed should not allow to renew on-site checkout' );

    is( $error, 'onsite_checkout', 'A correct error code should be returned by CanBookBeRenewed for on-site checkout' );

    is( $error, 'onsite_checkout', 'A correct error code should be returned by CanBookBeRenewed for on-site checkout' );

}

}

    my $biblio = $builder->build_sample_biblio();

    my $biblio = $builder->build_sample_biblio();

        {

        {

    );

    );

    my $patron = $builder->build({ source => 'Borrower', value => { branchcode => $library->{branchcode}, categorycode => $patron_category->{categorycode} } } );

    my $patron = $builder->build({ source => 'Borrower', value => { branchcode => $library->{branchcode}, categorycode => $patron_category->{categorycode} } } );

    UpdateFine(

    UpdateFine(

        {

        {

            issue_id       => $issue->id(),

            issue_id       => $issue->id(),

            borrowernumber => $patron->{borrowernumber},

            borrowernumber => $patron->{borrowernumber},

            amount         => 1,

            amount         => 1,

            type           => q{}

            type           => q{}

    UpdateFine(

    UpdateFine(

        {

        {

            issue_id       => $issue->id(),

            issue_id       => $issue->id(),

            borrowernumber => $patron->{borrowernumber},

            borrowernumber => $patron->{borrowernumber},

            amount         => 2,

            amount         => 2,

            type           => q{}

            type           => q{}

    my $branch = $library2->{branchcode};

    my $branch = $library2->{branchcode};

        {

        {

            replacementprice => 12.00,

            replacementprice => 12.00,

    );

    );

        {

        {

            replacementprice => 12.00,

            replacementprice => 12.00,

    );

    );

    my $bibitems       = '';

    my $bibitems       = '';

    );

    );

    my $renewing_borrowernumber = Koha::Patron->new(\%renewing_borrower_data)->store->borrowernumber;

    my $renewing_borrowernumber = Koha::Patron->new(\%renewing_borrower_data)->store->borrowernumber;

    my $renewing_borrower = Koha::Patrons->find( $renewing_borrowernumber )->unblessed;

    my $renewing_borrower = Koha::Patrons->find( $renewing_borrowernumber )->unblessed;

    my $datedue = dt_from_string( $issue->date_due() );

    my $datedue = dt_from_string( $issue->date_due() );

    is (defined $issue->date_due(), 1, "item 1 checked out");

    is (defined $issue->date_due(), 1, "item 1 checked out");

    my %reserving_borrower_data1 = (

    my %reserving_borrower_data1 = (

        firstname =>  'Katrin',

        firstname =>  'Katrin',

    );

    );

    {

    {

        is($renewokay, 0, 'Bug 17941 - should cover the case where 2 books are both reserved, so failing');

        is($renewokay, 0, 'Bug 17941 - should cover the case where 2 books are both reserved, so failing');

    }

    }

        {

        {

            replacementprice => 12.00,

            replacementprice => 12.00,

    );

    );

    {

    {

        is($renewokay, 1, 'Bug 17941 - should cover the case where 2 books are reserved, but a third one is available');

        is($renewokay, 1, 'Bug 17941 - should cover the case where 2 books are reserved, but a third one is available');

    }

    }

};

};

        plan tests => 10;

        plan tests => 10;

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

                replacementprice => $replacement_amount,

                replacementprice => $replacement_amount,

        );

        );

        # Simulate item marked as lost

        # Simulate item marked as lost

        my $processing_fee_lines = Koha::Account::Lines->search(

        my $processing_fee_lines = Koha::Account::Lines->search(

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        my $processing_fee_line = $processing_fee_lines->next;

        my $processing_fee_line = $processing_fee_lines->next;

        is( $processing_fee_line->amount + 0,

        is( $processing_fee_line->amount + 0,

            $processfee_amount, 'The right PF amountoutstanding is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(

        my $lost_fee_lines = Koha::Account::Lines->search(

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        my $lost_fee_line = $lost_fee_lines->next;

        my $lost_fee_line = $lost_fee_lines->next;

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        );

        );

        $credit->apply( { debits => $debts, offset_type => 'Writeoff' } );

        $credit->apply( { debits => $debts, offset_type => 'Writeoff' } );

        is( $credit_return_id, undef, 'No CR account line added' );

        is( $credit_return_id, undef, 'No CR account line added' );

        $lost_fee_line->discard_changes; # reload from DB

        $lost_fee_line->discard_changes; # reload from DB

        plan tests => 12;

        plan tests => 12;

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

                replacementprice => $replacement_amount,

                replacementprice => $replacement_amount,

                itype            => $item_type->itemtype

                itype            => $item_type->itemtype

        );

        );

        # Simulate item marked as lost

        # Simulate item marked as lost

        my $processing_fee_lines = Koha::Account::Lines->search(

        my $processing_fee_lines = Koha::Account::Lines->search(

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        my $processing_fee_line = $processing_fee_lines->next;

        my $processing_fee_line = $processing_fee_lines->next;

        is( $processing_fee_line->amount + 0,

        is( $processing_fee_line->amount + 0,

            $processfee_amount, 'The right PF amountoutstanding is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(

        my $lost_fee_lines = Koha::Account::Lines->search(

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        my $lost_fee_line = $lost_fee_lines->next;

        my $lost_fee_line = $lost_fee_lines->next;

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        );

        );

        $credit->apply( { debits => $debts, offset_type => 'Payment' } );

        $credit->apply( { debits => $debts, offset_type => 'Payment' } );

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        is( $credit_return->accounttype, 'CR', 'An account line of type CR is added' );

        is( $credit_return->accounttype, 'CR', 'An account line of type CR is added' );

        plan tests => 12;

        plan tests => 12;

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

                replacementprice => $replacement_amount,

                replacementprice => $replacement_amount,

                itype            => $item_type->itemtype

                itype            => $item_type->itemtype

        );

        );

        # Simulate item marked as lost

        # Simulate item marked as lost

        my $processing_fee_lines = Koha::Account::Lines->search(

        my $processing_fee_lines = Koha::Account::Lines->search(

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        my $processing_fee_line = $processing_fee_lines->next;

        my $processing_fee_line = $processing_fee_lines->next;

        is( $processing_fee_line->amount + 0,

        is( $processing_fee_line->amount + 0,

            $processfee_amount, 'The right PF amountoutstanding is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(

        my $lost_fee_lines = Koha::Account::Lines->search(

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        my $lost_fee_line = $lost_fee_lines->next;

        my $lost_fee_line = $lost_fee_lines->next;

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        is( $lost_fee_line->amountoutstanding + 0,

        is( $lost_fee_line->amountoutstanding + 0,

            $replacement_amount, 'The right L amountountstanding is generated' );

            $replacement_amount, 'The right L amountountstanding is generated' );

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        is( $credit_return->accounttype, 'CR', 'An account line of type CR is added' );

        is( $credit_return->accounttype, 'CR', 'An account line of type CR is added' );

        plan tests => 15;

        plan tests => 15;

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

        my $patron = $builder->build_object( { class => 'Koha::Patrons' } );

                replacementprice => $replacement_amount,

                replacementprice => $replacement_amount,

                itype            => $item_type->itemtype

                itype            => $item_type->itemtype

        );

        );

        # Simulate item marked as lost

        # Simulate item marked as lost

        my $processing_fee_lines = Koha::Account::Lines->search(

        my $processing_fee_lines = Koha::Account::Lines->search(

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        is( $processing_fee_lines->count, 1, 'Only one processing fee produced' );

        my $processing_fee_line = $processing_fee_lines->next;

        my $processing_fee_line = $processing_fee_lines->next;

        is( $processing_fee_line->amount + 0,

        is( $processing_fee_line->amount + 0,

            $processfee_amount, 'The right PF amountoutstanding is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(

        my $lost_fee_lines = Koha::Account::Lines->search(

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );

        my $lost_fee_line = $lost_fee_lines->next;

        my $lost_fee_line = $lost_fee_lines->next;

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        $lost_fee_line->discard_changes;

        $lost_fee_line->discard_changes;

        my $outstanding = $lost_fee_line->amountoutstanding;

        my $outstanding = $lost_fee_line->amountoutstanding;

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        my $credit_return = Koha::Account::Lines->find($credit_return_id);

        is( $account->balance, $processfee_amount - $payment_amount, 'Balance is PF - payment (CR)' );

        is( $account->balance, $processfee_amount - $payment_amount, 'Balance is PF - payment (CR)' );

    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });

    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });

    my $branchcode  = $library2->{branchcode};

    my $branchcode  = $library2->{branchcode};

        {

        {

            replacementprice => 99.00,

            replacementprice => 99.00,

    );

    );

    my $patron = $builder->build( { source => 'Borrower' } );

    my $patron = $builder->build( { source => 'Borrower' } );

        {

        {

            borrowernumber => $patron->{borrowernumber},

            borrowernumber => $patron->{borrowernumber},

            accounttype    => 'FU',

            accounttype    => 'FU',

            amount => 99.00,

            amount => 99.00,

            amountoutstanding => 99.00,

            amountoutstanding => 99.00,

            lastincrement => 9.00,

            lastincrement => 9.00,

        }

        }

    )->store();

    )->store();

    $accountline->_result()->discard_changes();

    $accountline->_result()->discard_changes();

        }

        }

    )->store();

    )->store();

    $accountline->_result()->discard_changes();

    $accountline->_result()->discard_changes();

    my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Forgiven' })->next();

    my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Forgiven' })->next();

        }

        }

    )->store();

    )->store();

    $accountline->_result()->discard_changes();

    $accountline->_result()->discard_changes();

    $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Dropbox' })->next();

    $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Dropbox' })->next();

my $record = MARC::Record->new();

my $record = MARC::Record->new();

my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' );

my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' );

);

);

is(

is(

    'book_on_loan',

    'book_on_loan',

    'item that is on loan cannot be deleted',

    'item that is on loan cannot be deleted',

);

);

is(

is(

    1,

    1,

    'item that is not on loan can be deleted',

    'item that is not on loan can be deleted',

);

);

use Koha::Database;

use Koha::Database;

use C4::Biblio;

use C4::Biblio;

use Koha::Biblios;

use Koha::Biblios;

use Bytes::Random::Secure;

use Bytes::Random::Secure;

use Carp;

use Carp;

use Module::Load;

use Module::Load;

use String::Random;

use String::Random;

sub new {

sub new {

    my ($class) = @_;

    my ($class) = @_;

    my $self = {};

    my $self = {};

    return Koha::Biblios->find($biblio_id);

    return Koha::Biblios->find($biblio_id);

}

}

# ------------------------------------------------------------------------------

# ------------------------------------------------------------------------------

# Internal helper routines

# Internal helper routines