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