@@ -, +, @@ --- cataloguing/value_builder/marc21_field_003.pl | 46 -------------------- cataloguing/value_builder/marc21_field_040c.pl | 45 ------------------- cataloguing/value_builder/marc21_field_040d.pl | 45 ------------------- .../data/mysql/atomicupdate/14199_MarcOrgCode.sql | 3 ++ 4 files changed, 3 insertions(+), 136 deletions(-) delete mode 100755 cataloguing/value_builder/marc21_field_003.pl delete mode 100755 cataloguing/value_builder/marc21_field_040c.pl delete mode 100755 cataloguing/value_builder/marc21_field_040d.pl create mode 100644 installer/data/mysql/atomicupdate/14199_MarcOrgCode.sql --- a/cataloguing/value_builder/marc21_field_003.pl +++ a/cataloguing/value_builder/marc21_field_003.pl @@ -1,46 +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::Context; - -my $builder = sub { - my ( $params ) = @_; - my $function_name = $params->{id}; - - my $org = C4::Context->preference('MARCOrgCode'); - my $res = " - -"; - return $res; -}; - -return { builder => $builder }; --- a/cataloguing/value_builder/marc21_field_040c.pl +++ a/cataloguing/value_builder/marc21_field_040c.pl @@ -1,45 +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::Context; - -my $builder = sub { - my ( $params ) = @_; - my $function_name = $params->{id}; - - my $org = C4::Context->preference('MARCOrgCode'); - my $res = " - -"; - return $res; -}; - -return { builder => $builder }; --- a/cataloguing/value_builder/marc21_field_040d.pl +++ a/cataloguing/value_builder/marc21_field_040d.pl @@ -1,45 +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::Context; - -my $builder = sub { - my ( $params ) = @_; - my $function_name = $params->{id}; - - my $org = C4::Context->preference('MARCOrgCode'); - my $res = " - -"; - return $res; -}; - -return { builder => $builder }; --- a/installer/data/mysql/atomicupdate/14199_MarcOrgCode.sql +++ a/installer/data/mysql/atomicupdate/14199_MarcOrgCode.sql @@ -0,0 +1,3 @@ +-- move marc21_field_003.pl 040c and 040d to marc21_orgcode.pl +update marc_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' ); +update auth_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' ); --