|
Lines 41-46
use Koha::Edifact;
Link Here
|
| 41 |
use C4::Log qw( logaction ); |
41 |
use C4::Log qw( logaction ); |
| 42 |
use Log::Log4perl; |
42 |
use Log::Log4perl; |
| 43 |
use Text::Unidecode qw( unidecode ); |
43 |
use Text::Unidecode qw( unidecode ); |
|
|
44 |
use Koha::Plugins; # Adds plugin dirs to @INC |
| 44 |
use Koha::Plugins::Handler; |
45 |
use Koha::Plugins::Handler; |
| 45 |
use Koha::Acquisition::Baskets; |
46 |
use Koha::Acquisition::Baskets; |
| 46 |
use Koha::Acquisition::Booksellers; |
47 |
use Koha::Acquisition::Booksellers; |
|
Lines 232-237
sub process_invoice {
Link Here
|
| 232 |
|
233 |
|
| 233 |
# Plugin has its own invoice processor, only run it and not the standard invoice processor below |
234 |
# Plugin has its own invoice processor, only run it and not the standard invoice processor below |
| 234 |
if ( $plugin_class ) { |
235 |
if ( $plugin_class ) { |
|
|
236 |
eval "require $plugin_class"; # Import the class, eval is needed because requiring a string doesn't work like requiring a bareword |
| 235 |
my $plugin = $plugin_class->new(); |
237 |
my $plugin = $plugin_class->new(); |
| 236 |
if ( $plugin->can('edifact_process_invoice') ) { |
238 |
if ( $plugin->can('edifact_process_invoice') ) { |
| 237 |
Koha::Plugins::Handler->run( |
239 |
Koha::Plugins::Handler->run( |
| 238 |
- |
|
|