View | Details | Raw Unified | Return to bug 15184
Collapse All | Expand All

(-)a/Koha/Acquisition/Order.pm (-1 / +34 lines)
Lines 111-116 sub add_item { Link Here
111
    $rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber });
111
    $rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber });
112
}
112
}
113
113
114
=head3 add_user
115
116
  $order->add_user( $borrowernumber );
117
118
Link an user to this order.
119
120
=cut
121
114
sub add_user {
122
sub add_user {
115
    my ( $self, $borrowernumber )  = @_;
123
    my ( $self, $borrowernumber )  = @_;
116
124
Lines 177-182 sub subscription { Link Here
177
    return Koha::Subscription->_new_from_dbic( $subscription_rs );
185
    return Koha::Subscription->_new_from_dbic( $subscription_rs );
178
}
186
}
179
187
188
=head3 items
189
190
    my $items = $order->items
191
192
Returns the items associated to the order.
193
194
=cut
195
180
sub items {
196
sub items {
181
    my ( $self )  = @_;
197
    my ( $self )  = @_;
182
    # aqorders_items is not a join table
198
    # aqorders_items is not a join table
Lines 186-191 sub items { Link Here
186
    return Koha::Items->search({ itemnumber => \@itemnumbers });
202
    return Koha::Items->search({ itemnumber => \@itemnumbers });
187
}
203
}
188
204
205
=head3 users
206
207
    my $patrons = $order->users
208
209
Returns the users (Koha::Patrons) that are in the basket users list
210
211
=cut
212
189
sub users {
213
sub users {
190
    my ( $self )  = @_;
214
    my ( $self )  = @_;
191
    my $users_rs = $self->_result->aqorder_users;
215
    my $users_rs = $self->_result->aqorder_users;
Lines 193-198 sub users { Link Here
193
    return Koha::Patrons->search({ borrowernumber=> \@borrowernumbers });
217
    return Koha::Patrons->search({ borrowernumber=> \@borrowernumbers });
194
}
218
}
195
219
220
=head3 duplicate_to
221
222
    my $duplicated_order = $order->duplicate_to($basket, [$default_values]);
223
224
Duplicate an existing order and attach it to a basket. $default_values can be specified as a hashref
225
that contain default values for the different order's attributes.
226
Items will be duplicated as well but barcodes will be set to null.
227
228
=cut
229
196
sub duplicate_to {
230
sub duplicate_to {
197
    my ( $self, $basket, $default_values ) = @_;
231
    my ( $self, $basket, $default_values ) = @_;
198
    my $new_order;
232
    my $new_order;
199
- 

Return to bug 15184