Lines 55-63
use Koha::Account::Offsets;
Link Here
|
55 |
use Koha::ActionLogs; |
55 |
use Koha::ActionLogs; |
56 |
use Koha::Notice::Messages; |
56 |
use Koha::Notice::Messages; |
57 |
|
57 |
|
|
|
58 |
my $builder = t::lib::TestBuilder->new; |
58 |
sub set_userenv { |
59 |
sub set_userenv { |
59 |
my ( $library ) = @_; |
60 |
my ( $library ) = @_; |
60 |
t::lib::Mocks::mock_userenv({ branchcode => $library->{branchcode} }); |
61 |
my $staff = $builder->build_object({ class => "Koha::Patrons" }); |
|
|
62 |
t::lib::Mocks::mock_userenv({ patron => $staff, branchcode => $library->{branchcode} }); |
61 |
} |
63 |
} |
62 |
|
64 |
|
63 |
sub str { |
65 |
sub str { |
Lines 104-110
sub test_debarment_on_checkout {
Link Here
|
104 |
|
106 |
|
105 |
my $schema = Koha::Database->schema; |
107 |
my $schema = Koha::Database->schema; |
106 |
$schema->storage->txn_begin; |
108 |
$schema->storage->txn_begin; |
107 |
my $builder = t::lib::TestBuilder->new; |
|
|
108 |
my $dbh = C4::Context->dbh; |
109 |
my $dbh = C4::Context->dbh; |
109 |
|
110 |
|
110 |
# Prevent random failures by mocking ->now |
111 |
# Prevent random failures by mocking ->now |
Lines 711-716
subtest "CanBookBeRenewed tests" => sub {
Link Here
|
711 |
# Make sure fine calculation isn't skipped when adding renewal |
712 |
# Make sure fine calculation isn't skipped when adding renewal |
712 |
t::lib::Mocks::mock_preference('CalculateFinesOnReturn', 1); |
713 |
t::lib::Mocks::mock_preference('CalculateFinesOnReturn', 1); |
713 |
|
714 |
|
|
|
715 |
my $staff = $builder->build_object({ class => "Koha::Patrons" }); |
716 |
t::lib::Mocks::mock_userenv({ patron => $staff }); |
717 |
|
714 |
t::lib::Mocks::mock_preference('RenewalLog', 0); |
718 |
t::lib::Mocks::mock_preference('RenewalLog', 0); |
715 |
my $date = output_pref( { dt => dt_from_string(), dateonly => 1, dateformat => 'iso' } ); |
719 |
my $date = output_pref( { dt => dt_from_string(), dateonly => 1, dateformat => 'iso' } ); |
716 |
my %params_renewal = ( |
720 |
my %params_renewal = ( |
Lines 3891-3916
subtest 'ItemsDeniedRenewal preference' => sub {
Link Here
|
3891 |
} |
3895 |
} |
3892 |
}); |
3896 |
}); |
3893 |
my $future = dt_from_string->add( days => 1 ); |
3897 |
my $future = dt_from_string->add( days => 1 ); |
3894 |
my $deny_issue = $builder->build_object({ class => 'Koha::Checkouts', value => { |
3898 |
my $deny_issue = $builder->build_object( |
3895 |
returndate => undef, |
3899 |
{ |
3896 |
renewals => 0, |
3900 |
class => 'Koha::Checkouts', |
3897 |
auto_renew => 0, |
3901 |
value => { |
3898 |
borrowernumber => $idr_borrower->borrowernumber, |
3902 |
returndate => undef, |
3899 |
itemnumber => $deny_book->itemnumber, |
3903 |
renewals_count => 0, |
3900 |
onsite_checkout => 0, |
3904 |
auto_renew => 0, |
3901 |
date_due => $future, |
3905 |
borrowernumber => $idr_borrower->borrowernumber, |
|
|
3906 |
itemnumber => $deny_book->itemnumber, |
3907 |
onsite_checkout => 0, |
3908 |
date_due => $future, |
3909 |
} |
3902 |
} |
3910 |
} |
3903 |
}); |
3911 |
); |
3904 |
my $allow_issue = $builder->build_object({ class => 'Koha::Checkouts', value => { |
3912 |
my $allow_issue = $builder->build_object( |
3905 |
returndate => undef, |
3913 |
{ |
3906 |
renewals => 0, |
3914 |
class => 'Koha::Checkouts', |
3907 |
auto_renew => 0, |
3915 |
value => { |
3908 |
borrowernumber => $idr_borrower->borrowernumber, |
3916 |
returndate => undef, |
3909 |
itemnumber => $allow_book->itemnumber, |
3917 |
renewals_count => 0, |
3910 |
onsite_checkout => 0, |
3918 |
auto_renew => 0, |
3911 |
date_due => $future, |
3919 |
borrowernumber => $idr_borrower->borrowernumber, |
|
|
3920 |
itemnumber => $allow_book->itemnumber, |
3921 |
onsite_checkout => 0, |
3922 |
date_due => $future, |
3923 |
} |
3912 |
} |
3924 |
} |
3913 |
}); |
3925 |
); |
3914 |
|
3926 |
|
3915 |
my $idr_rules; |
3927 |
my $idr_rules; |
3916 |
|
3928 |
|