Attachment #153176 for bug #28844

View | Details | Raw Unified | Return to bug 28844
Collapse All | Expand All




  DelSuggestion
  GetSuggestion
  GetSuggestionByStatus
  GetSuggestionFromBiblionumber
  GetSuggestionInfo
  ModStatus
  ModSuggestion

    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




use Modern::Perl;

use DateTime::Duration;
use Test::More tests => 76;
use Test::Warn;

use t::lib::Mocks;

use Koha::Suggestions;

BEGIN {
    use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan ));
}

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

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');
- 

Return to bug 28844

Lines 35-41 our @EXPORT = qw( Link Here

(-)a/C4/Suggestions.pm (-26 lines)
35	DelSuggestion	35	DelSuggestion
36	GetSuggestion	36	GetSuggestion
37	GetSuggestionByStatus	37	GetSuggestionByStatus
38	GetSuggestionFromBiblionumber
39	GetSuggestionInfo	38	GetSuggestionInfo
40	ModStatus	39	ModStatus
41	ModSuggestion	40	ModSuggestion
Lines 93-123 sub GetSuggestion { Link Here
93	return ( $sth->fetchrow_hashref );	92	return ( $sth->fetchrow_hashref );
94	}	93	}
95		94
96	=head2 GetSuggestionFromBiblionumber
97
98	$ordernumber = &GetSuggestionFromBiblionumber($biblionumber)
99
100	Get a suggestion from it's biblionumber.
101
102	return :
103	the id of the suggestion which is related to the biblionumber given on input args.
104
105	=cut
106
107	sub GetSuggestionFromBiblionumber {
108	my ($biblionumber) = @_;
109	my $query = q{
110	SELECT suggestionid
111	FROM suggestions
112	WHERE biblionumber=? LIMIT 1
113	};
114	my $dbh = C4::Context->dbh;
115	my $sth = $dbh->prepare($query);
116	$sth->execute($biblionumber);
117	my ($suggestionid) = $sth->fetchrow;
118	return $suggestionid;
119	}
120
121	=head2 GetSuggestionInfo	95	=head2 GetSuggestionInfo
122		96
123	Get a suggestion and borrower's informations from it's suggestionid	97	Get a suggestion and borrower's informations from it's suggestionid

Lines 18-24 Link Here

(-)a/t/db_dependent/Suggestions.t (-8 / +2 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use DateTime::Duration;	20	use DateTime::Duration;
21	use Test::More tests => 79;	21	use Test::More tests => 76;
22	use Test::Warn;	22	use Test::Warn;
23		23
24	use t::lib::Mocks;	24	use t::lib::Mocks;
Lines 34-40 use Koha::Patrons; Link Here
34	use Koha::Suggestions;	34	use Koha::Suggestions;
35		35
36	BEGIN {	36	BEGIN {
37	use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionFromBiblionumber GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan ));	37	use_ok('C4::Suggestions', qw( GetSuggestion ModSuggestion GetSuggestionInfo GetSuggestionByStatus ConnectSuggestionAndBiblio DelSuggestion MarcRecordFromNewSuggestion GetUnprocessedSuggestions DelSuggestionsOlderThan ));
38	}	38	}
39		39
40	my $schema = Koha::Database->new->schema;	40	my $schema = Koha::Database->new->schema;
Lines 287-297 is( $suggestion->{firstnamesuggestedby}, $member->{firstname}, 'GetSuggestionInf Link Here
287	is( $suggestion->{borrnumsuggestedby}, $my_suggestion->{suggestedby}, 'GetSuggestionInfo returns the borrower number correctly' );	287	is( $suggestion->{borrnumsuggestedby}, $my_suggestion->{suggestedby}, 'GetSuggestionInfo returns the borrower number correctly' );
288		288
289		289
290	is( GetSuggestionFromBiblionumber(), undef, 'GetSuggestionFromBiblionumber without the biblio number returns undef' );
291	is( GetSuggestionFromBiblionumber(2), undef, 'GetSuggestionFromBiblionumber with an invalid biblio number returns undef' );
292	is( GetSuggestionFromBiblionumber($biblio_1->biblionumber), $my_suggestionid, 'GetSuggestionFromBiblionumber functions correctly' );
293
294
295	my $suggestions = GetSuggestionByStatus();	290	my $suggestions = GetSuggestionByStatus();
296	is( @$suggestions, 0, 'GetSuggestionByStatus without the status returns an empty array' );	291	is( @$suggestions, 0, 'GetSuggestionByStatus without the status returns an empty array' );
297	$suggestions = GetSuggestionByStatus('CHECKED');	292	$suggestions = GetSuggestionByStatus('CHECKED');
298	-