|
Lines 36-41
use Koha::Edifact;
Link Here
|
| 36 |
use Log::Log4perl; |
36 |
use Log::Log4perl; |
| 37 |
use Text::Unidecode; |
37 |
use Text::Unidecode; |
| 38 |
use Koha::Plugins::Handler; |
38 |
use Koha::Plugins::Handler; |
|
|
39 |
use Koha::Acquisition::Baskets; |
| 39 |
use Koha::Acquisition::Booksellers; |
40 |
use Koha::Acquisition::Booksellers; |
| 40 |
|
41 |
|
| 41 |
our $VERSION = 1.1; |
42 |
our $VERSION = 1.1; |
|
Lines 545-555
sub quote_item {
Link Here
|
| 545 |
my ( $item, $quote, $basketno ) = @_; |
546 |
my ( $item, $quote, $basketno ) = @_; |
| 546 |
|
547 |
|
| 547 |
my $schema = Koha::Database->new()->schema(); |
548 |
my $schema = Koha::Database->new()->schema(); |
| 548 |
|
|
|
| 549 |
# create biblio record |
| 550 |
my $logger = Log::Log4perl->get_logger(); |
549 |
my $logger = Log::Log4perl->get_logger(); |
| 551 |
if ( !$basketno ) { |
550 |
|
| 552 |
$logger->error('Skipping order creation no basketno'); |
551 |
my $basket = Koha::Acquisition::Baskets->find( $basketno ); |
|
|
552 |
unless ( $basket ) { |
| 553 |
$logger->error('Skipping order creation no valid basketno'); |
| 553 |
return; |
554 |
return; |
| 554 |
} |
555 |
} |
| 555 |
$logger->trace( 'Checking db for matches with ', $item->item_number_id() ); |
556 |
$logger->trace( 'Checking db for matches with ', $item->item_number_id() ); |
|
Lines 797-804
sub quote_item {
Link Here
|
| 797 |
); |
798 |
); |
| 798 |
} |
799 |
} |
| 799 |
|
800 |
|
| 800 |
my $basket = Koha::Acquisition::Basket->find( $basketno ); |
|
|
| 801 |
|
| 802 |
if ( $basket->effective_create_item eq 'ordering' ) { |
801 |
if ( $basket->effective_create_item eq 'ordering' ) { |
| 803 |
my $new_item = { |
802 |
my $new_item = { |
| 804 |
notforloan => -1, |
803 |
notforloan => -1, |
| 805 |
- |
|
|