X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=cataloguing%2Fvalue_builder%2Funimarc_field_124f.pl;h=eb0661f31ce59156b0c75b9f4e2108f747276a19;hb=cac6eb12502f82ed5a0b59a74cf84fa009ba0a26;hp=91e30dc3f44280eb82e28c7f97fa1d41674d67d5;hpb=e43c1643950eb0a26d65054d6ef72d5717624688;p=koha_fer diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl index 91e30dc3f4..eb0661f31c 100755 --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ b/cataloguing/value_builder/unimarc_field_124f.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -# $Id$ # Copyright 2000-2002 Katipo Communications # @@ -15,11 +14,12 @@ # 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +#use warnings; FIXME - Bug 2505 use C4::Auth; use CGI; use C4::Context; @@ -39,7 +39,7 @@ return ""; sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; -my $function_name= "124f".(int(rand(100000))+1); +my $function_name= $field_number; my $res=" @@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie) query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => {editcatalogue => 1}, + flagsrequired => {editcatalogue => '*'}, debug => 1, }); my $f1 = substr($result,0,2);