use Modern::Perl;
use CGI;
+
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
-use C4::Koha;
-use C4::Auth;
-use C4::Output;
+use Koha::EDI qw( process_invoice );
my $q = CGI->new;
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
template_name => 'acqui/edifactmsgs.tt',
query => $q,
type => 'intranet',
- authnotrequired => 0,
flagsrequired => { acquisition => 'edi_manage' },
- debug => 1,
}
);
$msg->update;
}
+if ( $cmd && $cmd eq 'import' ) {
+ my $id = $q->param('message_id');
+ my $invoice = $schema->resultset('EdifactMessage')->find($id);
+ process_invoice($invoice);
+}
+
my @msgs = $schema->resultset('EdifactMessage')->search(
{
deleted => 0,