Bug 29234: Further clean Z3950 Tests

[srvgit] / admin / edi_accounts.pl

diff --git a/admin/edi_accounts.pl b/admin/edi_accounts.pl
index 288fec5..9f1be0b 100755 (executable)
--- a/admin/edi_accounts.pl
+++ b/admin/edi_accounts.pl
@@ -19,8 +19,8 @@
 
 use Modern::Perl;
 use CGI;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 use Koha::Database;
 use Koha::Plugins;
 
@@ -76,6 +76,7 @@ else {
             upload_directory   => scalar $input->param('upload_directory'),
             download_directory => scalar $input->param('download_directory'),
             san                => scalar $input->param('san'),
+            standard           => scalar $input->param('standard'),
             transport          => scalar $input->param('transport'),
             quotes_enabled     => $input->param('quotes_enabled') ? 1 : 0,
             invoices_enabled   => $input->param('invoices_enabled') ? 1 : 0,
@@ -133,7 +134,8 @@ $template->param(
             code        => '92',
             description => 'Assigned by buyer',
         },
-    ]
+    ],
+    standards => [ 'BIC', 'EUR' ]
 );
 
 output_html_with_http_headers( $input, $cookie, $template->output );