From 1947b771286bf9e0c2653f5c189f9d169de6295e Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Thu, 29 Dec 2016 18:15:40 +0000 Subject: [PATCH] Bug 17196 - (QA Followup) Add items() to Koha::Biblioitems Signed-off-by: Nick Clemens --- Koha/Biblioitem.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/Koha/Biblioitem.pm b/Koha/Biblioitem.pm index 8d353c8..e6c96d3 100644 --- a/Koha/Biblioitem.pm +++ b/Koha/Biblioitem.pm @@ -33,6 +33,24 @@ Koha::Biblioitem - Koha Biblioitem Object class =cut +=head3 items + +my @items = $biblioitem->items(); +my $items = $biblioitem->items(); + +Returns the related Koha::Items object for this biblio in scalar context, +or list of Koha::Item objects in list context. + +=cut + +sub items { + my ($self) = @_; + + $self->{_items} ||= Koha::Items->search( { biblionumber => $self->biblionumber() } ); + + return wantarray ? $self->{_items}->as_list : $self->{_items}; +} + =head3 type =cut -- 2.1.4