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

(-)a/Koha/EDI.pm (-7 / +5 lines)
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
- 

Return to bug 20446