From 65d0fbbacf714a02c6aa9db5fa4e2873dcfd8151 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 29 Aug 2018 15:06:42 -0300 Subject: [PATCH] Bug 15184: Add POD MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Séverine QUEUNE --- Koha/Acquisition/Order.pm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/Koha/Acquisition/Order.pm b/Koha/Acquisition/Order.pm index e0ad79ef6b..9c0077fd9b 100644 --- a/Koha/Acquisition/Order.pm +++ b/Koha/Acquisition/Order.pm @@ -111,6 +111,14 @@ sub add_item { $rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber }); } +=head3 add_user + + $order->add_user( $borrowernumber ); + +Link an user to this order. + +=cut + sub add_user { my ( $self, $borrowernumber ) = @_; @@ -177,6 +185,14 @@ sub subscription { return Koha::Subscription->_new_from_dbic( $subscription_rs ); } +=head3 items + + my $items = $order->items + +Returns the items associated to the order. + +=cut + sub items { my ( $self ) = @_; # aqorders_items is not a join table @@ -186,6 +202,14 @@ sub items { return Koha::Items->search({ itemnumber => \@itemnumbers }); } +=head3 users + + my $patrons = $order->users + +Returns the users (Koha::Patrons) that are in the basket users list + +=cut + sub users { my ( $self ) = @_; my $users_rs = $self->_result->aqorder_users; @@ -193,6 +217,16 @@ sub users { return Koha::Patrons->search({ borrowernumber=> \@borrowernumbers }); } +=head3 duplicate_to + + my $duplicated_order = $order->duplicate_to($basket, [$default_values]); + +Duplicate an existing order and attach it to a basket. $default_values can be specified as a hashref +that contain default values for the different order's attributes. +Items will be duplicated as well but barcodes will be set to null. + +=cut + sub duplicate_to { my ( $self, $basket, $default_values ) = @_; my $new_order; -- 2.11.0