From 7f40d40195112e4c8bee3fc3c33ff998eb95202f Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 10 May 2023 15:21:35 +0200 Subject: [PATCH] Bug 28844: Remove GetSuggestionFromBiblionumber --- C4/Suggestions.pm | 26 -------------------------- t/db_dependent/Suggestions.t | 9 ++------- 2 files changed, 2 insertions(+), 33 deletions(-) diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 29c092426cc..f76cca60b88 100644 --- a/C4/Suggestions.pm +++ b/C4/Suggestions.pm @@ -35,7 +35,6 @@ our @EXPORT = qw( DelSuggestion GetSuggestion GetSuggestionByStatus - GetSuggestionFromBiblionumber GetSuggestionInfo ModStatus ModSuggestion @@ -93,31 +92,6 @@ sub GetSuggestion { return ( $sth->fetchrow_hashref ); } -=head2 GetSuggestionFromBiblionumber - -$ordernumber = &GetSuggestionFromBiblionumber($biblionumber) - -Get a suggestion from it's biblionumber. - -return : -the id of the suggestion which is related to the biblionumber given on input args. - -=cut - -sub GetSuggestionFromBiblionumber { - my ($biblionumber) = @_; - my $query = q{ - SELECT suggestionid - FROM suggestions - WHERE biblionumber=? LIMIT 1 - }; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare($query); - $sth->execute($biblionumber); - my ($suggestionid) = $sth->fetchrow; - return $suggestionid; -} - =head2 GetSuggestionInfo Get a suggestion and borrower's informations from it's suggestionid diff --git a/t/db_dependent/Suggestions.t b/t/db_dependent/Suggestions.t index 65864756293..4bafd2d261c 100755 --- a/t/db_dependent/Suggestions.t +++ b/t/db_dependent/Suggestions.t @@ -18,7 +18,7 @@ use Modern::Perl; use DateTime::Duration; -use Test::More tests => 79; +use Test::More tests => 76; use Test::Warn; use t::lib::Mocks; @@ -34,7 +34,7 @@ use Koha::Patrons; use Koha::Suggestions; BEGIN { - use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionFromBiblionumber GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan )); + use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan )); } my $schema = Koha::Database->new->schema; @@ -287,11 +287,6 @@ is( $suggestion->{firstnamesuggestedby}, $member->{firstname}, 'GetSuggestionInf is( $suggestion->{borrnumsuggestedby}, $my_suggestion->{suggestedby}, 'GetSuggestionInfo returns the borrower number correctly' ); -is( GetSuggestionFromBiblionumber(), undef, 'GetSuggestionFromBiblionumber without the biblio number returns undef' ); -is( GetSuggestionFromBiblionumber(2), undef, 'GetSuggestionFromBiblionumber with an invalid biblio number returns undef' ); -is( GetSuggestionFromBiblionumber($biblio_1->biblionumber), $my_suggestionid, 'GetSuggestionFromBiblionumber functions correctly' ); - - my $suggestions = GetSuggestionByStatus(); is( @$suggestions, 0, 'GetSuggestionByStatus without the status returns an empty array' ); $suggestions = GetSuggestionByStatus('CHECKED'); -- 2.25.1