Bug 32830: Fix cataloguing/value_builder/unimarc_field_116.pl

[srvgit] / cataloguing / value_builder / unimarc_field_100_authorities.pl

diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl
old mode 100644 (file)
new mode 100755 (executable)
index ac5d506..a1a6b87
--- a/cataloguing/value_builder/unimarc_field_100_authorities.pl
+++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl
@@ -20,17 +20,19 @@
 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::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'>
-            function Clic$field_number(i) {
+        <script>
+            function Clic$field_number(event) {
+                event.preventDefault();
+                const i = event.data.id;
                 var defaultvalue;
                 try {
                     defaultvalue = document.getElementById(i).value;
@@ -62,9 +64,7 @@ sub plugin {
             template_name => "cataloguing/value_builder/unimarc_field_100_authorities.tt",
             query         => $input,
             type          => "intranet",
-            authnotrequired => 0,
             flagsrequired   => { editcatalogue => '*' },
-            debug           => 1,
         }
     );
     $result = "        a".$defaultlanguage."y50      ba0" unless $result;