From 2131e1e9aad38aa56529b9ee372e0f45bcff221f Mon Sep 17 00:00:00 2001 From: Joshua Ferraro Date: Sat, 6 Oct 2007 00:23:46 -0500 Subject: [PATCH] adding dateaccessioned plugin Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- cataloguing/value_builder/dateaccessioned.pl | 99 ++++++++++++++++++++ 1 file changed, 99 insertions(+) create mode 100755 cataloguing/value_builder/dateaccessioned.pl diff --git a/cataloguing/value_builder/dateaccessioned.pl b/cataloguing/value_builder/dateaccessioned.pl new file mode 100755 index 0000000000..9804bd2870 --- /dev/null +++ b/cataloguing/value_builder/dateaccessioned.pl @@ -0,0 +1,99 @@ +#!/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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +require Exporter; + +=head1 + +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 ""; +} + +=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 leaved (onBlur). Named BlurXXX +* one called when the ... link is clicked () 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); + + # find today's date + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = + localtime(time); + $year +=1900; + $mon +=1; + $pmon = sprintf("%0*d", "2",$mon); + + $pmday = sprintf("%0*d", "2",$mday); + my $date = "$year-$pmon-$pmday"; + + # find the tag/subfield mapped to items.dateaccessioned + my ($tag,$subfield) = GetMarcFromKohaField("items.dateaccessioned"); + my $res = " + +"; + return ($function_name,$res); +} + +=head1 + +plugin : the true value_builded. The screen that is open in the popup window. + +=cut + +sub plugin { +my ($input) = @_; +return ""; +} + +1; -- 2.39.5