@@ -, +, @@ --- Koha/Acquisition/Order.pm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) --- a/Koha/Acquisition/Order.pm +++ a/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; --