From 4fb6ae2446a75ba523fa8566f3d50bae79f63859 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Sat, 7 Oct 2023 19:36:56 +0000 Subject: [PATCH] Bug 3007: Remove unimarc_field_700-4.pl value builder I tried translating it, found it not working and replaced by the annif authorised value list with relator terms/codes. To test: * Make sure the unimarc_field_700-4.pl is no longer listed in frameworks. * Make sure it's not used in the standard frameworks. Signed-off-by: David Nind --- .../value_builder/unimarc_field_700-4.pl | 71 ------------------ .../value_builder/unimarc_field_700-4.tt | 75 ------------------- 2 files changed, 146 deletions(-) delete mode 100755 cataloguing/value_builder/unimarc_field_700-4.pl delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_700-4.tt diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl deleted file mode 100755 index b13b202b8c..0000000000 --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ /dev/null @@ -1,71 +0,0 @@ -#!/usr/bin/perl - -# written 10/5/2002 by Paul - -# 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 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::Auth qw( get_template_and_user ); -use CGI qw ( -utf8 ); -use C4::Context; - -use C4::Search; -use C4::Output qw( output_html_with_http_headers ); - -sub plugin_javascript { -my ($dbh,$record,$tagslib,$field_number) = @_; -my $function_name= $field_number; -my $res = " - -"; - -return ($function_name,$res); -} - -sub plugin { -my ($input) = @_; - my $index= $input->param('index'); - my $index2= $input->param('index2'); - $index2=-1 unless($index2); - my $result= $input->param('result'); - - - my $dbh = C4::Context->dbh; - - my ($template, $loggedinuser, $cookie) = get_template_and_user( - { - template_name => "cataloguing/value_builder/unimarc_field_700-4.tt", - query => $input, - type => "intranet", - flagsrequired => { editcatalogue => '*' }, - } - ); - $template->param(index => $index, - index2 => $index2, - "f1_$result" => "f1_".$result, - ); - output_html_with_http_headers $input, $cookie, $template->output; -} diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_700-4.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_700-4.tt deleted file mode 100644 index 2f32ec3e4a..0000000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_field_700-4.tt +++ /dev/null @@ -1,75 +0,0 @@ -[% USE raw %] -[% PROCESS 'i18n.inc' %] -[% SET footerjs = 1 %] -[% INCLUDE 'doc-head-open.inc' %] -[% FILTER collapse %] - [% t("UNIMARC field 700-4 builder") | html %] - [% t("Cataloging") | html %] › - [% t("Koha") | html %] -[% END %] -[% INCLUDE 'doc-head-close.inc' %] - - - -

UNIMARC field 700-4 builder

Sélectionnez la valeur pour le champ 700 $4. Elle sera automatiquement reportée dans la zone 700 $8 qui suit.

- - - - -

Code date publication

Cancel

- -[% MACRO jsinclude BLOCK %] - -[% END %] - -[% INCLUDE 'intranet-bottom.inc' popup_window=1 %] -- 2.30.2