From a3c2b2ed659050a19cce15fdf445558f3afa2961 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=8Dtalo?= Date: Sat, 17 Apr 2021 15:01:48 +0000 Subject: [PATCH] Bug 22371: Add MARC21 cataloguing plugin to generate Cutter-Sanborn To associate the plugin with the cutter field, you must set the 'cutter.pl' plugin in your MARC framework. this can be done through the following steps: 1. Navigate to More > Administration > MARC bibliographic framework; 2. On the framework which you want to use de plugin, click on Action > MARC Structure; 3. On the field to be associated with the plugin, click on Actions > Subfields; 4. Select the tab corresponding to the cutter subfield; 5. On the "Other options (choose one)" panel, select "cutter.pl" in "Plugin" dropdown menu, and save changes. --- cataloguing/value_builder/cutter.pl | 256 ++++++++++++++++++++++++++++++++++++ 1 file changed, 256 insertions(+) create mode 100755 cataloguing/value_builder/cutter.pl diff --git a/cataloguing/value_builder/cutter.pl b/cataloguing/value_builder/cutter.pl new file mode 100755 index 0000000000..760bb7525d --- /dev/null +++ b/cataloguing/value_builder/cutter.pl @@ -0,0 +1,256 @@ +#!/usr/bin/perl + +# Converted to new plugin style (Bug 13437) + +# Copyright 2009 Kyle Hall +# +# 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 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. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + +use Modern::Perl; +use C4::Context; + +my $builder = sub { + my ( $params ) = @_; + my $function_name = $params->{id}; + + my $res = < +// + +EOF + return $res; +}; + +return { builder => $builder }; \ No newline at end of file -- 2.11.0