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=d42aa63c43987c7c828ac7e7a652e2ef9962e11f;hpb=45761d67cb8ce119aae1a48bee209af287a3f051;p=koha-ffzg.git diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index d42aa63c43..31556ae506 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -5,18 +5,18 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . =head1 SYNOPSIS @@ -37,50 +37,42 @@ It need : if the biblio has no isbn, then the search if done on editor only If the biblio ha an isbn, the search is done on isbn and editor. It's faster. -=over 2 - =cut use strict; -use C4::Auth; -use CGI; +#use warnings; FIXME - Bug 2505 +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 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function =cut -sub plugin_parameters { - my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_; - return ""; -} - sub plugin_javascript { - my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; + my ( $dbh, $record, $tagslib, $field_number ) = @_; my $function_name = $field_number; my $res = " - @@ -104,17 +96,15 @@ sub plugin { my $index = $input->param('index'); my $result = $input->param('result'); my $editor_found = $input->param('editor_found'); - my $authoritysep = C4::Context->preference("authoritysep"); + my $AuthoritySeparator = C4::Context->preference("AuthoritySeparator"); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => - "cataloguing/value_builder/unimarc_field_225a.tmpl", + "cataloguing/value_builder/unimarc_field_225a.tt", query => $input, type => "intranet", - authnotrequired => 0, - flagsrequired => { editcatalogue => 1 }, - debug => 1, + flagsrequired => { editcatalogue => '*' }, } ); @@ -138,21 +128,17 @@ sub plugin { push @collections, $col; } - } - - # my @collections = ["test"]; - my $collection = CGI::scrolling_list( - -name => 'f1', - -values => \@collections, - -default => "$result", - -size => 1, - -multiple => 0, - ); + } + @collections = sort @collections; + # my @collections = ( "test" ); + my $collection = { + values => \@collections, + default => "$result", + }; + $template->param( index => $index, collection => $collection ); output_html_with_http_headers $input, $cookie, $template->output; } - -1;