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

(-)a/Koha/MarcOrder.pm (-1 / +17 lines)
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
- 

Return to bug 34355