Bug 17600: Standardize our EXPORT_OK

[srvgit] / cataloguing / value_builder / unimarc_field_225a_bis.pl

diff --git a/cataloguing/value_builder/unimarc_field_225a_bis.pl b/cataloguing/value_builder/unimarc_field_225a_bis.pl
index b2a33bd..5bfedad 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_225a_bis.pl
+++ b/cataloguing/value_builder/unimarc_field_225a_bis.pl
@@ -24,17 +24,17 @@ biblioitems.collectiontitle
 
 use Modern::Perl;
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use CGI qw( -utf8 );
 use C4::Context;
 
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
 
 sub plugin_javascript {
     my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
     my $function_name = $field_number;
     my $res           = "
-    <script type=\"text/javascript\">
+    <script>
         function Clic$function_name(index) {
             window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_225a_bis.pl&index=\"+index,\"unimarc225a\",'width=500,height=400,toolbar=false,scrollbars=no');
         }
@@ -53,7 +53,6 @@ sub plugin {
         query           => $input,
         type            => "intranet",
         flagsrequired   => { editcatalogue => '*' },
-        debug           => 1,
     });
 
     $template->param(index => $index);