@@ -, +, @@ existing values the MARC editor of Cataloguing or Authorities. the noisy warnings of marc21_field_007.pl. They will be addressed on another report. --- cataloguing/value_builder/marc21_orgcode.pl | 44 +++++++++++++++++++++++++++++ t/db_dependent/FrameworkPlugin.t | 2 +- 2 files changed, 45 insertions(+), 1 deletion(-) create mode 100755 cataloguing/value_builder/marc21_orgcode.pl --- a/cataloguing/value_builder/marc21_orgcode.pl +++ a/cataloguing/value_builder/marc21_orgcode.pl @@ -0,0 +1,44 @@ +#!/usr/bin/perl + +# Converted to new plugin style (Bug 13437) +# This plugin adds the MARC organization code in fields like 003, 040cd + +# 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 $org = C4::Context->preference('MARCOrgCode'); + return <<"HERE"; + +HERE +}; + +return { builder => $builder }; --- a/t/db_dependent/FrameworkPlugin.t +++ a/t/db_dependent/FrameworkPlugin.t @@ -163,7 +163,7 @@ sub selected_plugins { @fi = @$incl; $min = 0; #not sure how many will output } else { # some default MARC, UNIMARC and item plugins - @fi = qw| barcode.pl dateaccessioned.pl marc21_field_003.pl + @fi = qw| barcode.pl dateaccessioned.pl marc21_orgcode.pl marc21_field_005.pl marc21_field_006.pl marc21_field_007.pl marc21_field_008.pl marc21_field_008_authorities.pl marc21_leader.pl marc21_leader_authorities.pl unimarc_leader.pl unimarc_field_100.pl unimarc_field_105.pl --