#!/usr/bin/perl
-# $Id: usmarc_field_952v.pl,v 1.1.2.2 2006/09/20 02:59:53 kados Exp $
+# Converted to new plugin style (Bug 13437)
# Copyright 2000-2002 Katipo Communications
+# Parts copyright Athens County Public Libraries 2019
#
# 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 <http://www.gnu.org/licenses>.
-require Exporter;
+use Modern::Perl;
+use Koha::DateUtils qw( dt_from_string output_pref );
-=head1
+my $builder = sub {
+ my ( $params ) = @_;
+ my $function_name = $params->{id};
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+ my $date = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
-=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 (<a href="javascript:function">) named ClicXXX
+ my $res = <<END_OF_JS;
+<script>
+/* from: cataloguing/value_builder/dateaccessioned.pl */
-returns :
-* XXX
-* a variable containing the 3 scripts.
-the 3 scripts are inserted after the <input> in the html code
+\$(document).ready(function(){
+ \$("#$function_name").datepicker({
+ dateFormat: "yy-mm-dd"
+ });
+});
-=cut
-sub plugin_javascript {
- my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
- my $function_name= "dateaccessioned".(int(rand(100000))+1);
+function Focus$function_name(event) {
+ set_to_today(event.data.id);
+ \$("#$function_name").datepicker("show");
- # 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 = "
-<script type=\"text/javascript\">
-//<![CDATA[
-function Blur$function_name(index) {
}
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '$tag' && document.f.subfield[i].value == '$subfield') {
- if (document.f.field_value[i].value == '') {
- document.f.field_value[i].value = '$date';
- }
- }
- }
-return 0;
+function Click$function_name(event) {
+ event.preventDefault();
+ set_to_today(event.data.id, 1);
}
-function Clic$function_name(subfield_managed) {
+function set_to_today( id, force ) {
+ /* The force parameter is used in Click but not in Focus ! */
+ if (! id) { alert(_("Bad id ") + id + _(" sent to set_to_today()")); return 0; }
+ if (\$("#" + id).val() == '' || force ) {
+ \$("#" + id).val("$date");
+ }
}
-//]]>
</script>
-";
- 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 "";
-}
+END_OF_JS
+ return $res;
+};
-1;
+return { builder => $builder };