#!/usr/bin/perl # $Id: usmarc_field_952v.pl,v 1.1.2.2 2006/09/20 02:59:53 kados Exp $ # Copyright 2000-2002 Katipo Communications # # 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 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., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. #use strict; #use warnings; FIXME - Bug 2505 =head1 plugin_parameters : useless here =cut sub plugin_parameters { # my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; } =head1 plugin_javascript : the javascript function called when the user enters the subfield. contain 3 javascript functions : * one called when the field is entered (OnFocus) named FocusXXX * one called when the field is left (onBlur ) named BlurXXX * one called when the ... link is clicked (onClick) named ClicXXX returns : * XXX * a variable containing the 3 scripts. the 3 scripts are inserted after the in the html code =cut sub plugin_javascript { # my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; my $function_name = "dateaccessioned".(int(rand(100000))+1); require C4::Dates; my $date = C4::Dates->today('iso'); # find the tag/subfield mapped to items.dateaccessioned my ($tag,$subfield) = GetMarcFromKohaField("items.dateaccessioned",""); my $res = < // END_OF_JS return ($function_name, $res); } =head1 plugin: useless here. =cut sub plugin { # my ($input) = @_; return ""; } 1;