From cf4dfb4067e665c29ba710f1e9aa7206d071612e Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 14 Jul 2015 18:26:40 +0200 Subject: [PATCH] [SIGNED-OFF]Bug 14201: We can do without plugin marc21_leader_computerfile A closer look at this plugin revealed the same things as the previous patch for leader_book. [1] Template leader_computerfile is not used. [2] The unused template is not up-to-date either. [3] Leader_computerfile does not use Focus while leader does. This patch removes all traces of leader_computerfile. It includes a tiny db revision for those brave people using it. The only behavior change for them is the focus change. Test plan: [1] Run the db revision. [2] Check if the leader plugin still works as expected. [3] Git grep on marc21_leader_computerfile. Ignore PO files. Signed-off-by: Hector Castro --- .../value_builder/marc21_leader_computerfile.pl | 91 ------ .../mysql/atomicupdate/14201b_computerfile.sql | 2 + .../value_builder/marc21_leader_computerfile.tt | 340 -------------------- 3 files changed, 2 insertions(+), 431 deletions(-) delete mode 100755 cataloguing/value_builder/marc21_leader_computerfile.pl create mode 100644 installer/data/mysql/atomicupdate/14201b_computerfile.sql delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_leader_computerfile.tt diff --git a/cataloguing/value_builder/marc21_leader_computerfile.pl b/cataloguing/value_builder/marc21_leader_computerfile.pl deleted file mode 100755 index d3374db..0000000 --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ /dev/null @@ -1,91 +0,0 @@ -#!/usr/bin/perl - -# Converted to new plugin style (Bug 13437) - -# 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; -use CGI qw ( -utf8 ); -use C4::Context; - -use C4::Search; -use C4::Output; - -my $builder = sub { - my ( $params ) = @_; - my $function_name = $params->{id}; - my $res = " - -"; - - return $res; -}; - -my $launcher = sub { - my ( $params ) = @_; - my $input = $params->{cgi}; - my $index = $input->param('index'); - my $result = $input->param('result'); - - my $dbh = C4::Context->dbh; - - my ( $template, $loggedinuser, $cookie ) = get_template_and_user( - { template_name => "cataloguing/value_builder/marc21_leader_computerfile.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => { editcatalogue => '*' }, - debug => 1, - } - ); - $result = " nmm 7a " unless $result; - my $f5 = substr( $result, 5, 1 ); - my $f6 = substr( $result, 6, 1 ); - my $f7 = substr( $result, 7, 1 ); - my $f8 = substr( $result, 8, 1 ); - my $f9 = substr( $result, 9, 1 ); - my $f17 = substr( $result, 17, 1 ); - my $f18 = substr( $result, 18, 1 ); - my $f19 = substr( $result, 19, 1 ); - - $template->param( - index => $index, - "f5$f5" => 1, - "f6$f6" => 1, - "f7$f7" => 1, - "f8$f8" => 1, - "f9$f9" => 1, - "f17$f17" => 1, - "f18$f18" => 1, - "f19$f19" => 1, - ); - output_html_with_http_headers $input, $cookie, $template->output; -}; - -return { builder => $builder, launcher => $launcher }; \ No newline at end of file diff --git a/installer/data/mysql/atomicupdate/14201b_computerfile.sql b/installer/data/mysql/atomicupdate/14201b_computerfile.sql new file mode 100644 index 0000000..6fb189a --- /dev/null +++ b/installer/data/mysql/atomicupdate/14201b_computerfile.sql @@ -0,0 +1,2 @@ +-- move marc21_leader_computerfile to marc21_leader +update marc_subfield_structure set value_builder='marc21_leader.pl' where value_builder='marc21_leader_computerfile.pl'; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_leader_computerfile.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_leader_computerfile.tt deleted file mode 100644 index e768ffa..0000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_leader_computerfile.tt +++ /dev/null @@ -1,340 +0,0 @@ -[% INCLUDE 'doc-head-open.inc' %] -Koha › Cataloging › Leader builder -[% INCLUDE 'doc-head-close.inc' %] - - -

000 - Leader

-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1-4 Record size(auto-filled)
- -
- -
- -
- -
- -
10-16 indicator/subfields/size(auto-filled)
- -
- -
- -
20-24 entry map & lengths(auto-filled)
-
Cancel
-
- - -[% INCLUDE 'popup-bottom.inc' %] -- 1.7.10.4