@@ -, +, @@ $ kshell k$ prove t/db_dependent/Koha/Biblio.t --- Koha/Biblio.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -40,6 +40,7 @@ use Koha::IssuingRules; use Koha::Item::Transfer::Limits; use Koha::Items; use Koha::Libraries; +use Koha::Suggestions; use Koha::Subscriptions; =head1 NAME @@ -439,6 +440,21 @@ sub biblioitem { return $self->{_biblioitem}; } +=head3 suggestions + +my $suggestions = $self->suggestions + +Returns the related Koha::Suggestions object for this Biblio object + +=cut + +sub suggestions { + my ($self) = @_; + + my $suggestions_rs = $self->_result->suggestions; + return Koha::Suggestions->_new_from_dbic( $suggestions_rs ); +} + =head3 subscriptions my $subscriptions = $self->subscriptions --