Lines 60-65
use Koha::Import::Records;
Link Here
|
60 |
use Koha::Acquisition::Currencies; |
60 |
use Koha::Acquisition::Currencies; |
61 |
use Koha::Acquisition::Booksellers; |
61 |
use Koha::Acquisition::Booksellers; |
62 |
use Koha::Acquisition::Baskets; |
62 |
use Koha::Acquisition::Baskets; |
|
|
63 |
use Koha::Plugins; |
63 |
|
64 |
|
64 |
=head1 NAME |
65 |
=head1 NAME |
65 |
|
66 |
|
Lines 1105-1110
sub create_items_and_generate_order_hash {
Link Here
|
1105 |
|
1106 |
|
1106 |
# Remove uncertainprice flag if we have found a price in the MARC record |
1107 |
# Remove uncertainprice flag if we have found a price in the MARC record |
1107 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
1108 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
|
|
1109 |
Koha::Plugins->call( |
1110 |
'before_orderline_create', |
1111 |
{ |
1112 |
marcrecord => $fields->{marcrecord}, |
1113 |
orderline => \%orderinfo, |
1114 |
marcfields => $fields |
1115 |
} |
1116 |
); |
1108 |
|
1117 |
|
1109 |
my $order = Koha::Acquisition::Order->new( \%orderinfo ); |
1118 |
my $order = Koha::Acquisition::Order->new( \%orderinfo ); |
1110 |
$order->populate_with_prices_for_ordering(); |
1119 |
$order->populate_with_prices_for_ordering(); |
Lines 1152-1157
sub create_items_and_generate_order_hash {
Link Here
|
1152 |
|
1161 |
|
1153 |
# Remove uncertainprice flag if we have found a price in the MARC record |
1162 |
# Remove uncertainprice flag if we have found a price in the MARC record |
1154 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
1163 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
|
|
1164 |
Koha::Plugins->call( |
1165 |
'before_orderline_create', |
1166 |
{ |
1167 |
marcrecord => $fields->{marcrecord}, |
1168 |
orderline => \%orderinfo, |
1169 |
marcfields => $fields |
1170 |
} |
1171 |
); |
1155 |
|
1172 |
|
1156 |
my $order = Koha::Acquisition::Order->new( \%orderinfo ); |
1173 |
my $order = Koha::Acquisition::Order->new( \%orderinfo ); |
1157 |
$order->populate_with_prices_for_ordering(); |
1174 |
$order->populate_with_prices_for_ordering(); |
1158 |
- |
|
|