From 54fa48b139a2903c8779262c24a2b7de0ecd0223 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 3 Nov 2021 09:55:54 +0100 Subject: [PATCH] Bug 29395: use EXPORT_OK from Koha::Patron::Debarments Missed from bug 17600. Signed-off-by: Jonathan Druart --- C4/Circulation.pm | 2 +- Koha/Patron/Debarments.pm | 22 +++++---- Koha/Patron/Discharge.pm | 2 +- misc/cronjobs/cleanup_database.pl | 1 + t/db_dependent/Circulation.t | 1 + .../Circulation/MarkIssueReturned.t | 2 +- t/db_dependent/Patron/Borrower_Debarments.t | 48 +++++++++---------- t/db_dependent/api/v1/patrons.t | 2 +- 8 files changed, 43 insertions(+), 37 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index d8a1cf1a65..c2edf81f94 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -48,7 +48,7 @@ use Koha::Checkouts; use Koha::Illrequests; use Koha::Items; use Koha::Patrons; -use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments ); +use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments AddUniqueDebarment ); use Koha::Database; use Koha::Libraries; use Koha::Account::Lines; diff --git a/Koha/Patron/Debarments.pm b/Koha/Patron/Debarments.pm index 856c93d740..52e1036850 100644 --- a/Koha/Patron/Debarments.pm +++ b/Koha/Patron/Debarments.pm @@ -21,19 +21,23 @@ use Modern::Perl; use C4::Context; -use parent qw( Exporter ); +our ( @ISA, @EXPORT_OK ); -our @EXPORT = qw( - GetDebarments +BEGIN { + require Exporter; + @ISA = qw(Exporter); + @EXPORT_OK = qw( + GetDebarments - AddDebarment - DelDebarment - ModDebarment + AddDebarment + DelDebarment + ModDebarment - AddUniqueDebarment - DelUniqueDebarment + AddUniqueDebarment + DelUniqueDebarment -); + ); +} =head1 Koha::Patron::Debarments diff --git a/Koha/Patron/Discharge.pm b/Koha/Patron/Discharge.pm index 8ad1696bc5..76e04e8533 100644 --- a/Koha/Patron/Discharge.pm +++ b/Koha/Patron/Discharge.pm @@ -11,7 +11,7 @@ use C4::Letters qw( GetPreparedLetter ); use Koha::Database; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Patrons; -use Koha::Patron::Debarments; +use Koha::Patron::Debarments qw( AddDebarment ); sub count { my ($params) = @_; diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl index 9b4f299b91..abc7d180da 100755 --- a/misc/cronjobs/cleanup_database.pl +++ b/misc/cronjobs/cleanup_database.pl @@ -52,6 +52,7 @@ use Koha::Old::Patrons; use Koha::Item::Transfers; use Koha::PseudonymizedTransactions; use Koha::Patron::Messages; +use Koha::Patron::Debarments qw( DelDebarment ); sub usage { print STDERR <schema; my $builder = t::lib::TestBuilder->new; diff --git a/t/db_dependent/Patron/Borrower_Debarments.t b/t/db_dependent/Patron/Borrower_Debarments.t index c07b80935b..21a54eff23 100755 --- a/t/db_dependent/Patron/Borrower_Debarments.t +++ b/t/db_dependent/Patron/Borrower_Debarments.t @@ -29,7 +29,7 @@ my $borrowernumber = Koha::Patron->new({ branchcode => $library->{branchcode}, })->store->borrowernumber; -my $success = AddDebarment({ +my $success = Koha::Patron::Debarments::AddDebarment({ borrowernumber => $borrowernumber, expiration => '9999-06-10', type => 'MANUAL', @@ -38,31 +38,31 @@ my $success = AddDebarment({ is( $success, 1, "AddDebarment returned true" ); -my $debarments = GetDebarments({ borrowernumber => $borrowernumber }); +my $debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber }); is( @$debarments, 1, "GetDebarments returns 1 debarment" ); is( $debarments->[0]->{'type'}, 'MANUAL', "Correctly stored 'type'" ); is( $debarments->[0]->{'expiration'}, '9999-06-10', "Correctly stored 'expiration'" ); is( $debarments->[0]->{'comment'}, 'Test 1', "Correctly stored 'comment'" ); -$success = AddDebarment({ +$success = Koha::Patron::Debarments::AddDebarment({ borrowernumber => $borrowernumber, comment => 'Test 2', }); -$debarments = GetDebarments({ borrowernumber => $borrowernumber }); +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber }); is( @$debarments, 2, "GetDebarments returns 2 debarments" ); is( $debarments->[1]->{'type'}, 'MANUAL', "Correctly stored 'type'" ); is( $debarments->[1]->{'expiration'}, undef, "Correctly stored debarrment with no expiration" ); is( $debarments->[1]->{'comment'}, 'Test 2', "Correctly stored 'comment'" ); -ModDebarment({ +Koha::Patron::Debarments::ModDebarment({ borrower_debarment_id => $debarments->[1]->{'borrower_debarment_id'}, comment => 'Test 3', expiration => '9998-06-10', }); -$debarments = GetDebarments({ borrowernumber => $borrowernumber }); +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber }); is( $debarments->[1]->{'comment'}, 'Test 3', "ModDebarment functions correctly" ); my $patron = Koha::Patrons->find( $borrowernumber )->unblessed; @@ -70,23 +70,23 @@ is( $patron->{'debarred'}, '9999-06-10', "Field borrowers.debarred set correctly is( $patron->{'debarredcomment'}, "Test 1\nTest 3", "Field borrowers.debarredcomment set correctly" ); -AddUniqueDebarment({ +Koha::Patron::Debarments::AddUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 1, "GetDebarments returns 1 OVERDUES debarment" ); is( $debarments->[0]->{'type'}, 'OVERDUES', "AddOverduesDebarment created new debarment correctly" ); -AddUniqueDebarment({ +Koha::Patron::Debarments::AddUniqueDebarment({ borrowernumber => $borrowernumber, expiration => '9999-11-09', type => 'OVERDUES' }); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); @@ -94,63 +94,63 @@ is( @$debarments, 1, "GetDebarments returns 1 OVERDUES debarment after running A is( $debarments->[0]->{'expiration'}, '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" ); -my $delUniqueDebarment = DelUniqueDebarment({ +my $delUniqueDebarment = Koha::Patron::Debarments::DelUniqueDebarment({ }); is( $delUniqueDebarment, undef, "DelUniqueDebarment without the arguments 'borrowernumber' and 'type' returns undef" ); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 1, "DelUniqueDebarment without the arguments 'borrowernumber' and 'type' does not delete the debarment" ); -$delUniqueDebarment = DelUniqueDebarment({ +$delUniqueDebarment = Koha::Patron::Debarments::DelUniqueDebarment({ borrowernumber => $borrowernumber, }); is( $delUniqueDebarment, undef, "DelUniqueDebarment without the argument 'type' returns undef" ); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 1, "DelUniqueDebarment without the argument 'type' does not delete the debarment" ); -$delUniqueDebarment = DelUniqueDebarment({ +$delUniqueDebarment = Koha::Patron::Debarments::DelUniqueDebarment({ type => 'OVERDUES' }); is( $delUniqueDebarment, undef, "DelUniqueDebarment without the argument 'borrowernumber' returns undef" ); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 1, "DelUniqueDebarment without the argument 'borrowerumber' does not delete the debarment" ); -$delUniqueDebarment = DelUniqueDebarment({ +$delUniqueDebarment = Koha::Patron::Debarments::DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'SUSPENSION', }); is( $delUniqueDebarment, undef, "DelUniqueDebarment with wrong arguments returns undef" ); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 1, "DelUniqueDebarment with wrong arguments does not delete the debarment" ); -$delUniqueDebarment = DelUniqueDebarment({ +$delUniqueDebarment = Koha::Patron::Debarments::DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( $delUniqueDebarment, 1, "DelUniqueDebarment returns 1" ); -$debarments = GetDebarments({ +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber, type => 'OVERDUES', }); is( @$debarments, 0, "DelUniqueDebarment functions correctly" ); -$debarments = GetDebarments({ borrowernumber => $borrowernumber }); +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber }); foreach my $d ( @$debarments ) { - DelDebarment( $d->{'borrower_debarment_id'} ); + Koha::Patron::Debarments::DelDebarment( $d->{'borrower_debarment_id'} ); } -$debarments = GetDebarments({ borrowernumber => $borrowernumber }); +$debarments = Koha::Patron::Debarments::GetDebarments({ borrowernumber => $borrowernumber }); is( @$debarments, 0, "DelDebarment functions correctly" ); $dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|); @@ -173,7 +173,7 @@ my $borrowernumber2 = Koha::Patron->new( )->store->borrowernumber; my $debarreddate2 = '9999-06-10'; # Be sure to be in the future my $debarredcomment2 = 'Test merge'; -AddDebarment( +Koha::Patron::Debarments::AddDebarment( { borrowernumber => $borrowernumber2, expiration => $debarreddate2, diff --git a/t/db_dependent/api/v1/patrons.t b/t/db_dependent/api/v1/patrons.t index ed8e7bec13..c3726f54bb 100755 --- a/t/db_dependent/api/v1/patrons.t +++ b/t/db_dependent/api/v1/patrons.t @@ -32,7 +32,7 @@ use Koha::DateUtils qw(dt_from_string output_pref); use Koha::Exceptions::Patron; use Koha::Exceptions::Patron::Attribute; use Koha::Patron::Attributes; -use Koha::Patron::Debarments qw/AddDebarment/; +use Koha::Patron::Debarments qw( AddDebarment ); use JSON qw(encode_json); -- 2.39.5