@@ -, +, @@ --- Koha/Biblioitem.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) --- a/Koha/Biblioitem.pm +++ a/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 --