Lines 39-46
use C4::Biblio qw(
Link Here
|
39 |
use Koha::Edifact::Order; |
39 |
use Koha::Edifact::Order; |
40 |
use Koha::Edifact; |
40 |
use Koha::Edifact; |
41 |
use C4::Log qw( logaction ); |
41 |
use C4::Log qw( logaction ); |
42 |
use Log::Log4perl; |
|
|
43 |
use Text::Unidecode qw( unidecode ); |
42 |
use Text::Unidecode qw( unidecode ); |
|
|
43 |
use Koha::Logger; |
44 |
use Koha::Plugins; # Adds plugin dirs to @INC |
44 |
use Koha::Plugins; # Adds plugin dirs to @INC |
45 |
use Koha::Plugins::Handler; |
45 |
use Koha::Plugins::Handler; |
46 |
use Koha::Acquisition::Baskets; |
46 |
use Koha::Acquisition::Baskets; |
Lines 173-179
sub process_ordrsp {
Link Here
|
173 |
$response_message->status('processing'); |
173 |
$response_message->status('processing'); |
174 |
$response_message->update; |
174 |
$response_message->update; |
175 |
my $schema = Koha::Database->new()->schema(); |
175 |
my $schema = Koha::Database->new()->schema(); |
176 |
my $logger = Log::Log4perl->get_logger(); |
176 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
177 |
my $vendor_acct; |
177 |
my $vendor_acct; |
178 |
my $edi = |
178 |
my $edi = |
179 |
Koha::Edifact->new( { transmission => $response_message->raw_msg, } ); |
179 |
Koha::Edifact->new( { transmission => $response_message->raw_msg, } ); |
Lines 227-233
sub process_invoice {
Link Here
|
227 |
$invoice_message->status('processing'); |
227 |
$invoice_message->status('processing'); |
228 |
$invoice_message->update; |
228 |
$invoice_message->update; |
229 |
my $schema = Koha::Database->new()->schema(); |
229 |
my $schema = Koha::Database->new()->schema(); |
230 |
my $logger = Log::Log4perl->get_logger(); |
230 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
231 |
my $vendor_acct; |
231 |
my $vendor_acct; |
232 |
|
232 |
|
233 |
my $plugin_class = $invoice_message->edi_acct()->plugin(); |
233 |
my $plugin_class = $invoice_message->edi_acct()->plugin(); |
Lines 442-448
sub _get_invoiced_price {
Link Here
|
442 |
|
442 |
|
443 |
sub receipt_items { |
443 |
sub receipt_items { |
444 |
my ( $schema, $inv_line, $ordernumber, $quantity ) = @_; |
444 |
my ( $schema, $inv_line, $ordernumber, $quantity ) = @_; |
445 |
my $logger = Log::Log4perl->get_logger(); |
445 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
446 |
|
446 |
|
447 |
# itemnumber is not a foreign key ??? makes this a bit cumbersome |
447 |
# itemnumber is not a foreign key ??? makes this a bit cumbersome |
448 |
my @item_links = $schema->resultset('AqordersItem')->search( |
448 |
my @item_links = $schema->resultset('AqordersItem')->search( |
Lines 542-548
sub transfer_items {
Link Here
|
542 |
} |
542 |
} |
543 |
++$gocc; |
543 |
++$gocc; |
544 |
} |
544 |
} |
545 |
my $logger = Log::Log4perl->get_logger(); |
545 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
546 |
my $o1 = $order_from->ordernumber; |
546 |
my $o1 = $order_from->ordernumber; |
547 |
my $o2 = $order_to->ordernumber; |
547 |
my $o2 = $order_to->ordernumber; |
548 |
$logger->warn("transferring $quantity copies from order $o1 to order $o2"); |
548 |
$logger->warn("transferring $quantity copies from order $o1 to order $o2"); |
Lines 586-592
sub process_quote {
Link Here
|
586 |
|
586 |
|
587 |
my $messages = $edi->message_array(); |
587 |
my $messages = $edi->message_array(); |
588 |
my $process_errors = 0; |
588 |
my $process_errors = 0; |
589 |
my $logger = Log::Log4perl->get_logger(); |
589 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
590 |
my $schema = Koha::Database->new()->schema(); |
590 |
my $schema = Koha::Database->new()->schema(); |
591 |
my $message_count = 0; |
591 |
my $message_count = 0; |
592 |
my @added_baskets; # if auto & multiple baskets need to order all |
592 |
my @added_baskets; # if auto & multiple baskets need to order all |
Lines 671-677
sub quote_item {
Link Here
|
671 |
my ( $item, $quote, $basketno ) = @_; |
671 |
my ( $item, $quote, $basketno ) = @_; |
672 |
|
672 |
|
673 |
my $schema = Koha::Database->new()->schema(); |
673 |
my $schema = Koha::Database->new()->schema(); |
674 |
my $logger = Log::Log4perl->get_logger(); |
674 |
my $logger = Koha::Logger->get({ interface => 'edi' }); |
675 |
|
675 |
|
676 |
# $basketno is the return from AddBasket in the calling routine |
676 |
# $basketno is the return from AddBasket in the calling routine |
677 |
# So this call should not fail unless that has |
677 |
# So this call should not fail unless that has |