From f27ac0ff3bf7be249a575c29f302769b84a2da54 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 5 Oct 2017 11:38:52 -0300 Subject: [PATCH] Bug 15685: POD Signed-off-by: Tomas Cohen Arazi Signed-off-by: Nick Clemens --- Koha/Acquisition/Basket.pm | 4 +++- Koha/Acquisition/Baskets.pm | 6 ++---- Koha/Acquisition/Order.pm | 10 +++++++++- 3 files changed, 14 insertions(+), 6 deletions(-) diff --git a/Koha/Acquisition/Basket.pm b/Koha/Acquisition/Basket.pm index 9179c43a24..98e4bd45b5 100644 --- a/Koha/Acquisition/Basket.pm +++ b/Koha/Acquisition/Basket.pm @@ -58,7 +58,9 @@ sub effective_create_items { return $self->create_items || C4::Context->preference('AcqCreateItem'); } -=head3 type +=head2 Internal methods + +=head3 _type =cut diff --git a/Koha/Acquisition/Baskets.pm b/Koha/Acquisition/Baskets.pm index 1e4def1211..2de46835a7 100644 --- a/Koha/Acquisition/Baskets.pm +++ b/Koha/Acquisition/Baskets.pm @@ -30,11 +30,9 @@ Koha::Acquisition::Baskets - Koha Baskets object set class =head1 API -=head2 Class Methods +=head2 Internal methods -=cut - -=head3 type +=head3 _type =cut diff --git a/Koha/Acquisition/Order.pm b/Koha/Acquisition/Order.pm index c13f445bd8..5f7b7d940d 100644 --- a/Koha/Acquisition/Order.pm +++ b/Koha/Acquisition/Order.pm @@ -31,7 +31,7 @@ Koha::Acquisition::Order Object class =head1 API -=head2 Class Methods +=head2 Class methods =head3 new @@ -99,6 +99,14 @@ sub add_item { $rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber }); } +=head3 basket + + my $basket = Koha::Acquisition::Orders->find( $id )->basket; + +Returns the basket associated to the order. + +=cut + sub basket { my ( $self ) = @_; return Koha::Acquisition::Baskets->find( $self->{basketno} ); -- 2.11.0