X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=cataloguing%2Fvalue_builder%2Funimarc_field_225a.pl;h=31556ae506757b6840ba290ba77e7548eda78929;hb=ad7d3e5099bf97ede706d496e33d817a618d74e3;hp=b494f30e88455f6b51f4e8a3e0ca2b674dcfd00b;hpb=638786e719fb297ae976061b09a71f3d788416f4;p=koha-ffzg.git diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index b494f30e88..31556ae506 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -41,12 +41,13 @@ It need : use strict; #use warnings; FIXME - Bug 2505 -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::AuthoritiesMarc; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::AuthoritiesMarc qw( SearchAuthorities GetAuthority ); =head1 DESCRIPTION @@ -55,14 +56,14 @@ plugin_parameters : other parameters added when the plugin is called by the dopo =cut sub plugin_javascript { - my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my ( $dbh, $record, $tagslib, $field_number ) = @_; my $function_name = $field_number; my $res = " -