|
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 |
- |
|
|