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