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

(-)a/Koha/EDI.pm (-1 / +3 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::Booksellers;
39
40
40
our $VERSION = 1.1;
41
our $VERSION = 1.1;
41
our @EXPORT_OK =
42
our @EXPORT_OK =
Lines 577-582 sub quote_item { Link Here
577
        }
578
        }
578
        $order_quantity = 1;    # attempts to create an orderline for each gir
579
        $order_quantity = 1;    # attempts to create an orderline for each gir
579
    }
580
    }
581
    my $vendor = Koha::Acquisition::Booksellers->find( $quote->vendor_id );
580
582
581
    # database definitions should set some of these defaults but dont
583
    # database definitions should set some of these defaults but dont
582
    my $order_hash = {
584
    my $order_hash = {
Lines 593-598 sub quote_item { Link Here
593
        uncertainprice => 0,
595
        uncertainprice => 0,
594
        sort1          => q{},
596
        sort1          => q{},
595
        sort2          => q{},
597
        sort2          => q{},
598
        currency       => $vendor->listprice(),
596
    };
599
    };
597
600
598
    # suppliers references
601
    # suppliers references
599
- 

Return to bug 17605