|
Lines 25-30
use Koha::Acquisition::Invoices;
Link Here
|
| 25 |
use Koha::Database; |
25 |
use Koha::Database; |
| 26 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
26 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 27 |
use Koha::Items; |
27 |
use Koha::Items; |
|
|
28 |
use Koha::Patrons; |
| 28 |
use Koha::Subscriptions; |
29 |
use Koha::Subscriptions; |
| 29 |
|
30 |
|
| 30 |
use base qw(Koha::Object); |
31 |
use base qw(Koha::Object); |
|
Lines 110-115
sub add_item {
Link Here
|
| 110 |
$rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber }); |
111 |
$rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber }); |
| 111 |
} |
112 |
} |
| 112 |
|
113 |
|
|
|
114 |
sub add_user { |
| 115 |
my ( $self, $borrowernumber ) = @_; |
| 116 |
|
| 117 |
my $schema = Koha::Database->new->schema; |
| 118 |
my $rs = $schema->resultset('AqorderUser'); |
| 119 |
$rs->create({ ordernumber => $self->ordernumber, borrowernumber => $borrowernumber }); |
| 120 |
} |
| 121 |
|
| 113 |
=head3 basket |
122 |
=head3 basket |
| 114 |
|
123 |
|
| 115 |
my $basket = Koha::Acquisition::Orders->find( $id )->basket; |
124 |
my $basket = Koha::Acquisition::Orders->find( $id )->basket; |
|
Lines 177-182
sub items {
Link Here
|
| 177 |
return Koha::Items->search({ itemnumber => \@itemnumbers }); |
186 |
return Koha::Items->search({ itemnumber => \@itemnumbers }); |
| 178 |
} |
187 |
} |
| 179 |
|
188 |
|
|
|
189 |
sub users { |
| 190 |
my ( $self ) = @_; |
| 191 |
my $users_rs = $self->_result->aqorder_users; |
| 192 |
my @borrowernumbers = $users_rs->get_column( 'borrowernumber' )->all; |
| 193 |
return Koha::Patrons->search({ borrowernumber=> \@borrowernumbers }); |
| 194 |
} |
| 195 |
|
| 180 |
sub duplicate_to { |
196 |
sub duplicate_to { |
| 181 |
my ( $self, $basket, $default_values ) = @_; |
197 |
my ( $self, $basket, $default_values ) = @_; |
| 182 |
my $new_order; |
198 |
my $new_order; |
|
Lines 221-226
sub duplicate_to {
Link Here
|
| 221 |
my $new_item = Koha::Item->new($item_info)->store; |
237 |
my $new_item = Koha::Item->new($item_info)->store; |
| 222 |
$new_order->add_item( $new_item->itemnumber ); |
238 |
$new_order->add_item( $new_item->itemnumber ); |
| 223 |
} |
239 |
} |
|
|
240 |
my $users = $self->users; # Do we want ça? |
| 241 |
while ( my ($user) = $users->next ) { |
| 242 |
$new_order->add_user( $user->borrowernumber ); |
| 243 |
} |
| 224 |
} |
244 |
} |
| 225 |
); |
245 |
); |
| 226 |
return $new_order; |
246 |
return $new_order; |
| 227 |
- |
|
|