|
Lines 558-563
sub quote_item {
Link Here
|
| 558 |
my $schema = Koha::Database->new()->schema(); |
558 |
my $schema = Koha::Database->new()->schema(); |
| 559 |
my $logger = Log::Log4perl->get_logger(); |
559 |
my $logger = Log::Log4perl->get_logger(); |
| 560 |
|
560 |
|
|
|
561 |
# $basketno is the return from AddBasket in the calling routine |
| 562 |
# So this call should not fail unless that has |
| 561 |
my $basket = Koha::Acquisition::Baskets->find( $basketno ); |
563 |
my $basket = Koha::Acquisition::Baskets->find( $basketno ); |
| 562 |
unless ( $basket ) { |
564 |
unless ( $basket ) { |
| 563 |
$logger->error('Skipping order creation no valid basketno'); |
565 |
$logger->error('Skipping order creation no valid basketno'); |
|
Lines 810-816
sub quote_item {
Link Here
|
| 810 |
); |
812 |
); |
| 811 |
} |
813 |
} |
| 812 |
|
814 |
|
| 813 |
if ( $basket->effective_create_item eq 'ordering' ) { |
815 |
# Do not use the basket level value as it is always NULL |
|
|
816 |
# See calling subs call to AddBasket |
| 817 |
if ( C4::Context->preference('AcqCreateItem') eq 'ordering' ) { |
| 814 |
my $new_item = { |
818 |
my $new_item = { |
| 815 |
notforloan => -1, |
819 |
notforloan => -1, |
| 816 |
cn_sort => q{}, |
820 |
cn_sort => q{}, |
| 817 |
- |
|
|