Bug 32898: ERM - Improve fetch

[koha-ffzg.git] / cataloguing / value_builder / unimarc_field_115a.pl

diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl
index 46b0fd5..fc0223a 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_115a.pl
+++ b/cataloguing/value_builder/unimarc_field_115a.pl
@@ -21,17 +21,17 @@
 use Modern::Perl;
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use CGI qw ( -utf8 );
 use C4::Context;
 
 use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
 
 sub plugin_javascript {
-    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+    my ( $dbh, $record, $tagslib, $field_number ) = @_;
     my $res = "
-    <script type=\"text/javascript\">
+    <script>
     function Clic$field_number(i) {
         var defaultvalue;
         try {
@@ -62,9 +62,7 @@ sub plugin {
               "cataloguing/value_builder/unimarc_field_115a.tt",
             query           => $input,
             type            => "intranet",
-            authnotrequired => 0,
             flagsrequired   => { editcatalogue => '*' },
-            debug           => 1,
         }
     );
     my $f1  = substr( $result, 0,  1 ); $f1  = wrapper( $f1 ) if $f1;