Attachment #99176 for bug #20447

View | Details | Raw Unified | Return to bug 20447
Collapse All | Expand All




use Koha::Authority::Types;
use Koha::Acquisition::Currencies;
use Koha::Biblio::Metadatas;
use Koha::Holdings;
use Koha::Holds;
use Koha::ItemTypes;
use Koha::Plugins;

            return $itemtype ? $itemtype->translated_description : q||;
        }

        #---- holdings
        if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "holdings" ) {
            my $holding = Koha::Holdings->find( $value );
            if ( $holding ) {
                my @parts;

                push @parts, $value;
                push @parts, $holding->holdingbranch() if $holding->holdingbranch();
                push @parts, $holding->location() if $holding->location();
                push @parts, $holding->ccode() if $holding->ccode();
                push @parts, $holding->callnumber() if $holding->callnumber();

                return join(' ', @parts);
            }
            return q||;
        }

        #---- "true" authorized value
        $category = $tagslib->{$tag}->{$subfield}->{'authorised_value'};
    }

=head2 EmbedItemsInMarcBiblio

    EmbedItemsInMarcBiblio({
        marc_record   => $marc,
        biblionumber  => $biblionumber,
        item_numbers  => $itemnumbers,
        opac          => $opac,
        skip_holdings => 1 });

Given a MARC::Record object containing a bib record,
modify it to include the items attached to it as 9XX
per the bib's MARC framework and any holdings location information.
if $itemnumbers is defined, only specified itemnumbers are embedded.

If $opac is true, then opac-relevant suppressions are included.

If opac filtering will be done, borcat should be passed to properly
override if necessary.

If $skip_holdings is set, it overrides the default of embedding basic
location information from holdings records if summary holdings are
enabled.

=cut

sub EmbedItemsInMarcBiblio {
    my ($params) = @_;
    my ($marc, $biblionumber, $itemnumbers, $opac, $borcat, $skip_holdings);
    $marc = $params->{marc_record};
    if ( !$marc ) {
        carp 'EmbedItemsInMarcBiblio: No MARC record passed';

    $itemnumbers = $params->{item_numbers};
    $opac = $params->{opac};
    $borcat = $params->{borcat} // q{};
    $skip_holdings = $params->{skip_holdings} // 0;

    $itemnumbers = [] unless defined $itemnumbers;

    if ( !$skip_holdings && C4::Context->preference('SummaryHoldings') && !@$itemnumbers ) {
        my $holdings_fields = Koha::Holdings->get_embeddable_marc_fields({ biblionumber => $biblionumber });
        $marc->append_fields(@$holdings_fields) if ( @$holdings_fields );
    }

    my $frameworkcode = GetFrameworkCode($biblionumber);
    _strip_item_fields($marc, $frameworkcode);






    open IN, "<$input_file" or die "$0: cannot open input file $input_file: $!\n";
    my @marc_records;
    my $count = 0;
    $/ = "\035";
    while (<IN>) {
        s/^\s+//;
        s/\s+$//;
        next unless $_; # skip if record has only whitespace, as might occur
                        # if file includes newlines between each MARC record
        ++$count;
        my ($marc_record, $charset_guessed, $char_errors) = MarcToUTF8Record($_, $marc_type, $encoding);
        # Ignore holdings records
        if ($record_type eq 'biblio' && $marc_type eq 'MARC21') {
            my $leader = $marc_record->leader();
            if ($leader =~ /^.{6}[uvxy]/) {
                push @errors, "Ignoring record $count (holdings record)";
                next;
            }
        }

        push @marc_records, $marc_record;
        if ($charset_guessed ne $encoding) {
            push @errors,

=cut

sub RecordsFromMARCXMLFile {
    my ( $filename, $record_type, $encoding ) = @_;

    my $marcflavour = C4::Context->preference('marcflavour');
    my $batch = MARC::File::XML->in( $filename );
    my ( @marcRecords, @errors, $record );
    my $count = 0;
    do {
        ++$count;
        eval { $record = $batch->next( $encoding ); };
        if ($@) {
            push @errors, $@;
        }
        # Ignore holdings records
        my $valid = 1;
        if ($record && $record_type eq 'biblio' && $marcflavour eq 'MARC21') {
            my $leader = $record->leader();
            if ($leader =~ /^.{6}[uvxy]/) {
                push @errors, "Ignoring record $count (holdings record)";
                $valid = 0;
            }
        }
        push @marcRecords, $record if $record && $valid;
    } while( $record );
    return (\@errors, \@marcRecords);
}





use Koha::Biblios;
use Koha::Biblioitems;
use Koha::Holdings;
use Koha::Items;
use Koha::ItemTypes;
use Koha::SearchEngine;

        stocknumber              => undef,
        uri                      => undef,
        withdrawn                => 0,
        holding_id               => undef,
    };
    my %default_values_for_mod_from_marc;
    while ( my ( $field, $default_value ) = each %$default_values ) {

Item's call number normalized for sorting

=back

=cut

sub GetItemsLocationInfo {

            more_subfields_xml  = ?,
            copynumber          = ?,
            stocknumber         = ?,
            new_status          = ?,
            holding_id          = ?
          ";
    my $sth = $dbh->prepare($query);
    my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });

            $item->{'copynumber'},
            $item->{'stocknumber'},
            $item->{'new_status'},
            $item->{'holding_id'},
    );

    my $itemnumber;

Lines 30-35 use C4::Reserves; # GetReserveStatus Link Here

(-)a/C4/Search.pm (+8 lines)
30	use C4::Debug;	30	use C4::Debug;
31	use C4::Charset;	31	use C4::Charset;
32	use Koha::AuthorisedValues;	32	use Koha::AuthorisedValues;
		33	use Koha::Holdings;
33	use Koha::ItemTypes;	34	use Koha::ItemTypes;
34	use Koha::Libraries;	35	use Koha::Libraries;
35	use Koha::Patrons;	36	use Koha::Patrons;
Lines 2058-2063 sub searchResults { Link Here
2058	my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');	2059	my $maxitems_pref = C4::Context->preference('maxItemsinSearchResults');
2059	my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;	2060	my $maxitems = $maxitems_pref ? $maxitems_pref - 1 : 1;
2060	my @hiddenitems; # hidden itemnumbers based on OpacHiddenItems syspref	2061	my @hiddenitems; # hidden itemnumbers based on OpacHiddenItems syspref
		2062	my $summary_holdings;
2061		2063
2062	# loop through every item	2064	# loop through every item
2063	foreach my $field (@fields) {	2065	foreach my $field (@fields) {
Lines 2239-2244 sub searchResults { Link Here
2239	push @available_items_loop, $available_items->{$key}	2241	push @available_items_loop, $available_items->{$key}
2240	}	2242	}
2241		2243
		2244	# Fetch summary holdings
		2245	if (C4::Context->preference('SummaryHoldings')) {
		2246	$summary_holdings = Koha::Holdings->search({ biblionumber => $oldbiblio->{biblionumber}, deleted_on => undef });
		2247	}
		2248
2242	# XSLT processing of some stuff	2249	# XSLT processing of some stuff
2243	# we fetched the sysprefs already before the loop through all retrieved record!	2250	# we fetched the sysprefs already before the loop through all retrieved record!
2244	if (!$scan && $xslfile) {	2251	if (!$scan && $xslfile) {
Lines 2269-2274 sub searchResults { Link Here
2269	$oldbiblio->{onholdcount} = $item_onhold_count;	2276	$oldbiblio->{onholdcount} = $item_onhold_count;
2270	$oldbiblio->{orderedcount} = $ordered_count;	2277	$oldbiblio->{orderedcount} = $ordered_count;
2271	$oldbiblio->{notforloancount} = $notforloan_count;	2278	$oldbiblio->{notforloancount} = $notforloan_count;
		2279	$oldbiblio->{summary_holdings} = $summary_holdings;
2272		2280
2273	if (C4::Context->preference("AlternateHoldingsField") && $items_count == 0) {	2281	if (C4::Context->preference("AlternateHoldingsField") && $items_count == 0) {
2274	my $fieldspec = C4::Context->preference("AlternateHoldingsField");	2282	my $fieldspec = C4::Context->preference("AlternateHoldingsField");

Lines 160-165 sub _get_best_default_xslt_filename { Link Here

(-)a/C4/XSLT.pm (-2 / +49 lines)
160	return $xslfilename;	160	return $xslfilename;
161	}	161	}
162		162
		163	=head2 get_xslt_sysprefs
		164
		165	Returns XML for system preferences.
		166
		167	=cut
		168
163	sub get_xslt_sysprefs {	169	sub get_xslt_sysprefs {
164	my $sysxml = "<sysprefs>\n";	170	my $sysxml = "<sysprefs>\n";
165	foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow	171	foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
Lines 243-252 sub XSLTParse4Display { Link Here
243	# grab the XML, run it through our stylesheet, push it out to the browser	249	# grab the XML, run it through our stylesheet, push it out to the browser
244	my $record = transformMARCXML4XSLT($biblionumber, $orig_record);	250	my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
245	my $itemsxml;	251	my $itemsxml;
		252	my $holdingsxml;
246	if ( $xslsyspref eq "OPACXSLTDetailsDisplay" \|\| $xslsyspref eq "XSLTDetailsDisplay" \|\| $xslsyspref eq "XSLTResultsDisplay" ) {	253	if ( $xslsyspref eq "OPACXSLTDetailsDisplay" \|\| $xslsyspref eq "XSLTDetailsDisplay" \|\| $xslsyspref eq "XSLTResultsDisplay" ) {
247	$itemsxml = ""; #We don't use XSLT for items display on these pages	254	# We don't use XSLT for items or holdings display on these pages
		255	$itemsxml = "";
		256	$holdingsxml = "";
248	} else {	257	} else {
249	$itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items);	258	$itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items);
		259	$holdingsxml = buildKohaHoldingsNamespace($biblionumber);
250	}	260	}
251	my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));	261	my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
252		262
Lines 272-278 sub XSLTParse4Display { Link Here
272	}	282	}
273	$varxml .= "</variables>\n";	283	$varxml .= "</variables>\n";
274		284
275	$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml$varxml\<\/record\>/;	285	$xmlrecord =~ s/\<\/record\>/$itemsxml$holdingsxml$sysxml$varxml\<\/record\>/;
276	if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs	286	if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs
277	$xmlrecord =~ s/\&amp;/\&/g;	287	$xmlrecord =~ s/\&amp;/\&/g;
278	$xmlrecord =~ s/\&amp\;lt\;/\&lt\;/g;	288	$xmlrecord =~ s/\&amp\;lt\;/\&lt\;/g;
Lines 377-382 sub buildKohaItemsNamespace { Link Here
377	return $xml;	387	return $xml;
378	}	388	}
379		389
		390	=head2 buildKohaHoldingsNamespace
		391
		392	Returns XML for holdings records.
		393	Is only used in this module currently.
		394
		395	=cut
		396
		397	sub buildKohaHoldingsNamespace {
		398	my ($biblionumber) = @_;
		399
		400	my $holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef })->as_list;
		401
		402	my $shelflocations =
		403	{ map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => 'HLD', kohafield => 'holdings.location' } ) };
		404
		405	my %branches = map { $_->branchcode => $_->branchname } Koha::Libraries->search({}, { order_by => 'branchname' });
		406
		407	my $location = "";
		408	my $ccode = "";
		409	my $xml = '';
		410	foreach my $holding ( @{$holdings} ) {
		411	my $holdingbranch = $holding->{holdingbranch} ? xml_escape($branches{$holding->{holdingbranch}}) : '';
		412	my $location = $holding->{location} ? xml_escape($shelflocations->{$holding->{location}} \|\| $holding->{location}) : '';
		413	my $callnumber = xml_escape($holding->{callnumber});
		414	my $suppress = $holding->{suppress} \|\| '0';
		415	$xml .=
		416	"<holding>"
		417	. "<holdingbranch>$holdingbranch</holdingbranch>"
		418	. "<location>$location</location>"
		419	. "<callnumber>$callnumber</callnumber>"
		420	. "<suppress>$suppress</suppress>"
		421	. "</holding>";
		422	}
		423	$xml = "<holdings xmlns=\"http://www.koha-community.org/holdings\">$xml</holdings>";
		424	return $xml;
		425	}
		426
380	=head2 engine	427	=head2 engine
381		428
382	Returns reference to XSLT handler object.	429	Returns reference to XSLT handler object.




use Koha::Biblio::Metadatas;
use Koha::Biblioitems;
use Koha::CirculationRules;
use Koha::Holdings;
use Koha::Item::Transfer::Limits;
use Koha::Items;
use Koha::Libraries;

    return $self->{_subscriptions};
}

=head3 holdings

my $holdings = $self->holdings

Returns the related Koha::Holdings object for this Biblio object

=cut

sub holdings {
    my ($self) = @_;

    $self->{_holdings} ||= Koha::Holdings->search( { biblionumber => $self->biblionumber } );

    return $self->{_holdings};
}


=head3 has_items_waiting_or_intransit

my $itemsWaitingOrInTransit = $biblio->has_items_waiting_or_intransit

    };
}

=head3 adopt_holdings_from_biblio

$biblio->adopt_holdings_from_biblio($from_biblio);

Move holdings and item records from the given biblio to this one.

=cut

sub adopt_holdings_from_biblio {
    my ( $self, $from_biblio ) = @_;

    my $schema = Koha::Database->new()->schema();

    $schema->storage->txn_begin;

    # Move holdings records. This will also move any items attached to the holdings.
    my $holdings = $from_biblio->holdings;
    while (my $holding = $holdings->next()) {
        $holding->move_to_biblio($self);
    }
    # Move any items not already moved.
    my $items = $from_biblio->items;
    if ($items) {
        while (my $item = $items->next()) {
            $item->move_to_biblio($self);
        }
    }
    if ($items || $holdings) {
        C4::Biblio::ModZebra( $self->biblionumber, "specialUpdate", "biblioserver" );
        C4::Biblio::ModZebra( $from_biblio->biblionumber, "specialUpdate", "biblioserver" );
    }

    $schema->storage->txn_commit;
}






package Koha::Holding;

# Copyright ByWater Solutions 2014
# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use C4::Charset;
use C4::Log;

use Koha::Database;
use Koha::DateUtils qw(dt_from_string);
use Koha::Holdings::Metadatas;
use Koha::Items;

use base qw(Koha::Object);

=head1 NAME

Koha::Holding - Koha Holding Object class

=head1 API

=head2 Class Methods

=cut

=head3 holding_branch

my $branch = $hold->holding_branch();

Returns the holding branch for this record.

=cut

sub holding_branch {
    my ($self) = @_;

    my $branch = $self->_result->holdingbranch();
    return Koha::Library->_new_from_dbic($branch);
}

=head3 metadata

my $metadata = $holding->metadata();

Returns a Koha::Holding::Metadata object

=cut

sub metadata {
    my ($self) = @_;

    my $metadata = $self->_result()->metadata();
    return unless $metadata;
    return Koha::Holdings::Metadata->_new_from_dbic($metadata);
}

=head3 set_marc

$holding->set_marc({ record => $record });

Updates the MARC format metadata from a Marc::Record.
Does not store the results in the database.

If passed an undefined record will log the error.

Returns $self

=cut

sub set_marc {
    my ($self, $params) = @_;

    if (!defined $params->{record}) {
        carp('set_marc called with undefined record');
        return $self;
    }

    # Clone record as it gets modified
    my $record = $params->{record}->clone();
    SetUTF8Flag($record);
    my $encoding = C4::Context->preference('marcflavour');
    if ($encoding eq 'MARC21' || $encoding eq 'UNIMARC') {
      # YY MM DD HH MM SS (update year and month)
      my @a = (localtime) [5,4,3,2,1,0]; $a[0] += 1900; $a[1]++;
      my $f005 = $record->field('005');
      $f005->update(sprintf('%4d%02d%02d%02d%02d%04.1f', @a)) if $f005;
    }

    $self->{_marcxml} = $record->as_xml_record($encoding);
    my $fields = $self->marc_to_koha_fields({ record => $record });
    delete $fields->{holding_id};
    # Filter the columns since we have e.g. public_note that's not stored in the database
    my $columns = [$self->_result()->result_source()->columns()];
    my $db_fields = {};
    foreach my $key (keys %{$fields}) {
        if (grep {/^$key$/} @{$columns}) {
            $db_fields->{$key} = $fields->{$key};
        }
    }
    $self->set($db_fields);

    return $self;
}

=head3 items

my @items = $holding->items();
my $items = $holding->items();

Returns the related Koha::Items object for this holding in scalar context,
or list of Koha::Item objects in list context.

=cut

sub items {
    my ($self) = @_;

    my $items_rs = $self->_result->items;

    return
        wantarray
        ? Koha::Items->_new_from_dbic($items_rs)->as_list
        : Koha::Items->_new_from_dbic($items_rs);
}

=head3 store

    $holding->store();

Saves the holdings record.

Returns:
    $self  if the store was a success
    undef  if the store failed

=cut

sub store {
    my ($self) = @_;

    my $action = $self->holding_id() ? 'UPDATE' : 'ADD';

    $self->datecreated(dt_from_string('', 'sql')) unless $self->datecreated();

    my $schema = Koha::Database->new()->schema();
    # Use a transaction only if AutoCommit is enabled - otherwise handled outside of this sub
    my $guard = C4::Context->dbh->{AutoCommit} ? $schema->txn_scope_guard() : undef;

    my $result = $self->SUPER::store();

    return $result unless $result;

    # Create or update the metadata record
    my $marcflavour = C4::Context->preference('marcflavour');
    my $marc_record = $self->{_marcxml}
        ? MARC::Record::new_from_xml($self->{_marcxml}, 'utf-8', $marcflavour)
        : $self->metadata()->record();

    $self->_update_marc_ids($marc_record);

    my $metadata = {
        holding_id => $self->holding_id(),
        format     => 'marcxml',
        schema     => $marcflavour,
    };
    my $metadata_record = Koha::Holdings::Metadatas->find_or_new($metadata);
    $metadata_record->metadata($marc_record->as_xml_record($marcflavour));

    $result = $metadata_record->store() ? $self : undef;

    if ($result) {
        $guard->commit() if defined $guard;

        # request that bib be reindexed so that any holdings-derived fields are updated
        C4::Biblio::ModZebra( $self->biblionumber(), 'specialUpdate', 'biblioserver' );

        logaction('CATALOGUING', $action, $self->holding_id(), 'holding') if C4::Context->preference('CataloguingLog');
    }

    return $result;
}

=head3 delete

    $holding->delete();

Marks the holdings record deleted.

Returns:
    1  if the deletion was a success
    0  if the deletion failed
    -1 if the object was never in storage

=cut

sub delete {
    my ($self) = @_;

    return -1 unless $self->_result()->in_storage();

    if ($self->items()->count()) {
        return 0;
    }

    my $schema = Koha::Database->new()->schema();
    # Use a transaction only if AutoCommit is enabled - otherwise handled outside of this sub
    my $guard = C4::Context->dbh->{AutoCommit} ? $schema->txn_scope_guard() : undef;

    my $now = dt_from_string('', 'sql');
    $self->deleted_on($now)->store();
    Koha::Holdings::Metadatas->find({ holding_id => $self->holding_id() })->update({ deleted_on => $now });

    $guard->commit() if defined $guard;

    logaction('CATALOGUING', 'DELETE', $self->holding_id(), 'holding') if C4::Context->preference('CataloguingLog');

    return 1;
}

=head3 move_to_biblio

  $holding->move_to_biblio($to_biblio);

Move the holdings record and any of its related records to another biblio.

=cut

sub move_to_biblio {
    my ( $self, $to_biblio ) = @_;

    my $biblionumber = $to_biblio->biblionumber;

    # Own biblionumber
    $self->set({
        biblionumber => $biblionumber,
    })->store();

    # Items
    my $items => $self->items;
    if ($items) {
        while (my $item = $items->next()) {
            $item->move_to_biblio($to_biblio);
        }
    }
}

=head3 type

=cut

sub _type {
    return 'Holding';
}

=head2 marc_to_koha_fields

    $result = Koha::Holding->marc_to_koha_fields({ record => $record })

Extract data from a MARC::Record holdings record into a hashref representing
Koha holdings fields.

If passed an undefined record will log the error and return an empty
hash_ref.

=cut

sub marc_to_koha_fields {
    my ($class, $params) = @_;

    my $result = {};
    if (!defined $params->{record}) {
        carp('marc_to_koha_fields called with undefined record');
        return $result;
    }
    my $record = $params->{record};

    # The next call uses the HLD framework since it is AUTHORITATIVE
    # for all Koha to MARC mappings for holdings.
    my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # Do not change framework
    foreach my $kohafield (keys %{ $mss }) {
        my ($table, $column) = split /[.]/, $kohafield, 2;
        next unless $table eq 'holdings' && $mss->{$kohafield};

        my @values;
        foreach my $field (@{$mss->{$kohafield}}) {
            my $tag = $field->{tagfield};
            my $sub = $field->{tagsubfield};
            foreach my $fld ($record->field($tag)) {
                if( $sub eq '@' || $fld->is_control_field ) {
                    push @values, $fld->data if $fld->data;
                } else {
                    push @values, grep { $_ } $fld->subfield($sub);
                }
            }
        }
        $result->{$column} = join(' | ', @values) if (@values);
    }
    return $result;
}

=head3 get_marc_field_mapping

    ($field, $subfield) = Koha::Holding->get_marc_field_mapping({ field => $kohafield });
    @fields = Koha::Holding->get_marc_field_mapping({ field => $kohafield });
    $field = Koha::Holding->get_marc_field_mapping({ field => $kohafield });

    Returns the MARC fields & subfields mapped to $kohafield.
    Uses the HLD framework that is considered as authoritative.

    In list context all mappings are returned; there can be multiple
    mappings. Note that in the above example you could miss a second
    mapping in the first call.
    In scalar context only the field tag of the first mapping is returned.

=cut

sub get_marc_field_mapping {
    my ($class, $params) = @_;

    return unless $params->{field};

    # The next call uses the HLD framework since it is AUTHORITATIVE
    # for all Koha to MARC mappings for holdings.
    my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # Do not change framework
    my @retval;
    foreach (@{ $mss->{$params->{field}} }) {
        push @retval, $_->{tagfield}, $_->{tagsubfield};
    }
    return wantarray ? @retval : ( @retval ? $retval[0] : undef );
}

=head2 Internal methods

=head3 _update_marc_ids

  $self->_update_marc_ids($record);

Internal function to add or update holding_id, biblionumber and biblioitemnumber to
the MARC record.

=cut

sub _update_marc_ids {
    my ($self, $record) = @_;

    my ($holding_tag, $holding_subfield) = $self->get_marc_field_mapping({ field => 'holdings.holding_id' });
    die qq{No holding_id tag for framework "HLD"} unless $holding_tag;
    if ($holding_tag < 10) {
        C4::Biblio::UpsertMarcControlField($record, $holding_tag, $self->holding_id);
    } else {
        C4::Biblio::UpsertMarcSubfield($record, $holding_tag, $holding_subfield, $self->holding_id);
    }

    my ($biblio_tag, $biblio_subfield) = $self->get_marc_field_mapping({ field => 'biblio.biblionumber' });
    die qq{No biblionumber tag for framework "HLD"} unless $biblio_tag;
    if ($biblio_tag < 10) {
        C4::Biblio::UpsertMarcControlField($record, $biblio_tag, $self->biblionumber);
    } else {
        C4::Biblio::UpsertMarcSubfield($record, $biblio_tag, $biblio_subfield, $self->biblionumber);
    }
}


=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>
Ere Maijala <ere.maijala@helsinki.fi>

=cut

1;




package Koha::Holdings;

# Copyright ByWater Solutions 2015
# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use C4::Biblio;
use C4::Charset;
use C4::Context;
use Koha::Database;
use Koha::Holding;

use base qw(Koha::Objects);

=head1 NAME

Koha::Holdings - Koha Holdings object set class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'Holding';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Holding';
}

=head3 get_embeddable_marc_fields

  my @marc_fields = Koha::Holding->get_embeddable_marc_fields({biblionumber => $biblionumber});

Returns an array of MARC::Record objects of the holdings for the biblio.

=cut

sub get_embeddable_marc_fields {
    my ($class, $params) = @_;

    my @holdings_fields;
    if (not defined $params->{biblionumber}) {
        carp('get_embeddable_marc_fields called with undefined biblionumber');
        return \@holdings_fields;
    }

    my ($holdingstag, $holdingssubfield) = Koha::Holding->get_marc_field_mapping({ field => 'holdings.holdingbranch' });
    my $holdings = $class->search({ biblionumber => $params->{biblionumber}, deleted_on => undef })->unblessed();
    foreach my $holding (@$holdings) {
        my $mungedholding = {
            map {
                defined($holding->{$_}) && $holding->{$_} ne '' ? ("holdings.$_" => $holding->{$_}) : ()
            } keys %{ $holding }
        };
        my $marc = $class->_holding_to_marc($mungedholding);
        push @holdings_fields, $marc->field($holdingstag);
    }
    return \@holdings_fields;
}

=head2 _holding_to_marc

    $record = $class->_holding_to_marc($hash)

This function builds partial MARC::Record from holdings hash entries.
This function is called when embedding holdings into a biblio record.

=cut

sub _holding_to_marc {
    my ($class, $hash, $params) = @_;

    my $record = MARC::Record->new();
    SetMarcUnicodeFlag($record, C4::Context->preference('marcflavour'));

    # The next call uses the HLD framework since it is AUTHORITATIVE
    # for all Koha to MARC mappings for holdings.
    my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # do not change framewok
    my $tag_hr = {};
    while (my ($kohafield, $value) = each %$hash) {
        foreach my $fld (@{$mss->{$kohafield}}) {
            my $tagfield    = $fld->{tagfield};
            my $tagsubfield = $fld->{tagsubfield};
            next if !$tagfield;
            my @values = $params->{no_split}
                ? ( $value )
                : split(/\s?\|\s?/, $value, -1);
            foreach my $value (@values) {
                next if $value eq '';
                $tag_hr->{$tagfield} //= [];
                push @{$tag_hr->{$tagfield}}, [($tagsubfield, $value)];
            }
        }
    }
    foreach my $tag (sort keys %$tag_hr) {
        my @sfl = @{$tag_hr->{$tag}};
        @sfl = sort { $a->[0] cmp $b->[0]; } @sfl;
        @sfl = map { @{$_}; } @sfl;
        # Special care for control fields: remove the subfield indication @
        # and do not insert indicators.
        my @ind = $tag < 10 ? () : ( " ", " " );
        @sfl = grep { $_ ne '@' } @sfl if $tag < 10;
        $record->insert_fields_ordered(MARC::Field->new($tag, @ind, @sfl));
    }
    return $record;
}


=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>
Ere Maijala <ere.maijala@helsinki.fi>

=cut

1;




package Koha::Holdings::Metadata;

# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Holdings::Metadata - Koha Holdings Metadata Object class

=head1 API

=head2 Class methods

=cut

=head3 record

my @record = $metadata->record($params);
my $record = $metadata->record;

Returns an object representing the metadata record. The expected record type
corresponds to this table:

    -------------------------------
    | format     | object type    |
    -------------------------------
    | marcxml    | MARC::Record   |
    -------------------------------

=head4 Error handling

=over

=item If an unsupported format is found, it throws a I<Koha::Exceptions::Metadata> exception.

=item If it fails to create the record object, it throws a I<Koha::Exceptions::Metadata::Invalid> exception.

=back

=cut

sub record {
    my ($self) = @_;

    my $record;

    if ($self->format eq 'marcxml') {
        $record = eval { MARC::Record::new_from_xml( $self->metadata, 'utf-8', $self->schema ); };
        unless ($record) {
            Koha::Exceptions::Metadata::Invalid->throw(
                id     => $self->id,
                format => $self->format,
                schema => $self->schema
            );
        }
    } else {
        Koha::Exceptions::Metadata->throw(
            'Koha::Holdings::Metadata->record called on unhandled format: ' . $self->format );
    }

    return $record;
}

=head2 Internal methods

=head3 _type

=cut

sub _type {
    return 'HoldingsMetadata';
}

=head1 AUTHOR

Ere Maijala ere.maijala@helsinki.fi

=cut

1;




package Koha::Holdings::Metadatas;

# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Holdings::Metadata;

use base qw(Koha::Objects);

=head1 NAME

Koha::Holdings::Metadatas - Koha Holdings Metadata Object set class

=head1 API

=head2 Internal methods

=head3 _type

=cut

sub _type {
    return 'HoldingsMetadata';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Holdings::Metadata';
}

=head1 AUTHOR

Ere Maijala ere.maijala@helsinki.fi

=cut

1;




use C4::Reserves;
use Koha::Checkouts;
use Koha::CirculationRules;
use Koha::Holdings;
use Koha::Item::Transfer::Limits;
use Koha::Item::Transfers;
use Koha::Patrons;

    return Koha::Biblioitem->_new_from_dbic( $biblioitem_rs );
}

=head3 holding

my $holding = $item->holding;

Return the holdings record of this item

=cut

sub holding {
    my ( $self ) = @_;
    my $holding_rs = $self->_result->holding;
    return Koha::Holding->_new_from_dbic( $holding_rs );
}

=head3 checkout

my $checkout = $item->checkout;

    $self->set({
        biblionumber => $biblionumber,
        biblioitemnumber => $to_biblio->biblioitem->biblioitemnumber
    });

    my $schema = Koha::Database->new()->schema();


    # linktrackers
    my $linktrackers = $schema->resultset('Linktracker')->search({ itemnumber => $self->itemnumber });
    $linktrackers->update_all({ biblionumber => $biblionumber });

    # holdings
    my $holding = $self->holding;
    if ($holding) {
        # Check if there's a suitable holdings record in the new biblio.
        # This is not perfect, but at least we try.
        my $candidates = Koha::Holdings->search(
            {
                biblionumber     => $biblionumber,
                frameworkcode    => $holding->frameworkcode(),
                holdingbranch    => $holding->holdingbranch(),
                location         => $holding->location(),
                callnumber       => $holding->callnumber(),
                suppress         => $holding->suppress(),
                deleted_on       => undef
            }
        );
        my $newHolding = $candidates->next();
        if (!$newHolding) {
            # No existing holdings record, make a copy of the old one.
            $newHolding = Koha::Holding->new({
                biblionumber => $biblionumber,
                frameworkcode => $holding->frameworkcode()
            });
            $newHolding->set_marc({ record => $holding->metadata()->record() });
            $newHolding->store();
        }
        $self->set({
            holding_id => $newHolding->holding_id()
        });
    }

    $self->store();
}

=head2 Internal methods

Lines 69-76 sub GetRecords { Link Here

(-)a/Koha/OAI/Server/ListBase.pm (-2 / +8 lines)
69	if ($include_items) {	69	if ($include_items) {
70	$sql .= "	70	$sql .= "
71	OR biblionumber IN (SELECT biblionumber from deleteditems WHERE timestamp >= ? AND timestamp <= ?)	71	OR biblionumber IN (SELECT biblionumber from deleteditems WHERE timestamp >= ? AND timestamp <= ?)
		72	OR biblionumber IN (SELECT biblionumber from holdings WHERE timestamp >= ? AND timestamp <= ?)
72	";	73	";
73	push @bind_params, ($token->{'from_arg'}, $token->{'until_arg'});	74	push @bind_params, ($token->{'from_arg'}, $token->{'until_arg'}, $token->{'from_arg'}, $token->{'until_arg'});
74	if (!$deleted) {	75	if (!$deleted) {
75	$sql .= "	76	$sql .= "
76	OR biblionumber IN (SELECT biblionumber from items WHERE timestamp >= ? AND timestamp <= ?)	77	OR biblionumber IN (SELECT biblionumber from items WHERE timestamp >= ? AND timestamp <= ?)
Lines 106-111 sub GetRecords { Link Here
106	SELECT timestamp FROM deletedbiblio_metadata WHERE biblionumber = ?	107	SELECT timestamp FROM deletedbiblio_metadata WHERE biblionumber = ?
107	UNION	108	UNION
108	SELECT timestamp FROM deleteditems WHERE biblionumber = ?	109	SELECT timestamp FROM deleteditems WHERE biblionumber = ?
		110	UNION
		111	SELECT timestamp FROM holdings WHERE biblionumber = ?
109	) bis	112	) bis
110	";	113	";
111	} else {	114	} else {
Lines 117-122 sub GetRecords { Link Here
117	SELECT timestamp FROM deleteditems WHERE biblionumber = ?	120	SELECT timestamp FROM deleteditems WHERE biblionumber = ?
118	UNION	121	UNION
119	SELECT timestamp FROM items WHERE biblionumber = ?	122	SELECT timestamp FROM items WHERE biblionumber = ?
		123	UNION
		124	SELECT timestamp FROM holdings WHERE biblionumber = ?
120	) bi	125	) bi
121	";	126	";
122	}	127	}
Lines 139-145 sub GetRecords { Link Here
139	);	144	);
140	last STAGELOOP;	145	last STAGELOOP;
141	}	146	}
142	my @params = $deleted ? ( $biblionumber, $biblionumber ) : ( $biblionumber, $biblionumber, $biblionumber );	147	my @params = $deleted ? ( $biblionumber, $biblionumber, $biblionumber )
		148	: ( $biblionumber, $biblionumber, $biblionumber, $biblionumber );
143	$record_sth->execute( @params ) \|\| die( 'Could not execute statement: ' . $sth->errstr );	149	$record_sth->execute( @params ) \|\| die( 'Could not execute statement: ' . $sth->errstr );
144		150
145	my ($timestamp) = $record_sth->fetchrow;	151	my ($timestamp) = $record_sth->fetchrow;

Lines 93-98 mode. A configuration file koha-oai.conf can look like that: Link Here

(-)a/Koha/OAI/Server/Repository.pm (+1 lines)
93	xsl_file: /usr/local/koha/koha-tmpl/intranet-tmpl/xslt/UNIMARCslim2OAIDC.xsl	93	xsl_file: /usr/local/koha/koha-tmpl/intranet-tmpl/xslt/UNIMARCslim2OAIDC.xsl
94		94
95	Note the 'include_items' parameter which is the only mean to return item-level info.	95	Note the 'include_items' parameter which is the only mean to return item-level info.
		96	If summary holdings are enabled, 'include_items' includes their location information too.
96		97
97	=cut	98	=cut
98		99




    return $object;
}

=head3 Koha::Objects->find_or_new();

my $object = Koha::Objects->find_or_new( $attrs );

=cut

sub find_or_new {
    my ( $self, $params ) = @_;

    my $result = $self->_resultset->find_or_new($params);

    return unless $result;

    my $object = $self->object_class->_new_from_dbic($result);

    return $object;
}

=head3 Koha::Objects->search();

my @objects = Koha::Objects->search($params);




package Koha::Template::Plugin::Holdings;

# Copyright ByWater Solutions 2012
# Copyright BibLibre 2014
# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)

# 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 <http://www.gnu.org/licenses>.

use Modern::Perl;

use Template::Plugin;
use base qw( Template::Plugin );

use C4::Context;

use Koha::Holdings;

=head1 NAME

Koha::Template::Plugin::Holdings - TT Plugin for holdings

=head1 SYNOPSIS

[% USE Holdings %]

[% Holdings.GetLocation(holding) | html %]

=head1 ROUTINES

=head2 GetLocation

Get a location string for a holdings record

    [% Holdings.GetLocation(holding) | html %]

=cut

sub GetLocation {
    my ($self, $holding) = @_;
    my $opac = shift || 0;

    if (!$holding) {
        return '';
    }

    if (ref($holding) ne 'Koha::Holding') {
        $holding = Koha::Holdings->find($holding);
        if (!$holding) {
            return '';
        }
    }

    my @parts;

    if ($opac) {
        if (my $branch = $holding->holding_branch()) {
            push @parts, $branch->branchname();
        }
        if ($holding->location()) {
            my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $holding->location() });
            push @parts, $av->next()->opac_description() if $av->count;
        }
        push @parts, $holding->callnumber() if $holding->callnumber();
        return join(' - ', @parts);
    }

    push @parts, $holding->holding_id();
    push @parts, $holding->holdingbranch() if $holding->holdingbranch();
    push @parts, $holding->location() if $holding->location();
    push @parts, $holding->ccode() if $holding->ccode();
    push @parts, $holding->callnumber() if $holding->callnumber();
    return join(' ', @parts);
}

=head2 GetDetails

Get the Koha fields for a holdings record

    [% details = Holdings.GetDetails(holding) %]

=cut

sub GetDetails {
    my ($self, $holding) = @_;
    my $opac = shift || 0;

    if (!$holding) {
        return '';
    }

    if (ref($holding) ne 'Koha::Holding') {
        $holding = Koha::Holdings->find($holding);
        if (!$holding) {
            return '';
        }
    }

    my $holding_marc = $holding->metadata()->record();

    return Koha::Holding->marc_to_koha_fields({ record => $holding_marc });
}

1;

Lines 125-130 if ( $op eq 'add_form' ) { Link Here

(-)a/admin/marc_subfields_structure.pl (+5 lines)
125	while ( ( my $field ) = $sth2->fetchrow_array ) {	125	while ( ( my $field ) = $sth2->fetchrow_array ) {
126	push @kohafields, "items." . $field;	126	push @kohafields, "items." . $field;
127	}	127	}
		128	$sth2 = $dbh->prepare("SHOW COLUMNS from holdings");
		129	$sth2->execute;
		130	while ( ( my $field ) = $sth2->fetchrow_array ) {
		131	push @kohafields, "holdings." . $field;
		132	}
128		133
129	# build authorised value list	134	# build authorised value list
130	$sth2->finish;	135	$sth2->finish;

Lines 43-48 use C4::CourseReserves qw(GetItemCourseReservesInfo); Link Here

(-)a/catalogue/detail.pl (-5 / +13 lines)
43	use C4::Acquisition qw(GetOrdersByBiblionumber);	43	use C4::Acquisition qw(GetOrdersByBiblionumber);
44	use Koha::AuthorisedValues;	44	use Koha::AuthorisedValues;
45	use Koha::Biblios;	45	use Koha::Biblios;
		46	use Koha::Holdings;
46	use Koha::Items;	47	use Koha::Items;
47	use Koha::ItemTypes;	48	use Koha::ItemTypes;
48	use Koha::Patrons;	49	use Koha::Patrons;
Lines 231-236 foreach my $subscription (@subscriptions) { Link Here
231	push @subs, \%cell;	232	push @subs, \%cell;
232	}	233	}
233		234
		235	# Summary holdings
		236	my $summary_holdings;
		237	if (C4::Context->preference('SummaryHoldings')) {
		238	$summary_holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef });
		239	}
234		240
235	# Get acquisition details	241	# Get acquisition details
236	if ( C4::Context->preference('AcquisitionDetails') ) {	242	if ( C4::Context->preference('AcquisitionDetails') ) {
Lines 418-430 $template->param( Link Here
418	itemdata_stocknumber => $itemfields{stocknumber},	424	itemdata_stocknumber => $itemfields{stocknumber},
419	itemdata_publisheddate => $itemfields{publisheddate},	425	itemdata_publisheddate => $itemfields{publisheddate},
420	volinfo => $itemfields{enumchron},	426	volinfo => $itemfields{enumchron},
421	itemdata_itemnotes => $itemfields{itemnotes},	427	itemdata_itemnotes => $itemfields{itemnotes},
422	itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},	428	itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
423	z3950_search_params => C4::Search::z3950_search_args($dat),	429	z3950_search_params => C4::Search::z3950_search_args($dat),
424	hostrecords => $hostrecords,	430	hostrecords => $hostrecords,
425	analytics_flag => $analytics_flag,	431	analytics_flag => $analytics_flag,
426	C4::Search::enabled_staff_search_views,	432	C4::Search::enabled_staff_search_views,
427	materials => $materials_flag,	433	materials => $materials_flag,
		434	show_summary_holdings => C4::Context->preference('SummaryHoldings') ? 1 : 0,
		435	summary_holdings => $summary_holdings,
428	);	436	);
429		437
430	if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {	438	if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {

Lines 35-40 use C4::Biblio; Link Here

(-)a/catalogue/showmarc.pl (-2 / +7 lines)
35	use C4::ImportBatch;	35	use C4::ImportBatch;
36	use C4::XSLT ();	36	use C4::XSLT ();
37		37
		38	use Koha::Holdings;
		39
38	my $input= new CGI;	40	my $input= new CGI;
39	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	41	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
40	{	42	{
Lines 50-58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
50	my $biblionumber= $input->param('id');	52	my $biblionumber= $input->param('id');
51	my $importid= $input->param('importid');	53	my $importid= $input->param('importid');
52	my $view= $input->param('viewas')\|\|'';	54	my $view= $input->param('viewas')\|\|'';
		55	my $holding_id= $input->param('holding_id')\|\|'';
53		56
54	my $record;	57	my $record;
55	if ($importid) {	58	if ($holding_id) {
		59	$record = Koha::Holdings->find($holding_id)->metadata()->record();
		60	} elsif ($importid) {
56	$record = C4::ImportBatch::GetRecordFromImportBiblio( $importid, 'embed_items' );	61	$record = C4::ImportBatch::GetRecordFromImportBiblio( $importid, 'embed_items' );
57	}	62	}
58	else {	63	else {
Lines 64-70 if(!ref $record) { Link Here
64	}	69	}
65		70
66	if($view eq 'card' \|\| $view eq 'html') {	71	if($view eq 'card' \|\| $view eq 'html') {
67	my $xml = $importid ? $record->as_xml(): GetXmlBiblio($biblionumber);	72	my $xml = $record->as_xml();
68	my $xsl;	73	my $xsl;
69	if ( $view eq 'card' ){	74	if ( $view eq 'card' ){
70	$xsl = C4::Context->preference('marcflavour') eq 'UNIMARC'	75	$xsl = C4::Context->preference('marcflavour') eq 'UNIMARC'




#!/usr/bin/perl


# Copyright 2000-2002 Katipo Communications
# Copyright 2004-2010 BibLibre
# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
#
# 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 <http://www.gnu.org/licenses>.

# TODO: refactor to avoid duplication from addbiblio

use strict;
#use warnings; FIXME - Bug 2505
use CGI q(-utf8);
use C4::Output;
use C4::Auth;
use C4::Search;
use C4::Biblio;
use C4::Context;
use MARC::Record;
use C4::Log;
use C4::Koha;
use C4::ClassSource;
use C4::ImportBatch;
use C4::Charset;
use Koha::Biblios;
use Koha::BiblioFrameworks;
use Koha::DateUtils;
use C4::Matcher;

use Koha::ItemTypes;
use Koha::Libraries;

use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
use URI::Escape;

if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
    MARC::File::XML->default_record_format('UNIMARC');
}

our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950);

=head1 FUNCTIONS

=head2 build_authorized_values_list

=cut

sub build_authorized_values_list {
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;

    my @authorised_values;
    my %authorised_lib;

    # builds list, depending on authorised value...

    #---- branch
    if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
        my $libraries = Koha::Libraries->search_filtered({}, {order_by => ['branchname']});
        while ( my $l = $libraries->next ) {
            push @authorised_values, $l->branchcode;
            $authorised_lib{$l->branchcode} = $l->branchname;
        }
    }
    elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "LOC" ) {
        push @authorised_values, ""
          unless ( $tagslib->{$tag}->{$subfield}->{mandatory}
            && ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) );


        my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
        my $avs = Koha::AuthorisedValues->search(
            {
                branchcode => $branch_limit,
                category => $tagslib->{$tag}->{$subfield}->{authorised_value},
            },
            {
                order_by => [ 'category', 'lib', 'lib_opac' ],
            }
        );

        while ( my $av = $avs->next ) {
            push @authorised_values, $av->authorised_value;
            $authorised_lib{$av->authorised_value} = $av->lib;
        }
    }
    elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) {
        push @authorised_values, ""
          unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );

        my $class_sources = GetClassSources();

        my $default_source = C4::Context->preference("DefaultClassificationSource");

        foreach my $class_source (sort keys %$class_sources) {
            next unless $class_sources->{$class_source}->{'used'} or
                        ($value and $class_source eq $value) or
                        ($class_source eq $default_source);
            push @authorised_values, $class_source;
            $authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'};
        }
        $value = $default_source unless $value;
    }
    else {
        my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
        $authorised_values_sth->execute(
            $tagslib->{$tag}->{$subfield}->{authorised_value},
            $branch_limit ? $branch_limit : (),
        );

        push @authorised_values, ""
          unless ( $tagslib->{$tag}->{$subfield}->{mandatory}
            && ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) );

        while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) {
            push @authorised_values, $value;
            $authorised_lib{$value} = $lib;
        }
    }
    $authorised_values_sth->finish;
    return {
        type     => 'select',
        id       => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield,
        name     => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield,
        default  => $value,
        values   => \@authorised_values,
        labels   => \%authorised_lib,
    };

}

=head2 CreateKey

    Create a random value to set it into the input name

=cut

sub CreateKey {
    return int(rand(1000000));
}

=head2 create_input

 builds the <input ...> entry for a subfield.

=cut

sub create_input {
    my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi ) = @_;

    my $index_subfield = CreateKey(); # create a specific key for each subfield

    $value =~ s/"/&quot;/g;

    # if there is no value provided but a default value in parameters, get it
    if ( $value eq '' ) {
        $value = $tagslib->{$tag}->{$subfield}->{defaultvalue};

        # get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value
        my $today_dt = dt_from_string;
        my $year = $today_dt->strftime('%Y');
        my $month = $today_dt->strftime('%m');
        my $day = $today_dt->strftime('%d');
        $value =~ s/<<YYYY>>/$year/g;
        $value =~ s/<<MM>>/$month/g;
        $value =~ s/<<DD>>/$day/g;
        # And <<USER>> with surname (?)
        my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
        $value=~s/<<USER>>/$username/g;

    }
    my $dbh = C4::Context->dbh;

    # map '@' as "subfield" label for fixed fields
    # to something that's allowed in a div id.
    my $id_subfield = $subfield;
    $id_subfield = "00" if $id_subfield eq "@";

    my %subfield_data = (
        tag        => $tag,
        subfield   => $id_subfield,
        marc_lib       => $tagslib->{$tag}->{$subfield}->{lib},
        tag_mandatory  => $tagslib->{$tag}->{mandatory},
        mandatory      => $tagslib->{$tag}->{$subfield}->{mandatory},
        repeatable     => $tagslib->{$tag}->{$subfield}->{repeatable},
        kohafield      => $tagslib->{$tag}->{$subfield}->{kohafield},
        index          => $index_tag,
        id             => "tag_".$tag."_subfield_".$id_subfield."_".$index_tag."_".$index_subfield,
        value          => $value,
        maxlength      => $tagslib->{$tag}->{$subfield}->{maxlength},
        random         => CreateKey(),
    );

    if(exists $mandatory_z3950->{$tag.$subfield}){
        $subfield_data{z3950_mandatory} = $mandatory_z3950->{$tag.$subfield};
    }
    # Subfield is hidden depending of hidden and mandatory flag, and is always
    # shown if it contains anything or if its field is mandatory.
    my $tdef = $tagslib->{$tag};
    $subfield_data{visibility} = "display:none;"
        if $tdef->{$subfield}->{hidden} % 2 == 1 &&
           $value eq '' &&
           !$tdef->{$subfield}->{mandatory} &&
           !$tdef->{mandatory};
    # expand all subfields of 773 if there is a host item provided in the input
    $subfield_data{visibility} ="" if ($tag eq 773 and $cgi->param('hostitemnumber'));

    # it's an authorised field
    if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) {
        $subfield_data{marc_value} =
          build_authorized_values_list( $tag, $subfield, $value, $dbh,
            $authorised_values_sth,$index_tag,$index_subfield );

    # it's a subfield $9 linking to an authority record - see bug 2206
    }
    elsif ($subfield eq "9" and
           exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
           defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
           $tagslib->{$tag}->{'a'}->{authtypecode} ne '') {

        $subfield_data{marc_value} = {
            type      => 'text',
            id        => $subfield_data{id},
            name      => $subfield_data{id},
            value     => $value,
            size      => 5,
            maxlength => $subfield_data{maxlength},
            readonly  => 1,
        };

    # it's a thesaurus / authority field
    }
    elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) {
        # when authorities auto-creation is allowed, do not set readonly
        my $is_readonly = !C4::Context->preference("BiblioAddsAuthorities");

        $subfield_data{marc_value} = {
            type      => 'text',
            id        => $subfield_data{id},
            name      => $subfield_data{id},
            value     => $value,
            size      => 67,
            maxlength => $subfield_data{maxlength},
            readonly  => ($is_readonly) ? 1 : 0,
            authtype  => $tagslib->{$tag}->{$subfield}->{authtypecode},
        };

    # it's a plugin field
    } elsif ( $tagslib->{$tag}->{$subfield}->{'value_builder'} ) {
        require Koha::FrameworkPlugin;
        my $plugin = Koha::FrameworkPlugin->new( {
            name => $tagslib->{$tag}->{$subfield}->{'value_builder'},
        });
        my $pars= { dbh => $dbh, record => $rec, tagslib => $tagslib,
            id => $subfield_data{id}, tabloop => $tabloop };
        $plugin->build( $pars );
        if( !$plugin->errstr ) {
            $subfield_data{marc_value} = {
                type           => 'text_complex',
                id             => $subfield_data{id},
                name           => $subfield_data{id},
                value          => $value,
                size           => 67,
                maxlength      => $subfield_data{maxlength},
                javascript     => $plugin->javascript,
                noclick        => $plugin->noclick,
            };
        } else {
            warn $plugin->errstr;
            # supply default input form
            $subfield_data{marc_value} = {
                type      => 'text',
                id        => $subfield_data{id},
                name      => $subfield_data{id},
                value     => $value,
                size      => 67,
                maxlength => $subfield_data{maxlength},
                readonly  => 0,
            };
        }

    # it's an hidden field
    } elsif ( $tag eq '' ) {
        $subfield_data{marc_value} = {
            type      => 'hidden',
            id        => $subfield_data{id},
            name      => $subfield_data{id},
            value     => $value,
            size      => 67,
            maxlength => $subfield_data{maxlength},
        };

    }
    else {
        # it's a standard field
        if (
            length($value) > 100
            or
            ( C4::Context->preference("marcflavour") eq "UNIMARC" && $tag >= 300
                and $tag < 400 && $subfield eq 'a' )
            or (    $tag >= 500
                and $tag < 600
                && C4::Context->preference("marcflavour") eq "MARC21" )
          )
        {
            $subfield_data{marc_value} = {
                type      => 'textarea',
                id        => $subfield_data{id},
                name      => $subfield_data{id},
                value     => $value,
            };

        }
        else {
            $subfield_data{marc_value} = {
                type      => 'text',
                id        => $subfield_data{id},
                name      => $subfield_data{id},
                value     => $value,
                size      => 67,
                maxlength => $subfield_data{maxlength},
                readonly  => 0,
            };

        }
    }
    $subfield_data{'index_subfield'} = $index_subfield;
    return \%subfield_data;
}


=head2 format_indicator

Translate indicator value for output form - specifically, map
indicator = ' ' to ''.  This is for the convenience of a cataloger
using a mouse to select an indicator input.

=cut

sub format_indicator {
    my $ind_value = shift;
    return '' if not defined $ind_value;
    return '' if $ind_value eq ' ';
    return $ind_value;
}

sub build_tabs {
    my ( $template, $record, $dbh, $encoding,$input ) = @_;

    # fill arrays
    my @loop_data = ();
    my $tag;

    my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
    my $query = "SELECT authorised_value, lib
                FROM authorised_values";
    $query .= qq{ LEFT JOIN authorised_values_branches ON ( id = av_id )} if $branch_limit;
    $query .= " WHERE category = ?";
    $query .= " AND ( branchcode = ? OR branchcode IS NULL )" if $branch_limit;
    $query .= " GROUP BY lib ORDER BY lib, lib_opac";
    my $authorised_values_sth = $dbh->prepare( $query );

    # in this array, we will push all the 10 tabs
    # to avoid having 10 tabs in the template : they will all be in the same BIG_LOOP
    my @BIG_LOOP;
    my %seen;
    my @tab_data; # all tags to display

    foreach my $used ( @$usedTagsLib ){
        push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}};
        $seen{$used->{tagfield}}++;
    }

    my $max_num_tab=-1;
    foreach(@$usedTagsLib){
        if($_->{tab} > -1 && $_->{tab} >= $max_num_tab && $_->{tagfield} != '995'){ # FIXME : MARC21 ?
            $max_num_tab = $_->{tab};
        }
    }
    if($max_num_tab >= 9){
        $max_num_tab = 9;
    }
    # loop through each tab 0 through 9
    for ( my $tabloop = 0 ; $tabloop <= $max_num_tab ; $tabloop++ ) {
        my @loop_data = (); #innerloop in the template.
        my $i = 0;
        foreach my $tag (@tab_data) {
            $i++;
            next if ! $tag;
            my ($indicator1, $indicator2);
            my $index_tag = CreateKey;

            # if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab.
            # if MARC::Record is empty => use tab as master loop.
            if ( $record ne -1 && ( $record->field($tag) || $tag eq '000' ) ) {
                my @fields;
        if ( $tag ne '000' ) {
                    @fields = $record->field($tag);
        }
        else {
           push @fields, $record->leader(); # if tag == 000
        }
        # loop through each field
                foreach my $field (@fields) {

                    my @subfields_data;
                    if ( $tag < 10 ) {
                        my ( $value, $subfield );
                        if ( $tag ne '000' ) {
                            $value    = $field->data();
                            $subfield = "@";
                        }
                        else {
                            $value    = $field;
                            $subfield = '@';
                        }
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
                        next
                          if ( $tagslib->{$tag}->{$subfield}->{kohafield} eq
                            'biblio.biblionumber' );
                        push(
                            @subfields_data,
                            &create_input(
                                $tag, $subfield, $value, $index_tag, $tabloop, $record,
                                $authorised_values_sth,$input
                            )
                        );
                    }
                    else {
                        my @subfields = $field->subfields();
                        foreach my $subfieldcount ( 0 .. $#subfields ) {
                            my $subfield = $subfields[$subfieldcount][0];
                            my $value    = $subfields[$subfieldcount][1];
                            next if ( length $subfield != 1 );
                            next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
                            push(
                                @subfields_data,
                                &create_input(
                                    $tag, $subfield, $value, $index_tag, $tabloop,
                                    $record, $authorised_values_sth,$input
                                )
                            );
                        }
                    }

                    # now, loop again to add parameter subfield that are not in the MARC::Record
                    foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) )
                    {
                        next if ( length $subfield != 1 );
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
                        next if ( $tag < 10 );
                        next
                          if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
                            or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
                            and not ( $subfield eq "9" and
                                      exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                      defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                      $tagslib->{$tag}->{'a'}->{authtypecode} ne ""
                                    )
                          ;    #check for visibility flag
                               # if subfield is $9 in a field whose $a is authority-controlled,
                               # always include in the form regardless of the hidden setting - bug 2206
                        next if ( defined( $field->subfield($subfield) ) );
                        push(
                            @subfields_data,
                            &create_input(
                                $tag, $subfield, '', $index_tag, $tabloop, $record,
                                $authorised_values_sth,$input
                            )
                        );
                    }
                    if ( $#subfields_data >= 0 ) {
                        # build the tag entry.
                        # note that the random() field is mandatory. Otherwise, on repeated fields, you'll
                        # have twice the same "name" value, and cgi->param() will return only one, making
                        # all subfields to be merged in a single field.
                        my %tag_data = (
                            tag           => $tag,
                            index         => $index_tag,
                            tag_lib       => $tagslib->{$tag}->{lib},
                            repeatable       => $tagslib->{$tag}->{repeatable},
                            mandatory       => $tagslib->{$tag}->{mandatory},
                            subfield_loop => \@subfields_data,
                            fixedfield    => $tag < 10?1:0,
                            random        => CreateKey,
                        );
                        if ($tag >= 10){ # no indicator for 00x tags
                           $tag_data{indicator1} = format_indicator($field->indicator(1)),
                           $tag_data{indicator2} = format_indicator($field->indicator(2)),
                        }
                        push( @loop_data, \%tag_data );
                    }
                 } # foreach $field end

            # if breeding is empty
            }
            else {
                my @subfields_data;
                foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) {
                    next if ( length $subfield != 1 );
                    next
                      if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
                        or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
                      and not ( $subfield eq "9" and
                                exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                $tagslib->{$tag}->{'a'}->{authtypecode} ne ""
                              )
                      ;    #check for visibility flag
                           # if subfield is $9 in a field whose $a is authority-controlled,
                           # always include in the form regardless of the hidden setting - bug 2206
                    next
                      if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
                    push(
                        @subfields_data,
                        &create_input(
                            $tag, $subfield, '', $index_tag, $tabloop, $record,
                            $authorised_values_sth,$input
                        )
                    );
                }
                if ( $#subfields_data >= 0 ) {
                    my %tag_data = (
                        tag              => $tag,
                        index            => $index_tag,
                        tag_lib          => $tagslib->{$tag}->{lib},
                        repeatable       => $tagslib->{$tag}->{repeatable},
                        mandatory       => $tagslib->{$tag}->{mandatory},
                        indicator1       => $indicator1,
                        indicator2       => $indicator2,
                        subfield_loop    => \@subfields_data,
                        tagfirstsubfield => $subfields_data[0],
                        fixedfield       => $tag < 10?1:0,
                    );

                    push @loop_data, \%tag_data ;
                }
            }
        }
        if ( $#loop_data >= 0 ) {
            push @BIG_LOOP, {
                number    => $tabloop,
                innerloop => \@loop_data,
            };
        }
    }
    $authorised_values_sth->finish;
    $template->param( BIG_LOOP => \@BIG_LOOP );
}

##########################
#          MAIN
##########################
my $input = new CGI;
my $error = $input->param('error');
my $biblionumber  = $input->param('biblionumber');
my $holding_id    = $input->param('holding_id'); # if holding_id exists, it's a modification, not a new holding.
my $op            = $input->param('op');
my $mode          = $input->param('mode');
my $frameworkcode = $input->param('frameworkcode');
my $redirect      = $input->param('redirect');
my $searchid      = $input->param('searchid');
my $userflags     = 'edit_items';
my $changed_framework = $input->param('changed_framework');

my ($template, $loggedinuser, $cookie) = get_template_and_user(
    {
        template_name   => "cataloguing/addholding.tt",
        query           => $input,
        type            => "intranet",
        authnotrequired => 0,
        flagsrequired   => { editcatalogue => $userflags },
    }
);

my $record = $holding_id ? Koha::Holdings->find($holding_id) : Koha::Holding->new();

$frameworkcode = 'HLD' if ($frameworkcode eq '');

# TODO: support in advanced editor?
#if ( $op ne "delete" && C4::Context->preference('EnableAdvancedCatalogingEditor') && $input->cookie( 'catalogue_editor_' . $loggedinuser ) eq 'advanced' ) {
#    print $input->redirect( '/cgi-bin/koha/cataloguing/editor.pl#catalog/' . $biblionumber . '/holdings/' . ( $holding_id ? $holding_id : '' ) );
#    exit;
#}

# ++ Global
$tagslib         = &GetMarcStructure( 1, $frameworkcode );
$usedTagsLib     = &GetUsedMarcStructure( $frameworkcode );
# -- Global

my ( $biblionumbertagfield, $biblionumbertagsubfield ) =
    &GetMarcFromKohaField( "biblio.biblionumber", $frameworkcode );

if ($op eq 'add') {
    $template->param(
        biblionumberdata => $biblionumber,
    );
    # Convert HTML input to MARC
    my @params = $input->multi_param();
    my $marc = TransformHtmlToMarc( $input, 1 );

    $record->frameworkcode($frameworkcode);
    $record->biblionumber($biblionumber);
    $record->set_marc({ record => $marc });
    $record->store();

    if ($redirect eq 'items' || ($mode ne 'popup' && !$holding_id && $redirect ne 'view' && $redirect ne 'just_save')) {
        print $input->redirect("/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber&searchid=$searchid");
        exit;
    } elsif ($holding_id && $redirect eq 'view') {
        print $input->redirect("/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber&searchid=$searchid");
        exit;
    } elsif ($redirect eq 'just_save') {
        my $tab = $input->param('current_tab');
        print $input->redirect("/cgi-bin/koha/cataloguing/addholding.pl?biblionumber=$biblionumber&holding_id=$holding_id&framework=$frameworkcode&tab=$tab&searchid=$searchid");
    } else {
        $template->param(
            biblionumber => $biblionumber,
            holding_id   => $holding_id,
            done         => 1,
            popup        => $mode,
        );
        output_html_with_http_headers($input, $cookie, $template->output);
        exit;
    }
} elsif ($op eq 'delete') {
    if ($record->items()->count()) {
        $template->param(
            error_items_exist => 1
        );
    } elsif (!$record->delete()) {
        $template->param(
            error_delete_failed => 1
        );
    } else {
        print $input->redirect("/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber&searchid=$searchid");
        exit;
    }
}

#----------------------------------------------------------------------------
# If we're in a duplication case, we have to clear the holding_id
# as we'll save the holding as a new one.
$template->param(
    holding_iddata => $holding_id,
    op             => $op,
);
if ($op eq 'duplicate') {
    $holding_id = '';
}

my $marc;
if ($changed_framework eq 'changed') {
    $marc = TransformHtmlToMarc($input, 1);
} else {
    my $metadata = $record->metadata();
    $marc = $metadata ? $metadata->record() : -1;
}

if (!$biblionumber) {
    # we must have a holdings record if we don't have a biblionumber
    $biblionumber = $record->biblionumber;
}
my $biblio = Koha::Biblios->find($biblionumber);
build_tabs($template, $marc, C4::Context->dbh, '', $input);
$template->param(
    holding_id               => $holding_id,
    biblionumber             => $biblionumber,
    biblionumbertagfield     => $biblionumbertagfield,
    biblionumbertagsubfield  => $biblionumbertagsubfield,
    title                    => $biblio->title,
    author                   => $biblio->author
);

$template->param(
    frameworks => Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] }),
    popup => $mode,
    frameworkcode => $frameworkcode,
    itemtype => $frameworkcode,
    borrowernumber => $loggedinuser,
    tab => scalar $input->param('tab')
);
$template->{'VARS'}->{'searchid'} = $searchid;

output_html_with_http_headers($input, $cookie, $template->output);




use C4::Koha;
use C4::ClassSource;
use Koha::DateUtils;
use Koha::Holdings;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Libraries;

        
                  #---- "true" authorised value
            }
            elsif ( $subfieldlib->{authorised_value} eq "holdings" ) {
                push @authorised_values, "" unless ( $subfieldlib->{mandatory} );
                my $holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef }, { order_by => ['holdingbranch'] })->unblessed;
                for my $holding ( @$holdings ) {
                    push @authorised_values, $holding->{holding_id};
                    $authorised_lib{$holding->{holding_id}} = $holding->{holding_id} . ' ' . $holding->{holdingbranch} . ' ' . $holding->{location} . ' ' . $holding->{ccode} . ' ' . $holding->{callnumber};
                }
                my $input = new CGI;
                $value = $input->param('holding_id') unless ($value);
            }
            else {
                  push @authorised_values, qq{};
                  my $av = GetAuthorisedValues( $subfieldlib->{authorised_value} );

Lines 90-96 if ($merge) { Link Here

(-)a/cataloguing/merge.pl (-2 / +2 lines)
90	my $biblio = Koha::Biblios->find($ref_biblionumber);	90	my $biblio = Koha::Biblios->find($ref_biblionumber);
91	foreach my $biblionumber (@biblionumbers) {	91	foreach my $biblionumber (@biblionumbers) {
92	my $from_biblio = Koha::Biblios->find($biblionumber);	92	my $from_biblio = Koha::Biblios->find($biblionumber);
93	$biblio->adopt_items_from_biblio($from_biblio);	93	$biblio->adopt_holdings_from_biblio($from_biblio);
94	}	94	}
95		95
96	my $sth_subscription = $dbh->prepare("	96	my $sth_subscription = $dbh->prepare("
Lines 160-166 if ($merge) { Link Here
160	# Moving article requests	160	# Moving article requests
161	$sth_articlerequests->execute($ref_biblionumber, $biblionumber);	161	$sth_articlerequests->execute($ref_biblionumber, $biblionumber);
162		162
163	# Moving orders (orders linked to items of frombiblio have already been moved by adopt_items_from_biblio)	163	# Moving orders (orders linked to items of frombiblio have already been moved by adopt_holdings_from_biblio)
164	my @allorders = GetOrdersByBiblionumber($biblionumber);	164	my @allorders = GetOrdersByBiblionumber($biblionumber);
165	foreach my $myorder (@allorders) {	165	foreach my $myorder (@allorders) {
166	$myorder->{'biblionumber'} = $ref_biblionumber;	166	$myorder->{'biblionumber'} = $ref_biblionumber;




#!/usr/bin/perl

# Copyright 2000-2002 Katipo Communications
# Copyright 2017-2018 University of Helsinki (The National Library Of Finland)
#
# 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 <http://www.gnu.org/licenses>.

use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;

use C4::Search;
use C4::Output;

use XML::LibXML;
use Koha::Util::FrameworkPlugin qw|date_entered|;

my $builder = sub {
    my ( $params ) = @_;

    my $lang = C4::Context->preference('DefaultLanguageField008' );
    $lang = "eng" unless $lang;
    $lang = pack("A3", $lang);

    my $function_name = $params->{id};
    my $dateentered = date_entered();
    my $res           = "
<script type=\"text/javascript\">
//<![CDATA[

function Focus$function_name(event) {
    if ( document.getElementById(event.data.id).value ) {
    }
    else {
        document.getElementById(event.data.id).value='$dateentered' + '0u    0   4   uu${lang}0$dateentered';
    }
    return 1;
}

function Click$function_name(event) {
    defaultvalue=document.getElementById(event.data.id).value;
    //Retrieve full leader string and pass it to the 008 tag editor
    var leader_value = \$(\"input[id^='tag_000']\").val();
    var leader_parameter = \"\";
    if (leader_value){
        //Only add the parameter to the URL if there is a value to add
        leader_parameter = \"&leader=\"+leader_value;
    }
    newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_field_008_holdings.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue+leader_parameter,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');

}
//]]>
</script>
";

    return $res;
};

my $launcher = sub {
    my ( $params ) = @_;
    my $input = $params->{cgi};
    my $index= $input->param('index');
    my $result= $input->param('result');

    my $lang = C4::Context->preference('DefaultLanguageField008' );
    $lang = "eng" unless $lang;
    $lang = pack("A3", $lang);

    my ($template, $loggedinuser, $cookie)
    = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_008_holdings.tt",
                 query => $input,
                 type => "intranet",
                 authnotrequired => 0,
                 flagsrequired => {editcatalogue => '*'},
                 debug => 1,
                 });
    my $dateentered = date_entered();
    $result = $dateentered + '0u    0   0   uu' + $lang + '0' + $dateentered unless $result;
    my @f;
    for(0,6..8,12..17,20..22,25,26) {
        my $len = 1;
        if ($_ == 0 || $_ == 26) {
            $len = 6;
        } elsif ($_ == 8) {
            $len = 4;
        } elsif ($_ == 17 || $_ == 22) {
            $len = 3;
        }
        warn ($_ . ': ' . $len);
        $f[$_]=substr($result,$_,$len);
    }
    $template->param(index => $index);

    $f[0]= $dateentered if !$f[0] || $f[0]=~/\s/;
    $template->param(f1 => $f[0]);

    for(6..8,12..17,20..22,25,26) {
        $template->param(
            "f$_" => $f[$_],
            "f$_".($f[$_] eq '|'? 'pipe': $f[$_]) => $f[$_],
        );
    }
    output_html_with_http_headers $input, $cookie, $template->output;
};

return { builder => $builder, launcher => $launcher };




#!/usr/bin/perl

# Copyright 2000-2002 Katipo Communications
# Copyright 2017-2018 University of Helsinki (The National Library Of Finland)
#
# 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 <http://www.gnu.org/licenses>.

use Modern::Perl;
use CGI qw ( -utf8 );

use C4::Auth;
use C4::Context;
use C4::Output;

my $builder = sub {
    my ( $params ) = @_;
    my $function_name = $params->{id};
    my $res           = "
<script type=\"text/javascript\">
//<![CDATA[

function Focus$function_name(event) {
    if(!document.getElementById(event.data.id).value){
        document.getElementById(event.data.id).value = '     nu  a22     ui 4500';
    }
}

function Click$function_name(event) {
    defaultvalue=document.getElementById(event.data.id).value;
    newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader_holdings.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
}

//]]>
</script>
";

    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_holdings.tt",
            query           => $input,
            type            => "intranet",
            authnotrequired => 0,
            flagsrequired   => { editcatalogue => '*' },
            debug           => 1,
        }
    );
    $result = "     nu  a22     ui 4500" unless $result;
    my $f5    = substr( $result, 5,  1 );
    my $f6    = substr( $result, 6,  1 );
    my $f17   = substr( $result, 17, 1 );
    my $f18   = substr( $result, 18, 1 );
    $template->param(
        index     => $index,
        "f5$f5"   => 1,
        "f6$f6"   => 1,
        "f17$f17" => 1,
        "f18$f18" => 1,
    );
    output_html_with_http_headers $input, $cookie, $template->output;
};

return { builder => $builder, launcher => $launcher };




$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
    if( !TableExists( 'holdings' ) ) {
        $dbh->do(q{
            CREATE TABLE `holdings` ( -- table that stores summary holdings information
                `holding_id` int(11) NOT NULL auto_increment, -- unique identifier assigned to each holdings record
                `biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this record to the right bib record
                `frameworkcode` varchar(4) NOT NULL default '', -- foreign key from the biblio_framework table to identify which framework was used in cataloging this record
                `holdingbranch` varchar(10) default NULL, -- foreign key from the branches table for the library that owns this record (MARC21 852$a)
                `location` varchar(80) default NULL, -- authorized value for the shelving location for this record (MARC21 852$b)
                `ccode` varchar(80) default NULL, -- authorized value for the collection code associated with this item (MARC21 852$g)
                `callnumber` varchar(255) default NULL, -- call number (852$h+$i in MARC21)
                `suppress` tinyint(1) default NULL, -- Boolean indicating whether the record is suppressed in OPAC
                `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP, -- date and time this record was last touched
                `datecreated` DATE NOT NULL, -- the date this record was added to Koha
                `deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
                PRIMARY KEY  (`holding_id`),
                KEY `hldnoidx` (`holding_id`),
                KEY `hldbibnoidx` (`biblionumber`),
                CONSTRAINT `holdings_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
                CONSTRAINT `holdings_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE
            ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
        });
    }
    if( !TableExists( 'holdings_metadata' ) ) {
        $dbh->do(q{
            CREATE TABLE `holdings_metadata` (
                `id` INT(11) NOT NULL AUTO_INCREMENT,
                `holding_id` INT(11) NOT NULL,
                `format` VARCHAR(16) NOT NULL,
                `schema` VARCHAR(16) NOT NULL,
                `metadata` LONGTEXT NOT NULL,
                `deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
                PRIMARY KEY(id),
                UNIQUE KEY `holdings_metadata_uniq_key` (`holding_id`,`format`,`schema`),
                KEY `hldnoidx` (`holding_id`),
                CONSTRAINT `holdings_metadata_fk_1` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE
            ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
        });
    }

    if( !column_exists( 'items', 'holding_id' ) ) {
        $dbh->do(q{
            ALTER TABLE `items` ADD COLUMN `holding_id` int(11) default NULL;
        });
        $dbh->do(q{
            ALTER TABLE `items` ADD CONSTRAINT `items_ibfk_5` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE;
        });
        $dbh->do(q{
            ALTER TABLE `items` ADD KEY `hldid_idx` (`holding_id`);
        });

        $dbh->do(q{
            ALTER TABLE `deleteditems` ADD COLUMN `holding_id` int(11) default NULL;
        });
    }

    $dbh->do(q{
        INSERT IGNORE INTO authorised_value_categories( category_name ) VALUES ('holdings');
    });

    $dbh->do(q{
        INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
            ('SummaryHoldings', '0', NULL, 'If ON, enables support for holdings records.', 'YesNo');
    });

    $dbh->do(q{
        INSERT IGNORE INTO `biblio_framework` VALUES ('HLD', 'Default holdings framework');
    });
    $dbh->do(q{
        INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
                ('999', 'SYSTEM CONTROL NUMBERS (KOHA)', 'SYSTEM CONTROL NUMBERS (KOHA)', 1, 0, '', 'HLD');
    });

    $dbh->do(q{
        INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
                ('999', 'c', 'Koha biblionumber', 'Koha biblionumber', 0, 0, 'biblio.biblionumber', -1, NULL, NULL, '', NULL, -5, 'HLD', '', '', NULL),
                ('999', 'e', 'Koha holding_id', 'Koha holding_id', 0, 0, 'holdings.holding_id', -1, NULL, NULL, '', NULL, -5, 'HLD', '', '', NULL);
    });


    $dbh->do(q{
        INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
                ('942', 'n', 'Suppress in OPAC', 'Suppress in OPAC', 0, 0, 'holdings.suppress', 9, '', '', '', 0, 0, 'HLD', '', '', NULL);
    });

    $dbh->do(q{
        INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
                ('000', 'LEADER', 'LEADER', 0, 1, '', 'HLD'),
                ('001', 'CONTROL NUMBER', 'CONTROL NUMBER', 0, 0, '', 'HLD'),
                ('003', 'CONTROL NUMBER IDENTIFIER', 'CONTROL NUMBER IDENTIFIER', 0, 1, '', 'HLD'),
                ('005', 'DATE AND TIME OF LATEST TRANSACTION', 'DATE AND TIME OF LATEST TRANSACTION', 0, 1, '', 'HLD'),
                ('006', 'FIXED-LENGTH DATA ELEMENTS--ADDITIONAL MATERIAL CHARACTERISTICS', 'FIXED-LENGTH DATA ELEMENTS--ADDITIONAL MATERIAL CHARACTERISTICS', 1, 0, '', 'HLD'),
                ('007', 'PHYSICAL DESCRIPTION FIXED FIELD--GENERAL INFORMATION', 'PHYSICAL DESCRIPTION FIXED FIELD--GENERAL INFORMATION', 1, 0, '', 'HLD'),
                ('008', 'FIXED-LENGTH DATA ELEMENTS--GENERAL INFORMATION', 'FIXED-LENGTH DATA ELEMENTS--GENERAL INFORMATION', 0, 1, '', 'HLD');
    });

    $dbh->do(q{
        INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
                ('010', 'LIBRARY OF CONGRESS CONTROL NUMBER', 'LIBRARY OF CONGRESS CONTROL NUMBER', 0, 0, '', 'HLD'),
                ('014', 'LINKAGE NUMBER', 'LINKAGE NUMBER', 1, 0, '', 'HLD'),
                ('016', 'NATIONAL BIBLIOGRAPHIC AGENCY CONTROL NUMBER', 'NATIONAL BIBLIOGRAPHIC AGENCY CONTROL NUMBER', 1, 0, '', 'HLD'),
                ('017', 'COPYRIGHT OR LEGAL DEPOSIT NUMBER', 'COPYRIGHT OR LEGAL DEPOSIT NUMBER', 1, 0, '', 'HLD'),
                ('020', 'INTERNATIONAL STANDARD BOOK NUMBER', 'INTERNATIONAL STANDARD BOOK NUMBER', 1, 0, NULL, 'HLD'),
                ('022', 'INTERNATIONAL STANDARD SERIAL NUMBER', 'INTERNATIONAL STANDARD SERIAL NUMBER', 1, 0, NULL, 'HLD'),
                ('024', 'OTHER STANDARD IDENTIFIER', 'OTHER STANDARD IDENTIFIER', 1, 0, NULL, 'HLD'),
                ('027', 'STANDARD TECHNICAL REPORT NUMBER', 'STANDARD TECHNICAL REPORT NUMBER', 1, 0, '', 'HLD'),
                ('030', 'CODEN DESIGNATION', 'CODEN DESIGNATION', 1, 0, '', 'HLD'),
                ('035', 'SYSTEM CONTROL NUMBER', 'SYSTEM CONTROL NUMBER', 1, 0, NULL, 'HLD'),
                ('040', 'CATALOGING SOURCE', 'CATALOGING SOURCE', 0, 1, NULL, 'HLD'),
                ('066', 'CHARACTER SETS PRESENT', 'CHARACTER SETS PRESENT', 0, 0, NULL, 'HLD'),
                ('337', 'MEDIA TYPE', 'MEDIA TYPE', 1, 0, NULL, 'HLD'),
                ('338', 'CARRIER TYPE', 'CARRIER TYPE', 1, 0, NULL, 'HLD'),
                ('347', 'DIGITAL FILE CHARACTERISTICS', 'DIGITAL FILE CHARACTERISTICS', 1, 0, NULL, 'HLD'),
                ('506', 'RESTRICTIONS ON ACCESS NOTE', 'RESTRICTIONS ON ACCESS NOTE', 1, 0, NULL, 'HLD'),
                ('538', 'SYSTEM DETAILS NOTE', 'SYSTEM DETAILS NOTE', 1, 0, NULL, 'HLD'),
                ('541', 'IMMEDIATE SOURCE OF ACQUISITION NOTE', 'IMMEDIATE SOURCE OF ACQUISITION NOTE', 1, 0, NULL, 'HLD'),
                ('561', 'OWNERSHIP AND CUSTODIAL HISTORY', 'OWNERSHIP AND CUSTODIAL HISTORY', 1, 0, NULL, 'HLD'),
                ('562', 'COPY AND VERSION IDENTIFICATION NOTE', 'COPY AND VERSION IDENTIFICATION NOTE', 1, 0, NULL, 'HLD'),
                ('563', 'BINDING INFORMATION', 'BINDING INFORMATION', 1, 0, NULL, 'HLD'),
                ('583', 'ACTION NOTE', 'ACTION NOTE', 1, 0, NULL, 'HLD'),
                ('842', 'TEXTUAL PHYSICAL FORM DESIGNATOR', 'TEXTUAL PHYSICAL FORM DESIGNATOR', 0, 0, NULL, 'HLD'),
                ('843', 'REPRODUCTION NOTE', 'REPRODUCTION NOTE', 1, 0, NULL, 'HLD'),
                ('844', 'NAME OF UNIT', 'NAME OF UNIT', 0, 0, NULL, 'HLD'),
                ('845', 'TERMS GOVERNING USE AND REPRODUCTION NOTE', 'TERMS GOVERNING USE AND REPRODUCTION NOTE', 1, 0, NULL, 'HLD'),
                ('850', 'HOLDING INSTITUTION', 'HOLDING INSTITUTION', 1, 0, NULL, 'HLD'),
                ('852', 'LOCATION', 'LOCATION', 1, 0, NULL, 'HLD'),
                ('853', 'CAPTIONS AND PATTERN--BASIC BIBLIOGRAPHIC UNIT', 'CAPTIONS AND PATTERN--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
                ('854', 'CAPTIONS AND PATTERN--SUPPLEMENTARY MATERIAL', 'CAPTIONS AND PATTERN--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
                ('855', 'CAPTIONS AND PATTERN--INDEXES', 'CAPTIONS AND PATTERN--INDEXES', 1, 0, NULL, 'HLD'),
                ('856', 'ELECTRONIC LOCATION AND ACCESS', 'ELECTRONIC LOCATION AND ACCESS', 1, 0, NULL, 'HLD'),
                ('863', 'ENUMERATION AND CHRONOLOGY--BASIC BIBLIOGRAPHIC UNIT', 'ENUMERATION AND CHRONOLOGY--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
                ('864', 'ENUMERATION AND CHRONOLOGY--SUPPLEMENTARY MATERIAL', 'ENUMERATION AND CHRONOLOGY--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
                ('865', 'ENUMERATION AND CHRONOLOGY--INDEXES', 'ENUMERATION AND CHRONOLOGY--INDEXES', 1, 0, NULL, 'HLD'),
                ('866', 'TEXTUAL HOLDINGS--BASIC BIBLIOGRAPHIC UNIT', 'TEXTUAL HOLDINGS--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
                ('867', 'TEXTUAL HOLDINGS--SUPPLEMENTARY MATERIAL', 'TEXTUAL HOLDINGS--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
                ('868', 'TEXTUAL HOLDINGS--INDEXES', 'TEXTUAL HOLDINGS--INDEXES', 1, 0, NULL, 'HLD'),
                ('876', 'ITEM INFORMATION--BASIC BIBLIOGRAPHIC UNIT', 'ITEM INFORMATION--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
                ('877', 'ITEM INFORMATION--SUPPLEMENTARY MATERIAL', 'ITEM INFORMATION--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
                ('878', 'ITEM INFORMATION--INDEXES', 'ITEM INFORMATION--INDEXES', 1, 0, NULL, 'HLD');
    });

    $dbh->do(q{
        INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
                ('000', '@', 'fixed length control field', 'fixed length control field', 0, 1, '', 0, '', '', 'marc21_leader_holdings.pl', 0, 0, 'HLD', '', '', NULL),
                ('001', '@', 'control field', 'control field', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('003', '@', 'control field', 'control field', 0, 1, '', 0, '', '', 'marc21_orgcode.pl', 0, 0, 'HLD', '', '', NULL),
                ('005', '@', 'control field', 'control field', 0, 1, '', 0, '', '', 'marc21_field_005.pl', 0, 0, 'HLD', '', '', NULL),
                ('006', '@', 'fixed length control field', 'fixed length control field', 0, 0, '', 0, '', '', 'marc21_field_006.pl', 0, -1, 'HLD', '', '', NULL),
                ('007', '@', 'fixed length control field', 'fixed length control field', 0, 0, '', 0, '', '', 'marc21_field_007.pl', 0, 0, 'HLD', '', '', NULL),
                ('008', '@', 'fixed length control field', 'fixed length control field', 0, 1, '', 0, '', '', 'marc21_field_008_holdings.pl', 0, 0, 'HLD', '', '', NULL),
                ('010', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', NULL, 0, -6, 'HLD', '', '', NULL),
                ('010', 'a', 'LC control number', 'LC control number', 0, 0, 'biblioitems.lccn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('010', 'b', 'NUCMC control number', 'NUCMC control number', 1, 0, '', 0, '', '', '', 0, -1, '', '', '', NULL),
                ('010', 'z', 'Canceled/invalid LC control number', 'Canceled/invalid LC control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('014', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
                ('014', 'a', 'Linkage number', 'Linkage number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('014', 'b', 'Source of number', 'Source of number', 0, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('014', 'z', 'Canceled/invalid linkage number', 'Canceled/invalid linkage number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('016', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
                ('016', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('016', 'a', 'Record control number', 'Record control number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('016', 'z', 'Canceled/invalid control number', 'Canceled/invalid control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('017', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
                ('017', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
                ('017', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('017', 'a', 'Copyright or legal deposit number', 'Copyright or legal deposit number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('017', 'b', 'Assigning agency', 'Assigning agency', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('017', 'd', 'Date', 'Date', 0, 0, '', 0, '', '', NULL, 0, -6, 'HLD', '', '', NULL),
                ('017', 'i', 'Display text', 'Display text', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('017', 'z', 'Canceled/invalid copyright or legal deposit number', 'Canceled/invalid copyright or legal deposit number', 1, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('020', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('020', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('020', 'a', 'International Standard Book Number', 'International Standard Book Number', 0, 0, 'biblioitems.isbn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('020', 'c', 'Terms of availability', 'Terms of availability', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('020', 'z', 'Canceled/invalid ISBN', 'Canceled/invalid ISBN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('022', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('022', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('022', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('022', 'a', 'International Standard Serial Number', 'International Standard Serial Number', 0, 0, 'biblioitems.issn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('022', 'l', 'ISSN-L', 'ISSN-L', 0, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('022', 'm', 'Canceled ISSN-L', 'Canceled ISSN-L', 1, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('022', 'y', 'Incorrect ISSN', 'Incorrect ISSN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('022', 'z', 'Canceled ISSN', 'Canceled ISSN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('024', '2', 'Source of number or code', 'Source of number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('024', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('024', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('024', 'a', 'Standard number or code', 'Standard number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('024', 'b', 'Additional codes following the standard number [OBSOLETE]', 'Additional codes following the standard number [OBSOLETE]', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('024', 'c', 'Terms of availability', 'Terms of availability', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('024', 'd', 'Additional codes following the standard number or code', 'Additional codes following the standard number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('024', 'z', 'Canceled/invalid standard number or code', 'Canceled/invalid standard number or code', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('027', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('027', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('027', 'a', 'Standard technical report number', 'Standard technical report number', 0, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('027', 'z', 'Canceled/invalid number', 'Canceled/invalid number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('030', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('030', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('030', 'a', 'CODEN', 'CODEN', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('030', 'z', 'Canceled/invalid CODEN', 'Canceled/invalid CODEN', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('035', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('035', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('035', 'a', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('035', 'z', 'Canceled/invalid control number', 'Canceled/invalid control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
                ('040', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('040', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
                ('040', 'a', 'Original cataloging agency', 'Original cataloging agency', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('040', 'b', 'Language of cataloging', 'Language of cataloging', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('040', 'c', 'Transcribing agency', 'Transcribing agency', 0, 1, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('040', 'd', 'Modifying agency', 'Modifying agency', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
                ('066', 'a', 'Primary G0 character set', 'Primary G0 character set', 0, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('066', 'b', 'Primary G1 character set', 'Primary G1 character set', 0, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('066', 'c', 'Alternate G0 or G1 character set', 'Alternate G0 or G1 character set', 1, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', 'a', 'Media type term', 'Media type term', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('337', 'b', 'Media type code', 'Media type code', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', 'a', 'Carrier type term', 'Carrier type term', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('338', 'b', 'Carrier type code', 'Carrier type code', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'a', 'File type', 'File type', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'b', 'Encoding format', 'Encoding format', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'c', 'File size', 'File size', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'd', 'Resolution', 'Resolution', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'e', 'Regional encoding', 'Regional encoding', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('347', 'f', 'Encoded bitrate', 'Encoded bitrate', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', '2', 'Source of term', 'Source of term', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', '3', 'Materials specified', 'Materials specified', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'a', 'Terms governing access', 'Terms governing access', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'b', 'Jurisdiction', 'Jurisdiction', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'c', 'Physical access provisions', 'Physical access provisions', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'd', 'Authorized users', 'Authorized users', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'e', 'Authorization', 'Authorization', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'f', 'Standardized terminology for access restriction', 'Standardized terminology for access restriction', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('506', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -6, 'HLD', '', '', NULL),
                ('538', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('538', '5', 'Institution to which field applies', 'Institution to which field applies', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('538', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('538', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('538', 'a', 'System details note', 'System details note', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('538', 'i', 'Display text', 'Display text', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('538', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -1, 'HLD', '', '', NULL),
                ('541', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('541', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('541', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('541', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('541', 'a', 'Source of acquisition', 'Source of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'b', 'Address', 'Address', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'c', 'Method of acquisition', 'Method of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'd', 'Date of acquisition', 'Date of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'e', 'Accession number', 'Accession number', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'f', 'Owner', 'Owner', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'h', 'Purchase price', 'Purchase price', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'n', 'Extent', 'Extent', 1, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('541', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
                ('561', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('561', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('561', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('561', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('561', 'a', 'History', 'History', 0, 0, '', 5, '', '', '', NULL, 6, 'HLD', '', '', NULL),
                ('561', 'b', 'Time of collation [OBSOLETE]', 'Time of collation [OBSOLETE]', 0, 0, '', 5, '', '', '', NULL, 6, 'HLD', '', '', NULL),
                ('561', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('562', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('562', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('562', '6', 'Linkage', 'Linkage', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('562', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('562', 'a', 'Identifying markings', 'Identifying markings', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('562', 'b', 'Copy identification', 'Copy identification', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('562', 'c', 'Version identification', 'Version identification', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('562', 'd', 'Presentation format', 'Presentation format', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('562', 'e', 'Number of copies', 'Number of copies', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('563', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('563', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('563', '6', 'Linkage', 'Linkage', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('563', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('563', 'a', 'Binding note', 'Binding note', 0, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('563', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, NULL, 5, NULL, NULL, '', 1, -1, 'HLD', '', '', NULL),
                ('583', '2', 'Source of term', 'Source of term', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('583', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('583', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('583', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('583', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('583', 'a', 'Action', 'Action', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'b', 'Action identification', 'Action identification', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'c', 'Time/date of action', 'Time/date of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'd', 'Action interval', 'Action interval', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'e', 'Contingency for action', 'Contingency for action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'f', 'Authorization', 'Authorization', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'h', 'Jurisdiction', 'Jurisdiction', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'i', 'Method of action', 'Method of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'j', 'Site of action', 'Site of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'k', 'Action agent', 'Action agent', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'l', 'Status', 'Status', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'n', 'Extent', 'Extent', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('583', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -1, 'HLD', '', '', NULL),
                ('583', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 5, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('583', 'z', 'Public note', 'Public note', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('842', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('842', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('842', 'a', 'Textual physical form designator', 'Textual physical form designator', 0, 0, '', 8, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('843', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 8, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('843', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('843', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('843', '7', 'Fixed-length data elements of reproduction', 'Fixed-length data elements of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
                ('843', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('843', 'a', 'Type of reproduction', 'Type of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'b', 'Place of reproduction', 'Place of reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'c', 'Agency responsible for reproduction', 'Agency responsible for reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'd', 'Date of reproduction', 'Date of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'e', 'Physical description of reproduction', 'Physical description of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'f', 'Series statement of reproduction', 'Series statement of reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'm', 'Dates and/or sequential designation of issues reproduced', 'Dates and/or sequential designation of issues reproduced', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('843', 'n', 'Note about reproduction', 'Note about reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
                ('844', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('844', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('844', 'a', 'Name of unit', 'Name of unit', 0, 0, '', 8, '', '', '', NULL, -1, 'HLD', '', '', NULL),
                ('845', 'a', 'Terms governing use and reproduction', 'Terms governing use and reproduction', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('845', 'b', 'Jurisdiction', 'Jurisdiction', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('845', 'c', 'Authorization', 'Authorization', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('845', 'd', 'Authorized users', 'Authorized users', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
                ('845', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 8, '', '', '', 1, -6, 'HLD', '', '', NULL),
                ('850', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
                ('850', 'a', 'Holding institution', 'Holding institution', 1, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
                ('850', 'b', 'Holdings (NR) (MU VM SE) [OBSOLETE]', 'Holdings (NR) (MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
                ('850', 'd', 'Inclusive dates (NR) (MU VM SE) [OBSOLETE]', 'Inclusive dates (NR) (MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
                ('850', 'e', 'Retention statement (NR) (CF MU VM SE) [OBSOLETE]', 'Retention statement (NR) (CF MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
                ('852', '2', 'Source of classification or shelving scheme', 'Source of classification or shelving scheme', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', '8', 'Sequence number', 'Sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'a', 'Location', 'Location', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'b', 'Sublocation or collection', 'Sublocation or collection', 1, 0, 'holdings.holdingbranch', 8, 'branches', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'c', 'Shelving location', 'Shelving location', 1, 0, 'holdings.location', 8, 'LOC', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'd', 'Former shelving location', 'Former shelving location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'e', 'Address', 'Address', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'f', 'Coded location qualifier', 'Coded location qualifier', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'g', 'Non-coded location qualifier', 'Non-coded location qualifier', 1, 0, 'holdings.ccode', 8, 'CCODE', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'h', 'Classification part', 'Classification part', 0, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'i', 'Item part', 'Item part', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'j', 'Shelving control number', 'Shelving control number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'k', 'Call number prefix', 'Call number prefix', 1, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'l', 'Shelving form of title', 'Shelving form of title', 0, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'm', 'Call number suffix', 'Call number suffix', 1, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'n', 'Country code', 'Country code', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 8, '', '', '', 1, 4, 'HLD', '', '', NULL),
                ('852', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('852', 'z', 'Public note', 'Public note', 1, 0, 'holdings.public_note', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('853', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('854', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('855', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('856', '2', 'Access method', 'Access method', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'a', 'Host name', 'Host name', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'b', 'Access number', 'Access number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'c', 'Compression information', 'Compression information', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'd', 'Path', 'Path', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'f', 'Electronic name', 'Electronic name', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'h', 'Processor of request', 'Processor of request', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'i', 'Instruction', 'Instruction', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'j', 'Bits per second', 'Bits per second', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'k', 'Password', 'Password', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'l', 'Logon', 'Logon', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'm', 'Contact for access assistance', 'Contact for access assistance', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'n', 'Name of location of host', 'Name of location of host', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'o', 'Operating system', 'Operating system', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'p', 'Port', 'Port', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'q', 'Electronic format type', 'Electronic format type', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'r', 'Settings', 'Settings', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 's', 'File size', 'File size', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 't', 'Terminal emulation', 'Terminal emulation', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, 'biblioitems.url', 8, '', '', '', 1, 4, 'HLD', '', '', NULL),
                ('856', 'v', 'Hours access method available', 'Hours access method available', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'w', 'Record control number', 'Record control number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'y', 'Link text', 'Link text', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('856', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('863', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('863', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'i', 'First level of chronology', 'First level of chronology', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('863', 'z', 'Public note', 'Public note', 1, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('864', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('864', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('864', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('865', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('865', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('865', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('866', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('866', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('866', 'a', 'Textual string', 'Textual string', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('866', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('866', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('867', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('867', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('867', 'a', 'Textual string', 'Textual string', 0, 0, 'holdings.supplements', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('867', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('867', 'z', 'Public note', 'Public note', 1, 0, 'holdings.supplements', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('868', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('868', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('868', 'a', 'Textual string', 'Textual string', 0, 0, 'holdings.indexes', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('868', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('868', 'z', 'Public note', 'Public note', 1, 0, 'holdings.indexes', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
                ('876', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('876', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('877', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
                ('878', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL);
    });

    # Always end with this (adjust the bug info)
    SetVersion( $DBversion );
    print "Upgrade to $DBversion done (Bug 20447 - Add holdings tables)\n";
}




		('999', 'a', 'Item type [OBSOLETE]', 'Item type [OBSOLETE]', 0, 0, NULL, -1, NULL, NULL, '', NULL, -5, '', '', '', NULL),
		('999', 'b', 'Koha Dewey Subclass [OBSOLETE]', 'Koha Dewey Subclass [OBSOLETE]', 0, 0, NULL, 0, NULL, NULL, '', NULL, -5, '', '', '', NULL),
		('999', 'c', 'Koha biblionumber', 'Koha biblionumber', 0, 0, 'biblio.biblionumber', -1, NULL, NULL, '', NULL, -5, '', '', '', NULL),
		('999', 'd', 'Koha biblioitemnumber', 'Koha biblioitemnumber', 0, 0, 'biblioitems.biblioitemnumber', -1, NULL, NULL, '', NULL, -5, '', '', '', NULL),
		('999', 'e', 'Koha holding_id', 'Koha holding_id', 0, 0, 'holdings.holding_id', -1, NULL, NULL, '', NULL, -5, '', '', '', NULL);


-- ******************************************************

            ('952', 'h', 'Serial Enumeration / chronology', 'Serial Enumeration / chronology', 0, 0, 'items.enumchron', 10, '', '', '', 0, 0, '', '', '', NULL),
           ('952', 'i', 'Inventory number', 'Inventory number', 0, 0, 'items.stocknumber', 10, '', '', '', 0, 0, '', '', '', NULL),
		('952', 'j', 'Shelving control number', 'Shelving control number', 0, 0, 'items.stack', 10, 'STACK', '', '', NULL, -1, '', '', '', NULL),
        ('952', 'k', 'Holdings record',  'Holdings record',  0, 0, 'items.holding_id', 10, 'holdings', '', '', NULL, 0,  '', '', '', NULL),
		('952', 'l', 'Total Checkouts', 'Total Checkouts', 0, 0, 'items.issues', 10, '', '', '', NULL, -5, '', '', '', NULL),
		('952', 'm', 'Total Renewals', 'Total Renewals', 0, 0, 'items.renewals', 10, '', '', '', NULL, -5, '', '', '', NULL),
		('952', 'n', 'Total Holds', 'Total Holds', 0, 0, 'items.reserves', 10, '', '', '', NULL, -5, '', '', '', NULL),

FROM marc_subfield_structure
WHERE frameworkcode=""
AND kohafield IN ("biblio.title", "biblio.author", "biblioitems.publishercode", "biblioitems.editionstatement", "biblio.copyrightdate", "biblioitems.isbn", "biblio.seriestitle" );


-- HOLDINGS RECORD FRAMEWORK

INSERT IGNORE INTO `biblio_framework` VALUES ('HLD', 'Default holdings framework');
INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
        ('999', 'SYSTEM CONTROL NUMBERS (KOHA)', 'SYSTEM CONTROL NUMBERS (KOHA)', 1, 0, '', 'HLD');

INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
        ('999', 'c', 'Koha biblionumber', 'Koha biblionumber', 0, 0, 'biblio.biblionumber', -1, NULL, NULL, '', NULL, -5, 'HLD', '', '', NULL),
        ('999', 'e', 'Koha holding_id', 'Koha holding_id', 0, 0, 'holdings.holding_id', -1, NULL, NULL, '', NULL, -5, 'HLD', '', '', NULL);


INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
        ('942', 'n', 'Suppress in OPAC', 'Suppress in OPAC', 0, 0, 'holdings.suppress', 9, '', '', '', 0, 0, 'HLD', '', '', NULL);

INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
        ('000', 'LEADER', 'LEADER', 0, 1, '', 'HLD'),
        ('001', 'CONTROL NUMBER', 'CONTROL NUMBER', 0, 0, '', 'HLD'),
        ('003', 'CONTROL NUMBER IDENTIFIER', 'CONTROL NUMBER IDENTIFIER', 0, 1, '', 'HLD'),
        ('005', 'DATE AND TIME OF LATEST TRANSACTION', 'DATE AND TIME OF LATEST TRANSACTION', 0, 1, '', 'HLD'),
        ('006', 'FIXED-LENGTH DATA ELEMENTS--ADDITIONAL MATERIAL CHARACTERISTICS', 'FIXED-LENGTH DATA ELEMENTS--ADDITIONAL MATERIAL CHARACTERISTICS', 1, 0, '', 'HLD'),
        ('007', 'PHYSICAL DESCRIPTION FIXED FIELD--GENERAL INFORMATION', 'PHYSICAL DESCRIPTION FIXED FIELD--GENERAL INFORMATION', 1, 0, '', 'HLD'),
        ('008', 'FIXED-LENGTH DATA ELEMENTS--GENERAL INFORMATION', 'FIXED-LENGTH DATA ELEMENTS--GENERAL INFORMATION', 0, 1, '', 'HLD');

INSERT IGNORE INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `authorised_value`, `frameworkcode`) VALUES
        ('010', 'LIBRARY OF CONGRESS CONTROL NUMBER', 'LIBRARY OF CONGRESS CONTROL NUMBER', 0, 0, '', 'HLD'),
        ('014', 'LINKAGE NUMBER', 'LINKAGE NUMBER', 1, 0, '', 'HLD'),
        ('016', 'NATIONAL BIBLIOGRAPHIC AGENCY CONTROL NUMBER', 'NATIONAL BIBLIOGRAPHIC AGENCY CONTROL NUMBER', 1, 0, '', 'HLD'),
        ('017', 'COPYRIGHT OR LEGAL DEPOSIT NUMBER', 'COPYRIGHT OR LEGAL DEPOSIT NUMBER', 1, 0, '', 'HLD'),
        ('020', 'INTERNATIONAL STANDARD BOOK NUMBER', 'INTERNATIONAL STANDARD BOOK NUMBER', 1, 0, NULL, 'HLD'),
        ('022', 'INTERNATIONAL STANDARD SERIAL NUMBER', 'INTERNATIONAL STANDARD SERIAL NUMBER', 1, 0, NULL, 'HLD'),
        ('024', 'OTHER STANDARD IDENTIFIER', 'OTHER STANDARD IDENTIFIER', 1, 0, NULL, 'HLD'),
        ('027', 'STANDARD TECHNICAL REPORT NUMBER', 'STANDARD TECHNICAL REPORT NUMBER', 1, 0, '', 'HLD'),
        ('030', 'CODEN DESIGNATION', 'CODEN DESIGNATION', 1, 0, '', 'HLD'),
        ('035', 'SYSTEM CONTROL NUMBER', 'SYSTEM CONTROL NUMBER', 1, 0, NULL, 'HLD'),
        ('040', 'CATALOGING SOURCE', 'CATALOGING SOURCE', 0, 1, NULL, 'HLD'),
        ('066', 'CHARACTER SETS PRESENT', 'CHARACTER SETS PRESENT', 0, 0, NULL, 'HLD'),
        ('337', 'MEDIA TYPE', 'MEDIA TYPE', 1, 0, NULL, 'HLD'),
        ('338', 'CARRIER TYPE', 'CARRIER TYPE', 1, 0, NULL, 'HLD'),
        ('347', 'DIGITAL FILE CHARACTERISTICS', 'DIGITAL FILE CHARACTERISTICS', 1, 0, NULL, 'HLD'),
        ('506', 'RESTRICTIONS ON ACCESS NOTE', 'RESTRICTIONS ON ACCESS NOTE', 1, 0, NULL, 'HLD'),
        ('538', 'SYSTEM DETAILS NOTE', 'SYSTEM DETAILS NOTE', 1, 0, NULL, 'HLD'),
        ('541', 'IMMEDIATE SOURCE OF ACQUISITION NOTE', 'IMMEDIATE SOURCE OF ACQUISITION NOTE', 1, 0, NULL, 'HLD'),
        ('561', 'OWNERSHIP AND CUSTODIAL HISTORY', 'OWNERSHIP AND CUSTODIAL HISTORY', 1, 0, NULL, 'HLD'),
        ('562', 'COPY AND VERSION IDENTIFICATION NOTE', 'COPY AND VERSION IDENTIFICATION NOTE', 1, 0, NULL, 'HLD'),
        ('563', 'BINDING INFORMATION', 'BINDING INFORMATION', 1, 0, NULL, 'HLD'),
        ('583', 'ACTION NOTE', 'ACTION NOTE', 1, 0, NULL, 'HLD'),
        ('842', 'TEXTUAL PHYSICAL FORM DESIGNATOR', 'TEXTUAL PHYSICAL FORM DESIGNATOR', 0, 0, NULL, 'HLD'),
        ('843', 'REPRODUCTION NOTE', 'REPRODUCTION NOTE', 1, 0, NULL, 'HLD'),
        ('844', 'NAME OF UNIT', 'NAME OF UNIT', 0, 0, NULL, 'HLD'),
        ('845', 'TERMS GOVERNING USE AND REPRODUCTION NOTE', 'TERMS GOVERNING USE AND REPRODUCTION NOTE', 1, 0, NULL, 'HLD'),
        ('850', 'HOLDING INSTITUTION', 'HOLDING INSTITUTION', 1, 0, NULL, 'HLD'),
        ('852', 'LOCATION', 'LOCATION', 1, 0, NULL, 'HLD'),
        ('853', 'CAPTIONS AND PATTERN--BASIC BIBLIOGRAPHIC UNIT', 'CAPTIONS AND PATTERN--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
        ('854', 'CAPTIONS AND PATTERN--SUPPLEMENTARY MATERIAL', 'CAPTIONS AND PATTERN--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
        ('855', 'CAPTIONS AND PATTERN--INDEXES', 'CAPTIONS AND PATTERN--INDEXES', 1, 0, NULL, 'HLD'),
        ('856', 'ELECTRONIC LOCATION AND ACCESS', 'ELECTRONIC LOCATION AND ACCESS', 1, 0, NULL, 'HLD'),
        ('863', 'ENUMERATION AND CHRONOLOGY--BASIC BIBLIOGRAPHIC UNIT', 'ENUMERATION AND CHRONOLOGY--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
        ('864', 'ENUMERATION AND CHRONOLOGY--SUPPLEMENTARY MATERIAL', 'ENUMERATION AND CHRONOLOGY--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
        ('865', 'ENUMERATION AND CHRONOLOGY--INDEXES', 'ENUMERATION AND CHRONOLOGY--INDEXES', 1, 0, NULL, 'HLD'),
        ('866', 'TEXTUAL HOLDINGS--BASIC BIBLIOGRAPHIC UNIT', 'TEXTUAL HOLDINGS--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
        ('867', 'TEXTUAL HOLDINGS--SUPPLEMENTARY MATERIAL', 'TEXTUAL HOLDINGS--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
        ('868', 'TEXTUAL HOLDINGS--INDEXES', 'TEXTUAL HOLDINGS--INDEXES', 1, 0, NULL, 'HLD'),
        ('876', 'ITEM INFORMATION--BASIC BIBLIOGRAPHIC UNIT', 'ITEM INFORMATION--BASIC BIBLIOGRAPHIC UNIT', 1, 0, NULL, 'HLD'),
        ('877', 'ITEM INFORMATION--SUPPLEMENTARY MATERIAL', 'ITEM INFORMATION--SUPPLEMENTARY MATERIAL', 1, 0, NULL, 'HLD'),
        ('878', 'ITEM INFORMATION--INDEXES', 'ITEM INFORMATION--INDEXES', 1, 0, NULL, 'HLD');

INSERT IGNORE INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`) VALUES
        ('000', '@', 'fixed length control field', 'fixed length control field', 0, 1, '', 0, '', '', 'marc21_leader_holdings.pl', 0, 0, 'HLD', '', '', NULL),
        ('001', '@', 'control field', 'control field', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('003', '@', 'control field', 'control field', 0, 1, '', 0, '', '', 'marc21_orgcode.pl', 0, 0, 'HLD', '', '', NULL),
        ('005', '@', 'control field', 'control field', 0, 1, '', 0, '', '', 'marc21_field_005.pl', 0, 0, 'HLD', '', '', NULL),
        ('006', '@', 'fixed length control field', 'fixed length control field', 0, 0, '', 0, '', '', 'marc21_field_006.pl', 0, -1, 'HLD', '', '', NULL),
        ('007', '@', 'fixed length control field', 'fixed length control field', 0, 0, '', 0, '', '', 'marc21_field_007.pl', 0, 0, 'HLD', '', '', NULL),
        ('008', '@', 'fixed length control field', 'fixed length control field', 0, 1, '', 0, '', '', 'marc21_field_008_holdings.pl', 0, 0, 'HLD', '', '', NULL),
        ('010', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', NULL, 0, -6, 'HLD', '', '', NULL),
        ('010', 'a', 'LC control number', 'LC control number', 0, 0, 'biblioitems.lccn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('010', 'b', 'NUCMC control number', 'NUCMC control number', 1, 0, '', 0, '', '', '', 0, -1, '', '', '', NULL),
        ('010', 'z', 'Canceled/invalid LC control number', 'Canceled/invalid LC control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('014', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
        ('014', 'a', 'Linkage number', 'Linkage number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('014', 'b', 'Source of number', 'Source of number', 0, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('014', 'z', 'Canceled/invalid linkage number', 'Canceled/invalid linkage number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('016', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL),
        ('016', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('016', 'a', 'Record control number', 'Record control number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('016', 'z', 'Canceled/invalid control number', 'Canceled/invalid control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('017', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
        ('017', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, '', '', '', NULL),
        ('017', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('017', 'a', 'Copyright or legal deposit number', 'Copyright or legal deposit number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('017', 'b', 'Assigning agency', 'Assigning agency', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('017', 'd', 'Date', 'Date', 0, 0, '', 0, '', '', NULL, 0, -6, 'HLD', '', '', NULL),
        ('017', 'i', 'Display text', 'Display text', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('017', 'z', 'Canceled/invalid copyright or legal deposit number', 'Canceled/invalid copyright or legal deposit number', 1, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('020', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('020', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('020', 'a', 'International Standard Book Number', 'International Standard Book Number', 0, 0, 'biblioitems.isbn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('020', 'c', 'Terms of availability', 'Terms of availability', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('020', 'z', 'Canceled/invalid ISBN', 'Canceled/invalid ISBN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('022', '2', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('022', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('022', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('022', 'a', 'International Standard Serial Number', 'International Standard Serial Number', 0, 0, 'biblioitems.issn', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('022', 'l', 'ISSN-L', 'ISSN-L', 0, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('022', 'm', 'Canceled ISSN-L', 'Canceled ISSN-L', 1, 0, '', 0, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('022', 'y', 'Incorrect ISSN', 'Incorrect ISSN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('022', 'z', 'Canceled ISSN', 'Canceled ISSN', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('024', '2', 'Source of number or code', 'Source of number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('024', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('024', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('024', 'a', 'Standard number or code', 'Standard number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('024', 'b', 'Additional codes following the standard number [OBSOLETE]', 'Additional codes following the standard number [OBSOLETE]', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('024', 'c', 'Terms of availability', 'Terms of availability', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('024', 'd', 'Additional codes following the standard number or code', 'Additional codes following the standard number or code', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('024', 'z', 'Canceled/invalid standard number or code', 'Canceled/invalid standard number or code', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('027', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('027', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('027', 'a', 'Standard technical report number', 'Standard technical report number', 0, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('027', 'z', 'Canceled/invalid number', 'Canceled/invalid number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('030', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('030', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('030', 'a', 'CODEN', 'CODEN', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('030', 'z', 'Canceled/invalid CODEN', 'Canceled/invalid CODEN', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('035', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('035', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('035', 'a', 'System control number', 'System control number', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('035', 'z', 'Canceled/invalid control number', 'Canceled/invalid control number', 1, 0, '', 0, '', '', '', 0, -1, 'HLD', '', '', NULL),
        ('040', '6', 'Linkage', 'Linkage', 0, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('040', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 0, '', '', '', 0, -6, 'HLD', '', '', NULL),
        ('040', 'a', 'Original cataloging agency', 'Original cataloging agency', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('040', 'b', 'Language of cataloging', 'Language of cataloging', 0, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('040', 'c', 'Transcribing agency', 'Transcribing agency', 0, 1, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('040', 'd', 'Modifying agency', 'Modifying agency', 1, 0, '', 0, '', '', '', 0, 0, 'HLD', '', '', NULL),
        ('066', 'a', 'Primary G0 character set', 'Primary G0 character set', 0, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('066', 'b', 'Primary G1 character set', 'Primary G1 character set', 0, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('066', 'c', 'Alternate G0 or G1 character set', 'Alternate G0 or G1 character set', 1, 0, NULL, 0, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', 'a', 'Media type term', 'Media type term', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('337', 'b', 'Media type code', 'Media type code', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', 'a', 'Carrier type term', 'Carrier type term', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('338', 'b', 'Carrier type code', 'Carrier type code', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'a', 'File type', 'File type', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '0', 'Authority record control number or standard number', 'Authority record control number or standard number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '1', 'Real World Object URI', 'Real World Object URI', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '2', 'Source', 'Source', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '3', 'Materials specified', 'Materials specified', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '6', 'Linkage', 'Linkage', 0, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'b', 'Encoding format', 'Encoding format', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'c', 'File size', 'File size', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'd', 'Resolution', 'Resolution', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'e', 'Regional encoding', 'Regional encoding', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('347', 'f', 'Encoded bitrate', 'Encoded bitrate', 1, 0, '', 3, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', '2', 'Source of term', 'Source of term', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', '3', 'Materials specified', 'Materials specified', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'a', 'Terms governing access', 'Terms governing access', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'b', 'Jurisdiction', 'Jurisdiction', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'c', 'Physical access provisions', 'Physical access provisions', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'd', 'Authorized users', 'Authorized users', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'e', 'Authorization', 'Authorization', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'f', 'Standardized terminology for access restriction', 'Standardized terminology for access restriction', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('506', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -6, 'HLD', '', '', NULL),
        ('538', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('538', '5', 'Institution to which field applies', 'Institution to which field applies', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('538', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('538', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('538', 'a', 'System details note', 'System details note', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('538', 'i', 'Display text', 'Display text', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('538', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -1, 'HLD', '', '', NULL),
        ('541', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('541', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('541', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('541', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('541', 'a', 'Source of acquisition', 'Source of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'b', 'Address', 'Address', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'c', 'Method of acquisition', 'Method of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'd', 'Date of acquisition', 'Date of acquisition', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'e', 'Accession number', 'Accession number', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'f', 'Owner', 'Owner', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'h', 'Purchase price', 'Purchase price', 0, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'n', 'Extent', 'Extent', 1, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('541', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 5, '', '', '', NULL, 1, 'HLD', '', '', NULL),
        ('561', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('561', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('561', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('561', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('561', 'a', 'History', 'History', 0, 0, '', 5, '', '', '', NULL, 6, 'HLD', '', '', NULL),
        ('561', 'b', 'Time of collation [OBSOLETE]', 'Time of collation [OBSOLETE]', 0, 0, '', 5, '', '', '', NULL, 6, 'HLD', '', '', NULL),
        ('561', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('562', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('562', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('562', '6', 'Linkage', 'Linkage', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('562', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('562', 'a', 'Identifying markings', 'Identifying markings', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('562', 'b', 'Copy identification', 'Copy identification', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('562', 'c', 'Version identification', 'Version identification', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('562', 'd', 'Presentation format', 'Presentation format', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('562', 'e', 'Number of copies', 'Number of copies', 1, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('563', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('563', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('563', '6', 'Linkage', 'Linkage', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('563', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('563', 'a', 'Binding note', 'Binding note', 0, 0, NULL, 5, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('563', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, NULL, 5, NULL, NULL, '', 1, -1, 'HLD', '', '', NULL),
        ('583', '2', 'Source of term', 'Source of term', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('583', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 5, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('583', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('583', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('583', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('583', 'a', 'Action', 'Action', 0, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'b', 'Action identification', 'Action identification', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'c', 'Time/date of action', 'Time/date of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'd', 'Action interval', 'Action interval', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'e', 'Contingency for action', 'Contingency for action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'f', 'Authorization', 'Authorization', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'h', 'Jurisdiction', 'Jurisdiction', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'i', 'Method of action', 'Method of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'j', 'Site of action', 'Site of action', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'k', 'Action agent', 'Action agent', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'l', 'Status', 'Status', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'n', 'Extent', 'Extent', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('583', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 5, '', '', '', 1, -1, 'HLD', '', '', NULL),
        ('583', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 5, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('583', 'z', 'Public note', 'Public note', 1, 0, '', 5, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('842', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('842', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('842', 'a', 'Textual physical form designator', 'Textual physical form designator', 0, 0, '', 8, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('843', '3', 'Materials specified', 'Materials specified', 0, 0, NULL, 8, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('843', '5', 'Institution to which field applies', 'Institution to which field applies', 0, 0, NULL, -1, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('843', '6', 'Linkage', 'Linkage', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('843', '7', 'Fixed-length data elements of reproduction', 'Fixed-length data elements of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -6, 'HLD', '', '', NULL),
        ('843', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('843', 'a', 'Type of reproduction', 'Type of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'b', 'Place of reproduction', 'Place of reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'c', 'Agency responsible for reproduction', 'Agency responsible for reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'd', 'Date of reproduction', 'Date of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'e', 'Physical description of reproduction', 'Physical description of reproduction', 0, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'f', 'Series statement of reproduction', 'Series statement of reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'm', 'Dates and/or sequential designation of issues reproduced', 'Dates and/or sequential designation of issues reproduced', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('843', 'n', 'Note about reproduction', 'Note about reproduction', 1, 0, NULL, 8, NULL, NULL, '', NULL, -1, 'HLD', '', '', NULL),
        ('844', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('844', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('844', 'a', 'Name of unit', 'Name of unit', 0, 0, '', 8, '', '', '', NULL, -1, 'HLD', '', '', NULL),
        ('845', 'a', 'Terms governing use and reproduction', 'Terms governing use and reproduction', 0, 0, '', 5, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('845', 'b', 'Jurisdiction', 'Jurisdiction', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('845', 'c', 'Authorization', 'Authorization', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('845', 'd', 'Authorized users', 'Authorized users', 0, 0, '', 8, '', '', '', NULL, -6, 'HLD', '', '', NULL),
        ('845', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 8, '', '', '', 1, -6, 'HLD', '', '', NULL),
        ('850', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
        ('850', 'a', 'Holding institution', 'Holding institution', 1, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
        ('850', 'b', 'Holdings (NR) (MU VM SE) [OBSOLETE]', 'Holdings (NR) (MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
        ('850', 'd', 'Inclusive dates (NR) (MU VM SE) [OBSOLETE]', 'Inclusive dates (NR) (MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
        ('850', 'e', 'Retention statement (NR) (CF MU VM SE) [OBSOLETE]', 'Retention statement (NR) (CF MU VM SE) [OBSOLETE]', 0, 0, NULL, 8, NULL, NULL, '', NULL, 4, 'HLD', '', '', NULL),
        ('852', '2', 'Source of classification or shelving scheme', 'Source of classification or shelving scheme', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', '8', 'Sequence number', 'Sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'a', 'Location', 'Location', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'b', 'Sublocation or collection', 'Sublocation or collection', 1, 0, 'holdings.holdingbranch', 8, 'branches', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'c', 'Shelving location', 'Shelving location', 1, 0, 'holdings.location', 8, 'LOC', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'd', 'Former shelving location', 'Former shelving location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'e', 'Address', 'Address', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'f', 'Coded location qualifier', 'Coded location qualifier', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'g', 'Non-coded location qualifier', 'Non-coded location qualifier', 1, 0, 'holdings.ccode', 8, 'CCODE', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'h', 'Classification part', 'Classification part', 0, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'i', 'Item part', 'Item part', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'j', 'Shelving control number', 'Shelving control number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'k', 'Call number prefix', 'Call number prefix', 1, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'l', 'Shelving form of title', 'Shelving form of title', 0, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'm', 'Call number suffix', 'Call number suffix', 1, 0, 'holdings.callnumber', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'n', 'Country code', 'Country code', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, '', 8, '', '', '', 1, 4, 'HLD', '', '', NULL),
        ('852', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('852', 'z', 'Public note', 'Public note', 1, 0, 'holdings.public_note', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('853', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('854', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'n', 'Pattern note', 'Pattern note', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'p', 'Number of pieces per issuance', 'Number of pieces per issuance', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 't', 'Copy', 'Copy', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'u', 'Bibliographic units per next higher level', 'Bibliographic units per next higher level', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'v', 'Numbering continuity', 'Numbering continuity', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'w', 'Frequency', 'Frequency', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'x', 'Calendar change', 'Calendar change', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'y', 'Regularity pattern', 'Regularity pattern', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('855', 'z', 'Numbering scheme', 'Numbering scheme', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('856', '2', 'Access method', 'Access method', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'a', 'Host name', 'Host name', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'b', 'Access number', 'Access number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'c', 'Compression information', 'Compression information', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'd', 'Path', 'Path', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'f', 'Electronic name', 'Electronic name', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'h', 'Processor of request', 'Processor of request', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'i', 'Instruction', 'Instruction', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'j', 'Bits per second', 'Bits per second', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'k', 'Password', 'Password', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'l', 'Logon', 'Logon', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'm', 'Contact for access assistance', 'Contact for access assistance', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'n', 'Name of location of host', 'Name of location of host', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'o', 'Operating system', 'Operating system', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'p', 'Port', 'Port', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'q', 'Electronic format type', 'Electronic format type', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'r', 'Settings', 'Settings', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 's', 'File size', 'File size', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 't', 'Terminal emulation', 'Terminal emulation', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'u', 'Uniform Resource Identifier', 'Uniform Resource Identifier', 1, 0, 'biblioitems.url', 8, '', '', '', 1, 4, 'HLD', '', '', NULL),
        ('856', 'v', 'Hours access method available', 'Hours access method available', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'w', 'Record control number', 'Record control number', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'y', 'Link text', 'Link text', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('856', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('863', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('863', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'i', 'First level of chronology', 'First level of chronology', 0, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('863', 'z', 'Public note', 'Public note', 1, 0, 'holdings.summary', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('864', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('864', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('864', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('865', '8', 'Field link and sequence number', 'Field link and sequence number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('865', 'a', 'First level of enumeration', 'First level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'b', 'Second level of enumeration', 'Second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'c', 'Third level of enumeration', 'Third level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'd', 'Fourth level of enumeration', 'Fourth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'e', 'Fifth level of enumeration', 'Fifth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'f', 'Sixth level of enumeration', 'Sixth level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'g', 'Alternative numbering scheme, first level of enumeration', 'Alternative numbering scheme, first level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'h', 'Alternative numbering scheme, second level of enumeration', 'Alternative numbering scheme, second level of enumeration', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'i', 'First level of chronology', 'First level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'j', 'Second level of chronology', 'Second level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'k', 'Third level of chronology', 'Third level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'l', 'Fourth level of chronology', 'Fourth level of chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'm', 'Alternative numbering scheme, chronology', 'Alternative numbering scheme, chronology', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'n', 'Converted Gregorian year', 'Converted Gregorian year', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'o', 'Type of unit', 'Type of unit', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'p', 'Piece designation', 'Piece designation', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'q', 'Piece physical condition', 'Piece physical condition', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 's', 'Copyright article-fee code', 'Copyright article-fee code', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'v', 'Issuing date', 'Issuing date', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'w', 'Break indicator', 'Break indicator', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('865', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('866', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('866', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('866', 'a', 'Textual string', 'Textual string', 0, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('866', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('866', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('867', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('867', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('867', 'a', 'Textual string', 'Textual string', 0, 0, 'holdings.supplements', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('867', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('867', 'z', 'Public note', 'Public note', 1, 0, 'holdings.supplements', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('868', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('868', '8', 'Field link and sequence number', 'Field link and sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('868', 'a', 'Textual string', 'Textual string', 0, 0, 'holdings.indexes', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('868', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('868', 'z', 'Public note', 'Public note', 1, 0, 'holdings.indexes', 8, '', '', '', 0, 4, 'HLD', '', '', NULL),
        ('876', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('876', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('877', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', '3', 'Materials specified', 'Materials specified', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', '6', 'Linkage', 'Linkage', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', '8', 'Sequence number', 'Sequence number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'a', 'Internal item number', 'Internal item number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'b', 'Invalid or canceled internal item number', 'Invalid or canceled internal item number', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'c', 'Cost', 'Cost', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'd', 'Date acquired', 'Date acquired', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'e', 'Source of acquisition', 'Source of acquisition', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'h', 'Use restrictions', 'Use restrictions', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'j', 'Item status', 'Item status', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'l', 'Temporary location', 'Temporary location', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'p', 'Piece designation', 'Piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'r', 'Invalid or canceled piece designation', 'Invalid or canceled piece designation', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 't', 'Copy number', 'Copy number', 0, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'x', 'Nonpublic note', 'Nonpublic note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL),
        ('878', 'z', 'Public note', 'Public note', 1, 0, '', 8, '', '', '', NULL, 4, 'HLD', '', '', NULL);




  `copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)
  `stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)
  `new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
  `holding_id` int(11) default NULL, -- foreign key from holdings table used to link this item to the right holdings record
  PRIMARY KEY  (`itemnumber`),
  KEY `delitembarcodeidx` (`barcode`),
  KEY `delitemstocknumberidx` (`stocknumber`),

  KEY `branchcode` (`branchcode`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;

--
-- Table structure for table `holdings`
--

DROP TABLE IF EXISTS `holdings`;
CREATE TABLE `holdings` ( -- table that stores summary holdings information
  `holding_id` int(11) NOT NULL auto_increment, -- unique identifier assigned to each holdings record
  `biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this record to the right bib record
  `frameworkcode` varchar(4) NOT NULL default '', -- foreign key from the biblio_framework table to identify which framework was used in cataloging this record
  `holdingbranch` varchar(10) default NULL, -- foreign key from the branches table for the library that owns this record (MARC21 852$a)
  `location` varchar(80) default NULL, -- authorized value for the shelving location for this record (MARC21 852$b)
  `ccode` varchar(80) default NULL, -- authorized value for the collection code associated with this item (MARC21 852$g)
  `callnumber` varchar(255) default NULL, -- call number (852$h+$i in MARC21)
  `suppress` tinyint(1) default NULL, -- Boolean indicating whether the record is suppressed in OPAC
  `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP, -- date and time this record was last touched
  `datecreated` DATE NOT NULL, -- the date this record was added to Koha
	`deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
  PRIMARY KEY  (`holding_id`),
  KEY `hldnoidx` (`holding_id`),
  KEY `hldbibnoidx` (`biblionumber`),
  KEY `timestamp` (`timestamp`),
  CONSTRAINT `holdings_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT `holdings_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;

--
-- Table structure for table `holdings_metadata`
--

DROP TABLE IF EXISTS `holdings_metadata`;
CREATE TABLE `holdings_metadata` (
  `id` INT(11) NOT NULL AUTO_INCREMENT,
  `holding_id` INT(11) NOT NULL,
  `format` VARCHAR(16) NOT NULL,
  `schema` VARCHAR(16) NOT NULL,
  `metadata` LONGTEXT NOT NULL,
	`deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
  PRIMARY KEY(id),
  UNIQUE KEY `holdings_metadata_uniq_key` (`holding_id`,`format`,`schema`),
  KEY `hldnoidx` (`holding_id`),
  CONSTRAINT `holdings_metadata_fk_1` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;

--
-- Table structure for table `items`
--

DROP TABLE IF EXISTS `items`;
CREATE TABLE `items` ( -- item information
  `itemnumber` int(11) NOT NULL auto_increment, -- primary key and unique identifier added by Koha
  `biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this item to the right bib record
  `biblioitemnumber` int(11) NOT NULL default 0, -- foreign key from the biblioitems table to link to item to additional information

  `copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)
  `stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)
  `new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
  `holding_id` int(11) default NULL, -- foreign key from holdings table used to link this item to the right holdings record
  PRIMARY KEY  (`itemnumber`),
  UNIQUE KEY `itembarcodeidx` (`barcode`),
  KEY `itemstocknumberidx` (`stocknumber`),

  KEY `items_ccode` (`ccode`),
  KEY `itype_idx` (`itype`),
  KEY `timestamp` (`timestamp`),
  KEY `hldid_idx` (`holding_id`),
  CONSTRAINT `items_ibfk_1` FOREIGN KEY (`biblioitemnumber`) REFERENCES `biblioitems` (`biblioitemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT `items_ibfk_2` FOREIGN KEY (`homebranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,
  CONSTRAINT `items_ibfk_3` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,
  CONSTRAINT `items_ibfk_4` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT `items_ibfk_5` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;

--

Lines 22-27 INSERT IGNORE INTO authorised_value_categories( category_name ) Link Here

(-)a/installer/data/mysql/mandatory/auth_val_cat.sql (+1 lines)
22	INSERT IGNORE INTO authorised_value_categories( category_name )	22	INSERT IGNORE INTO authorised_value_categories( category_name )
23	VALUES	23	VALUES
24	('branches'),	24	('branches'),
		25	('holdings'),
25	('itemtypes'),	26	('itemtypes'),
26	('cn_source');	27	('cn_source');
27		28

Lines 600-605 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
600	('SubscriptionHistory','simplified','simplified\|full','Define the display preference for serials issue history in OPAC','Choice'),	600	('SubscriptionHistory','simplified','simplified\|full','Define the display preference for serials issue history in OPAC','Choice'),
601	('SubscriptionLog','1',NULL,'If ON, enables subscriptions log','YesNo'),	601	('SubscriptionLog','1',NULL,'If ON, enables subscriptions log','YesNo'),
602	('suggestion','1','','If ON, enables patron suggestions feature in OPAC','YesNo'),	602	('suggestion','1','','If ON, enables patron suggestions feature in OPAC','YesNo'),
		603	('SummaryHoldings', '0', NULL, 'If ON, enables support for holdings records.', 'YesNo'),
603	('SuspendHoldsIntranet','1','Allow holds to be suspended from the intranet.',NULL,'YesNo'),	604	('SuspendHoldsIntranet','1','Allow holds to be suspended from the intranet.',NULL,'YesNo'),
604	('SuspendHoldsOpac','1','Allow holds to be suspended from the OPAC.',NULL,'YesNo'),	605	('SuspendHoldsOpac','1','Allow holds to be suspended from the OPAC.',NULL,'YesNo'),
605	('SuspensionsCalendar','noSuspensionsWhenClosed','ignoreCalendar\|noSuspensionsWhenClosed','Specify whether to use the Calendar in calculating suspension expiration','Choice'),	606	('SuspensionsCalendar','noSuspensionsWhenClosed','ignoreCalendar\|noSuspensionsWhenClosed','Specify whether to use the Calendar in calculating suspension expiration','Choice'),




#addholdingtabs {
	margin-top : 1em;
}

#addholdingtabs .ui-tabs-panel {
	float : left;
}

.buttonPlus {
	font-weight : bold;
	text-decoration : none;
}

.buttonMinus {
	font-weight : bold;
	text-decoration : none;
}

a.expandfield {
	text-decoration : none;
}

#authoritytabs {
	margin-top : 1em;
	margin-bottom : 1em;
}

.toptabs .ui-tabs-nav li a {
	padding : .2em 1.2em;
}

div.tag {
    clear: both;
}

div.subfield_line {
    padding-bottom: .3em;
    float: left;
    clear: left;
    width: 100%;
}

div.subfield_line label {
    font-size:89%;
    float: left;
	 padding-right : .4em;
    width: 16em;
    text-align: left;
    clear:left;
}

.subfieldcode img {
    cursor: pointer;
}

.tag_title {
	font-size : 90%;
	padding : .2em 0;
}

.tagnum {
	font-size : 110%;
	font-weight : bold;
	color : #000;
	padding : .1em .3em .1em 0;
}

a.tagnum {
	font-size : 110%;
	font-weight : bold;
	color : #000;
	padding : .1em .3em .1em 0;
	text-decoration : none;
}

.subfield {
	color : #00698a;
	float: left;
	width: 10em;
	text-align:right;
}

.subfieldcode {
	display: block;
	float: left;
}

.labelsubfield {
	float:left;
}

.input_marceditor {
	float:left;
	width:30em;
}

.indicator {
    width: 1em;
    box-sizing: content-box;
}

*html .input_marceditor {
	width : 15em;
}

#cataloguing_additem_newitem fieldset.rows label, #cataloguing_additem_newitem fieldset.rows span.label {
	font-size : 100%;
	width : 25%;
}

#cataloguing_additem_newitem fieldset.rows li {
	padding-bottom : 3px;
}
#cataloguing_additem_newitem .input_marceditor {
	width : auto;
}

#cataloguing_additem_newitem textarea.input_marceditor {
     width : 31em;
}

.mandatory_marker {
	color: red;
}
.linktools { display: block; white-space: nowrap; }
.linktools a { font-size : 75%; display:block;text-decoration:none;}
.linktools a {margin:0 2px;padding:2px;background-color:#FFF;text-align:center; }
.linktools a:first-child { border-bottom: 1px solid #DDD; }
.linktools a:hover { background-color: #FFC; }
.subfield_controls { margin : 0 .5em; }
.readonly { border-width : 1px; border-style: inset; padding-left : 15px; background: #EEE url(../img/locked.png) center left no-repeat; width:29em; }

#cataloguing_additem_itemlist {
	margin-bottom : 1em;
}
.yui-gf div.first {
	width : 19%;
}

.yui-gf .yui-u {
	width: 79.2%;
}

tbody tr.active:nth-child(2n+1) td,
tbody tr.active td {
    background-color: #FFFFCC;
}

#loading {
    background-color: #FFF;
    cursor: wait;
    height: 100%;
    left: 0;
    opacity: .7;
    position: fixed;
    top: 0;
    width: 100%;
    z-index: 1000;
}
#loading div {
    background : transparent url(../img/loading.gif) top left no-repeat;
    font-size : 175%;
    font-weight: bold;
    height: 2em;
    left: 50%;
    margin: -1em 0 0 -2.5em;
    padding-left : 50px;
    position: absolute;
    top: 50%;
    width: 15em;
}

Lines 10-15 CAN_user_serials_create_subscription ) %] Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc (+4 lines)
10	<li><a id="newbiblio" href="/cgi-bin/koha/cataloguing/addbiblio.pl">New record</a></li>	10	<li><a id="newbiblio" href="/cgi-bin/koha/cataloguing/addbiblio.pl">New record</a></li>
11	[% END %]	11	[% END %]
12		12
		13	[% IF ( show_summary_holdings && CAN_user_editcatalogue_edit_items ) %]
		14	<li><a id="newholding" href="/cgi-bin/koha/cataloguing/addholding.pl?biblionumber=[% biblionumber \| uri %]#addholding">New holdings record</a></li>
		15	[% END %]
		16
13	[% IF ( CAN_user_editcatalogue_edit_items ) %]	17	[% IF ( CAN_user_editcatalogue_edit_items ) %]
14	<li><a id="newitem" href="/cgi-bin/koha/cataloguing/additem.pl?biblionumber=[% biblionumber \| html %]#additema">New item</a></li>	18	<li><a id="newitem" href="/cgi-bin/koha/cataloguing/additem.pl?biblionumber=[% biblionumber \| html %]#additema">New item</a></li>
15	[% END %]	19	[% END %]

Lines 132-138 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/biblio_framework.tt (-2 / +1 lines)
132	<tbody>	132	<tbody>
133	<tr>	133	<tr>
134	<td> </td>	134	<td> </td>
135	<td>Default framework</td>	135	<td>Default bibliographic framework</td>
136	<td>	136	<td>
137	<div class="dropdown">	137	<div class="dropdown">
138	<a class="btn btn-default btn-xs dropdown-toggle" id="frameworkactions[% loo.frameworkcode \| html %]" role="button" data-toggle="dropdown" href="#">	138	<a class="btn btn-default btn-xs dropdown-toggle" id="frameworkactions[% loo.frameworkcode \| html %]" role="button" data-toggle="dropdown" href="#">
Lines 196-202 Link Here
196	</div>	196	</div>
197	</td>	197	</td>
198	</tr>	198	</tr>
199
200	[% FOREACH loo IN frameworks %]	199	[% FOREACH loo IN frameworks %]
201	<tr>	200	<tr>
202	<td>[% loo.frameworkcode \| html %]</td>	201	<td>[% loo.frameworkcode \| html %]</td>

Lines 296-298 Cataloging: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (+7 lines)
296	- "All values of repeating tags and subfields will be printed with the given RIS tag."	296	- "All values of repeating tags and subfields will be printed with the given RIS tag."
297	- "<br/>"	297	- "<br/>"
298	- "Use of TY ( record type ) as a key will <i>replace</i> the default TY with the field value of your choosing."	298	- "Use of TY ( record type ) as a key will <i>replace</i> the default TY with the field value of your choosing."
		299	Holdings:
		300	-
		301	- pref: SummaryHoldings
		302	choices:
		303	yes: Use
		304	no: "Don't use"
		305	- summary holdings records.




[% USE Branches %]
[% USE Biblio %]
[% USE ColumnsSettings %]
[% USE Holdings %]
[% SET AdlibrisEnabled = Koha.Preference('AdlibrisCoversEnabled') %]
[% SET AdlibrisURL = Koha.Preference('AdlibrisCoversURL') %]


<ul>
    [% IF (SeparateHoldings) %]
        <li>
            <a href="#holdings">[% LoginBranchname | html %] [% IF (show_summary_holdings) %]items[% ELSE %]holdings[% END %] ([% itemloop.size() || 0 | html %])</a>
        </li>
        <li>
            <a href="#otherholdings">[% IF (show_summary_holdings) %]Other items[% ELSE %]Other holdings[% END %] ([% otheritemloop.size() || 0 | html %])</a>
        </li>
    [% ELSE %]
        <li>
            <a href="#holdings">[% IF (show_summary_holdings) %]Items[% ELSE %]Holdings[% END %] ([% itemloop.size() || 0 | html %])</a>
        </li>
    [% END %]
    [% IF (show_summary_holdings) %]
        <li><a href="#summaryholdings">Holdings ([% summary_holdings.count() || 0 | html %])</a></li>
    [% END %]
[% IF ( MARCNOTES || notes ) %]<li><a href="#description">Descriptions</a></li>[% END %]
[% IF ( subscriptionsnumber ) %]<li><a href="#subscriptions">Subscriptions</a></li>[% END %]
[% IF Koha.Preference('AcquisitionDetails') %]<li><a href="#acq_details">Acquisition details</a></li>[% END %]

[% END %]
</ul>

[% IF ( show_summary_holdings ) %]
    <div id="summaryholdings">

    [% IF ( summary_holdings ) %]
        <div class="summaryholdings_table_controls">
        </div>
        <table class="summaryholdings_table">
            <thead>
                <tr>
                    <th>Library</th>
                    <th>Location</th>
                    <th>Collection</th>
                    <th>Call number</th>
                    <th>Status</th>
                    [% IF ( CAN_user_editcatalogue_edit_items ) %]<th class="NoSort">&nbsp;</th>[% END %]
                </tr>
            </thead>
            <tbody>
                [% FOREACH holding IN summary_holdings %]
                    <tr>
                        <td class="branch">[% UNLESS ( singlebranchmode ) %][% Branches.GetName( holding.holdingbranch ) | html %] [% END %]</td>
                        <td class="location"><span class="shelvingloc">[% holding.location | html %]</span>
                        <td class="collection">[% holding.ccode | html %]</span>
                        <td class="itemcallnumber">[% IF ( holding.callnumber ) %] [% holding.callnumber | html %][% END %]</td>
                        <td class="status">
                            [% IF ( holding.suppress ) %]
                                <span class="suppressed">Suppressed in OPAC</span>
                            [% END %]
                        </td>
                    [% IF CAN_user_editcatalogue_edit_items %]
                        <td class="actions">
                            <a class="btn btn-default btn-xs" href="/cgi-bin/koha/cataloguing/addholding.pl?op=edit&biblionumber=[% holding.biblionumber | uri %]&holding_id=[% holding.holding_id | uri %]#editholding"><i class="fa fa-pencil"></i> Edit</a>
                            <a class="btn btn-default btn-xs delete" href="/cgi-bin/koha/cataloguing/addholding.pl?op=delete&biblionumber=[% holding.biblionumber | uri %]&holding_id=[% holding.holding_id | uri %]"><i class="fa fa-eraser"></i> Delete</a>
                            <a class="btn btn-default btn-xs" href="/cgi-bin/koha/cataloguing/additem.pl?biblionumber=[% holding.biblionumber | uri %]&holding_id=[% holding.holding_id | uri %]#additema"><i class="fa fa-plus"></i> Add item</a>
                            <a class="btn btn-default btn-xs previewMARC" href="/cgi-bin/koha/catalogue/showmarc.pl?holding_id=[% holding.holding_id | uri %]&amp;viewas=html" title="MARC">Show MARC</a>
                        </td>
                    [% END %]
                    </tr>
                [% END %]
            </tbody>
        </table>
    [% ELSE %]
        <div id="noitems">No holdings records</div>
    [% END %]

    </div>
[% END %]

[% items_table_block_iter = 0 %]
[% BLOCK items_table %]
    [% items_table_block_iter = items_table_block_iter + 1 %]

            <tr>
                [% IF (StaffDetailItemSelection) %]<th class="NoSort"></th>[% END %]
                [% IF ( item_level_itypes ) %]<th>Item type</th>[% END %]
                [% IF ( show_summary_holdings ) %]<th>Holdings record</th>[% END %]
                <th>Current location</th>
                <th>Home library</th>
                [% IF ( itemdata_ccode ) %]<th>Collection</th>[% END %]

                            [% item.translated_description | html %]
                        </td>
                    [% END %]
                    [% IF ( show_summary_holdings ) %]
                        <td class="holding">[% Holdings.GetLocation(item.holding_id) | html %]</td>
                    [% END %]
                    <td class="location">[% UNLESS ( singlebranchmode ) %][% Branches.GetName( item.branchcode ) | html %] [% END %]</td>
                    <td class="homebranch">
                        [% Branches.GetName(item.homebranch) | html %]

                    $("input[name='itemnumber'][type='checkbox']", $("#"+tab)).prop('checked', false);
                    itemSelectionBuildActionLinks(tab);
                });

                $('a.delete').click(function() {
                    return confirm(_("Are you sure?"));
                });
            });
        [% END %]

        $(document).ready(function() {
            $('#bibliodetails').tabs();
        [% IF count == 0 and not show_summary_holdings and ( Koha.Preference('HTML5MediaEnabled') == 'staff' or Koha.Preference('HTML5MediaEnabled') == 'both' ) %]
            $('#bibliodetails').tabs("option", "active", $('#media_tab').index() );
        [% END %]
            $('#search-form').focus();

Lines 4-9 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt (+2 lines)
4	[% USE Koha %]	4	[% USE Koha %]
5	[% USE Branches %]	5	[% USE Branches %]
6	[% USE Price %]	6	[% USE Price %]
		7	[% USE Holdings %]
7	[% SET footerjs = 1 %]	8	[% SET footerjs = 1 %]
8	[% INCLUDE 'doc-head-open.inc' %]	9	[% INCLUDE 'doc-head-open.inc' %]
9	<title>Koha &rsaquo; Catalog &rsaquo; Item details for [% INCLUDE 'biblio-title-head.inc' %]</title>	10	<title>Koha &rsaquo; Catalog &rsaquo; Item details for [% INCLUDE 'biblio-title-head.inc' %]</title>
Lines 62-67 Link Here
62	[% END %][% END %]</h4>	63	[% END %][% END %]</h4>
63	<div class="rows">	64	<div class="rows">
64	<ol class="bibliodetails">	65	<ol class="bibliodetails">
		66	<li><span class="label">Holdings record:</span> [% Holdings.GetLocation( ITEM_DAT.holding_id ) \| html %] </li>
65	<li><span class="label">Home library:</span> [% Branches.GetName( ITEM_DAT.homebranch ) \| html %] </li>	67	<li><span class="label">Home library:</span> [% Branches.GetName( ITEM_DAT.homebranch ) \| html %] </li>
66	[% IF ( item_level_itypes ) %]	68	[% IF ( item_level_itypes ) %]
67	<li><span class="label">Item type:</span> [% ITEM_DAT.itype \| html %] </li>	69	<li><span class="label">Item type:</span> [% ITEM_DAT.itype \| html %] </li>




[% USE Asset %]
[% USE Koha %]
[% USE Biblio %]
[% USE Holdings %]
[% USE KohaDates %]
[% PROCESS 'i18n.inc' %]
[% SET footerjs = 1 %]


                                            <td>
                                                <div class="availability">
                                                    [% IF ( SEARCH_RESULT.summary_holdings ) %]
                                                        <div class="holdings">
                                                            <strong>Holdings</strong>
                                                            <ul>
                                                            [% FOREACH holding IN SEARCH_RESULT.summary_holdings %]
                                                                <li>
                                                                    [% Holdings.GetLocation(holding) | html %]
                                                                </li>
                                                            [% END %]
                                                            </ul>
                                                        </div>
                                                    [% END %]

                                                    [% IF ( SEARCH_RESULT.items_count ) %]
                                                        <strong>
                                                            [% IF MaxSearchResultsItemsPerRecordStatusCheck && SEARCH_RESULT.items_count > MaxSearchResultsItemsPerRecordStatusCheck %]




[% USE raw %]
[% USE Asset %]
[% USE Koha %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Cataloging &rsaquo; [% title | html %] [% IF ( author ) %] by [% author | html %][% END %] (Record #[% biblionumber | html %]) &rsaquo; Holdings</title>
[% INCLUDE 'doc-head-close.inc' %]
[% Asset.js("lib/hc-sticky.js") | $raw %]
[% Asset.js("js/cataloging.js") | $raw %]
[% INCLUDE 'strings.inc' %]
[% Asset.js("js/browser.js") | $raw %]
[% Asset.css("css/addholding.css") | $raw %]
[% INCLUDE 'select2.inc' %]
</head>
<body id="cat_addholding" class="cat">

   <div id="loading">
       <div>Loading, please wait...</div>
   </div>

[% INCLUDE 'header.inc' %]

<div id="breadcrumbs">
          <a href="/cgi-bin/koha/mainpage.pl">Home</a>
 &rsaquo; <a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a>
 &rsaquo; Edit <a href="/cgi-bin/koha/cataloguing/addbiblio.pl?biblionumber=[% biblionumber | uri %]">[% title | html %] [% IF ( author ) %] by [% author | html %][% END %] (Record #[% biblionumber | html %])</a>
 &rsaquo; <a href="/cgi-bin/koha/cataloguing/addholding.pl?biblionumber=[% biblionumber | uri %]">Holdings</a>
</div>

<div class="main container-fluid">
    <div class="row">
        <div class="col-md-10 col-md-offset-1">

<h1>
[% IF ( holding_id ) %]Editing holdings record number [% holding_id | html %]
[% ELSE %]Add holdings record
[% END %]
</h1>

[% IF ( error_items_exist ) %]<div class="dialog alert"><strong>This holdings record has items attached.</strong> Please delete them first.</div>[% END %]
[% IF ( error_delete_failed ) %]<div class="dialog alert"><strong>Error deleting the record.</strong></div>[% END %]

[% IF ( done ) %]
    <script>
        opener.document.forms['f'].holding_id.value=[% holding_id | html %];
        window.close();
    </script>
[% ELSE %]
    <form method="post" name="f" id="f" action="/cgi-bin/koha/cataloguing/addholding.pl" onsubmit="return Check();">
    <input type="hidden" value="[% IF ( holding_id ) %]view[% ELSE %]holdings[% END %]" id="redirect" name="redirect" />
    <input type="hidden" value="" id="current_tab" name="current_tab" />
[% END %]

<div id="toolbar" class="btn-toolbar">
    [% IF CAN_user_editcatalogue_edit_items %]
        <div class="btn-group">
            <button class="btn btn-default btn-sm" id="saverecord"><i class="fa fa-save"></i> Save</button>
            <button class="btn btn-default btn-sm dropdown-toggle" data-toggle="dropdown">
            <span class="caret"></span>
            </button>
            <ul class="dropdown-menu">
                <li><a id="saveandview" href="#">Save and view record</a></li>
                <li><a id="saveanditems" href="#">Save and edit items</a></li>
                <li><a id="saveandcontinue" href="#">Save and continue editing</a></li>
            </ul>
        </div>
    [% END %]

    <div class="btn-group">
        <button class="btn btn-default btn-sm dropdown-toggle" data-toggle="dropdown"><i class="fa fa-cog"></i> Settings <span class="caret"></span></button>
        <ul id="settings-menu" class="dropdown-menu">
            [% IF Koha.Preference( 'EnableAdvancedCatalogingEditor' ) == 1 %]
                [% # disabled until supported <li><a href="#" id="switcheditor">Switch to advanced editor</a></li> %]
            [% END %]
            [% IF marcflavour != 'NORMARC' AND NOT advancedMARCEditor %]
                <li>
                    <a href="#" id="marcDocsSelect"><i class="fa fa-check-square-o"></i> Show MARC tag documentation links</a>
                <li>
                    <a href="#" id="marcTagsSelect"><i class="fa fa-check-square-o"></i> Show tags</a>
                </li>
            [% END %]
            <li class="divider"></li>
            <li class="nav-header">Change framework</li>
            <li>
                <a href="#" class="change-framework" data-frameworkcode="">
                    [% IF ( frameworkcode ) %]
                       <i class="fa fa-fw">&nbsp;</i>
                    [% ELSE %]
                        <i class="fa fa-fw fa-check"></i>
                    [% END %]
                    Default
                </a>
            </li>
            [% FOREACH framework IN frameworks%]
                <li>
                    <a href="#" class="change-framework" data-frameworkcode="[% framework.frameworkcode | html %]">
                        [% IF framework.frameworkcode == frameworkcode %]
                            <i class="fa fa-fw fa-check"></i>
                        [% ELSE %]
                            <i class="fa fa-fw">&nbsp;</i>
                        [% END %]
                        [% framework.frameworktext | html %]
                    </a>
                </li>
            [% END %]
        </ul>
    </div>
    <div class="btn-group">
        <a class="btn btn-default btn-sm" id="cancel" href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% biblionumber | url %]">Cancel</a>
    </div>
</div>

[% IF ( popup ) %]
        <input type="hidden" name="mode" value="popup" />
[% END %]
        <input type="hidden" name="op" value="add" />
        <input type="hidden" id="frameworkcode" name="frameworkcode" value="[% frameworkcode | html %]" />
        <input type="hidden" name="biblionumber" value="[% biblionumber | html %]" />
        <input type="hidden" name="holding_id" value="[% holding_id | html %]" />
        <input type="hidden" name="changed_framework" value="" />

<div id="addholdingtabs" class="toptabs numbered">
    <ul>
        [% FOREACH BIG_LOO IN BIG_LOOP %]
        <li><a href="#tab[% BIG_LOO.number | uri %]XX">[% BIG_LOO.number | html %]</a></li>
        [% END %]
    </ul>

[% FOREACH BIG_LOO IN BIG_LOOP %]
    <div id="tab[% BIG_LOO.number | html %]XX">

    [% FOREACH innerloo IN BIG_LOO.innerloop %]
    [% IF ( innerloo.tag ) %]
    <div class="tag" id="tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]">
        <div class="tag_title" id="div_indicator_tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]">
            [% IF advancedMARCEditor %]
                <a href="#" tabindex="1" class="tagnum" title="[% innerloo.tag_lib | html %] - Click to Expand this Tag" onclick="ExpandField('tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]'); return false;">[% innerloo.tag | html %]</a>
            [% ELSE %]
                <span class="tagnum" title="[% innerloo.tag_lib | html %]">[% innerloo.tag | html %]</span>
                [% IF marcflavour != 'NORMARC' %]<a href="#" class="marcdocs" onclick="PopupMARCFieldDoc('[% innerloo.tag | html %]'); return false;">&nbsp;?</a>[% END %]
            [% END %]
                [% IF ( innerloo.fixedfield ) %]
                    <input type="text"
                        tabindex="1"
                        class="indicator flat"
                        style="display:none;"
                        name="tag_[% innerloo.tag | html %]_indicator1_[% innerloo.index | html %][% innerloo.random | html %]"
                        size="1"
                        maxlength="1"
                        value="[% innerloo.indicator1 | html %]" />
                    <input type="text"
                        tabindex="1"
                        class="indicator flat"
                        style="display:none;"
                        name="tag_[% innerloo.tag | html %]_indicator2_[% innerloo.index | html %][% innerloo.random | html %]"
                        size="1"
                        maxlength="1"
                        value="[% innerloo.indicator2 | html %]" />
                [% ELSE %]
                    <input type="text"
                        tabindex="1"
                        class="indicator flat"
                        name="tag_[% innerloo.tag | html %]_indicator1_[% innerloo.index | html %][% innerloo.random | html %]"
                        size="1"
                        maxlength="1"
                        value="[% innerloo.indicator1 | html %]" />
                    <input type="text"
                        tabindex="1"
                        class="indicator flat"
                        name="tag_[% innerloo.tag | html %]_indicator2_[% innerloo.index | html %][% innerloo.random | html %]"
                        size="1"
                        maxlength="1"
                        value="[% innerloo.indicator2 | html %]" />
                [% END %] -

            [% UNLESS advancedMARCEditor %]
                <a href="#" tabindex="1" class="expandfield" onclick="ExpandField('tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]'); return false;" title="Click to Expand this Tag">[% innerloo.tag_lib | html %]</a>
            [% END %]
                <span class="field_controls">
                [% IF ( innerloo.repeatable ) %]
                    <a href="#" tabindex="1" class="buttonPlus" onclick="CloneField('tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]','0','[% advancedMARCEditor | html %]'); return false;" title="Repeat this Tag">
                        <img src="[% interface | html %]/[% theme | html %]/img/repeat-tag.png" alt="Repeat this Tag" />
                    </a>
                [% END %]
                    <a href="#" tabindex="1" class="buttonMinus" onclick="UnCloneField('tag_[% innerloo.tag | html %]_[% innerloo.index | html %][% innerloo.random | html %]'); return false;" title="Delete this Tag">
                        <img src="[% interface | html %]/[% theme | html %]/img/delete-tag.png" alt="Delete this Tag" />
                    </a>
                </span>

        </div>

        [% FOREACH subfield_loo IN innerloo.subfield_loop %]
            <!--  One line on the marc editor -->
            <div class="subfield_line" style="[% subfield_loo.visibility | html %]" id="subfield[% subfield_loo.tag | html %][% subfield_loo.subfield | html %][% subfield_loo.random | html %]">

                [% UNLESS advancedMARCEditor %]
                    [% IF ( subfield_loo.fixedfield ) %]<label for="tag_[% subfield_loo.tag | html %]_subfield_[% subfield_loo.subfield | html %]_[% subfield_loo.index | html %]_[% subfield_loo.index_subfield | html %]" style="display:none;" class="labelsubfield">
                    [% ELSE %]<label for="tag_[% subfield_loo.tag | html %]_subfield_[% subfield_loo.subfield | html %]_[% subfield_loo.index | html %]_[% subfield_loo.index_subfield | html %]" class="labelsubfield">
                    [% END %]
                [% END %]

                <span class="subfieldcode">
                    [% IF ( subfield_loo.fixedfield ) %]
                        <img class="buttonUp" style="display:none;" src="[% interface | html %]/[% theme | html %]/img/up.png" onclick="upSubfield('subfield[% subfield_loo.tag | html %][% subfield_loo.subfield | html %][% subfield_loo.random | html %]')" alt="Move Up" title="Move Up" />
                    [% ELSE %]
                        <img class="buttonUp" src="[% interface | html %]/[% theme | html %]/img/up.png" onclick="upSubfield('subfield[% subfield_loo.tag | html %][% subfield_loo.subfield | html %][% subfield_loo.random | html %]')" alt="Move Up" title="Move Up" />
                    [% END %]
                        <input type="text"
                            title="[% subfield_loo.marc_lib | html %]"
                            style=" [% IF ( subfield_loo.fixedfield ) %]display:none; [% END %]border:0;"
                            name="tag_[% subfield_loo.tag | html %]_code_[% subfield_loo.subfield | html %]_[% subfield_loo.index | html %]_[% subfield_loo.index_subfield | html %]"
                            value="[% subfield_loo.subfield | html %]"
                            size="1"
                            maxlength="1"
                            class="flat"
                            tabindex="0" />
                </span>

                [% UNLESS advancedMARCEditor %]
                    [% IF ( subfield_loo.mandatory ) %]<span class="subfield subfield_mandatory">[% ELSE %]<span class="subfield">[% END %]
                        [% subfield_loo.marc_lib | html %]
                        [% IF ( subfield_loo.mandatory ) %]<span class="mandatory_marker" title="This field is mandatory">*</span>[% END %]
                    </span>
                    </label>
                [% END %]

                [% SET mv = subfield_loo.marc_value %]
                [% IF ( mv.type == 'text' ) %]
                    [% IF ( mv.readonly == 1 ) %]
                    <input type="text" id="[%- mv.id | html -%]" name="[%- mv.name | html -%]" value="[%- mv.value | html -%]" class="input_marceditor readonly" tabindex="1" size="[%- mv.size | html -%]" maxlength="[%- mv.maxlength | html -%]" readonly="readonly" />
                    [% ELSE %]
                    <input type="text" id="[%- mv.id | html -%]" name="[%- mv.name | html -%]" value="[%- mv.value | html -%]" class="input_marceditor" tabindex="1" size="[%- mv.size | html -%]" maxlength="[%- mv.maxlength | html -%]" />
                    [% END %]
                    [% IF ( mv.authtype ) %]
                    <span class="subfield_controls"><a href="#" class="buttonDot tag_editor" onclick="openAuth(this.parentNode.parentNode.getElementsByTagName('input')[1].id,'[%- mv.authtype | html -%]','holding'); return false;" tabindex="1" title="Tag editor">Tag editor</a></span>
                    [% END %]
                [% ELSIF ( mv.type == 'text_complex' ) %]
                    <input type="text" id="[%- mv.id | html -%]" name="[%- mv.name | html -%]" value="[%- mv.value | html -%]" class="input_marceditor framework_plugin" tabindex="1" size="[%- mv.size | html -%]" maxlength="[%- mv.maxlength | html -%]" />
                    <span class="subfield_controls">
                        [% IF mv.noclick %]
                            <a href="#" class="buttonDot tag_editor disabled" tabindex="-1" title="No popup"></a>
                        [% ELSE %]
                            <a href="#" id="buttonDot_[% mv.id | html %]" class="buttonDot tag_editor framework_plugin" tabindex="1" title="Tag editor">Tag editor</a>
                        [% END %]
                    </span>
                    [% mv.javascript | $raw %]
                [% ELSIF ( mv.type == 'hidden' ) %]
                    <input tabindex="1" type="hidden" id="[%- mv.id | html -%]" name="[%- mv.name | html -%]" size="[%- mv.size | html -%]" maxlength="[%- mv.maxlength | html -%]" value="[%- mv.value | html -%]" />
                [% ELSIF ( mv.type == 'textarea' ) %]
                    <textarea cols="70" rows="4" id="[%- mv.id | html -%]" name="[%- mv.name | html -%]" class="input_marceditor" tabindex="1">[%- mv.value | html -%]</textarea>
                [% ELSIF ( mv.type == 'select' ) %]
                    <select name="[%- mv.name | html -%]" tabindex="1" size="1" class="input_marceditor" id="[%- mv.id | html -%]">
                    [% FOREACH aval IN mv.values %]
                        [% IF aval == mv.default %]
                        <option value="[%- aval | html -%]" selected="selected">[%- mv.labels.$aval | html -%]</option>
                        [% ELSE %]
                        <option value="[%- aval | html -%]">[%- mv.labels.$aval | html -%]</option>
                        [% END %]
                    [% END %]
                    </select>
                [% END %]

                <span class="subfield_controls">
                [% IF ( subfield_loo.repeatable ) %]
                    <a href="#" class="buttonPlus" tabindex="1" onclick="CloneSubfield('subfield[% subfield_loo.tag | html %][% subfield_loo.subfield | html %][% subfield_loo.random | html %]','[% advancedMARCEditor | html %]'); return false;">
                        <img src="[% interface | html %]/[% theme | html %]/img/clone-subfield.png" alt="Clone" title="Clone this subfield" />
                    </a>
                    <a href="#" class="buttonMinus" tabindex="1" onclick="UnCloneField('subfield[% subfield_loo.tag | html %][% subfield_loo.subfield | html %][% subfield_loo.random | html %]'); return false;">
                        <img src="[% interface | html %]/[% theme | html %]/img/delete-subfield.png" alt="Delete" title="Delete this subfield" />
                    </a>
                [% END %]
                </span>

            </div>
            <!-- End of the line -->
        [% END %]

    </div>
    [% END %]<!-- if innerloo.tag -->
    [% END %]<!-- BIG_LOO.innerloop -->
    </div>
[% END %]<!-- BIG_LOOP -->

</div><!-- tabs -->

</form>

</div>
</div>
</div>

<script>
    var browser = KOHA.browser('[% searchid | html %]', parseInt('[% biblionumber | html %]', 10));
    browser.show();

    $(window).load(function() {
        $("#loading").hide();
    });
    var Sticky;
    $(document).ready(function() {
        $('#addholdingtabs').tabs().bind('show.ui-tabs', function(e, ui) {
            $("#"+ui.panel.id+" input:eq(0)").focus();
        });

        [% IF tab %]
            $('#addholdingtabs').selectTabByID("#[% tab | html %]");
        [% END %]

        Sticky = $("#toolbar");
        Sticky.hcSticky({
            stickTo: ".main",
            stickyClass: "floating"
        });

        /* check cookie to hide/show marcdocs*/
        if($.cookie("marcdocs_[% borrowernumber | html %]") == 'hide'){
            toggleMARCdocLinks(false);
        } else {
            toggleMARCdocLinks(true);
        }

        $("#marcDocsSelect").click(function(){
            if($.cookie("marcdocs_[% borrowernumber | html %]") == 'hide'){
                toggleMARCdocLinks(true);
            } else {
                toggleMARCdocLinks(false);
            }
        });

        /* check cookie to hide/show marc tags*/
        var marctags_cookie = $.cookie("marctags_[% borrowernumber | html %]");
        if (marctags_cookie == 'hide'){
            toggleMARCTagLinks(false);
        } else if( marctags_cookie == 'show'){
            toggleMARCTagLinks(true)
        } else {
            [% UNLESS Koha.Preference("hide_marc") %]
                toggleMARCTagLinks(true)
            [% ELSE %]
                toggleMARCTagLinks(false);
            [% END %]
        }

        $("#marcTagsSelect").click(function(){
            if( $.cookie("marctags_[% borrowernumber | html %]") == 'hide'){
                toggleMARCTagLinks(true)
            } else {
                toggleMARCTagLinks(false);
            }
        });

        $("#saverecord").click(function(){
            $(".btn-group").removeClass("open");
            onOption();
            return false;
        });

        $("#saveandview").click(function(){
            $(".btn-group").removeClass("open");
            redirect("view");
            return false;
        });

        $("#saveanditems").click(function(){
            $(".btn-group").removeClass("open");
            redirect("items");
            return false;
        });
        $("#saveandcontinue").click(function(){
            $(".btn-group").removeClass("open");
            var tab = $("#addholdingtabs li.ui-tabs-active:first a").attr('href');
            tab = tab.replace('#', '');
            $("#current_tab").val(tab);
            redirect("just_save", tab);
            return false;
        });

        $( '#switcheditor' ).click( function() {

            if ( !confirm( _("Any changes will not be saved. Continue?") ) ) return false;

            $.cookie( 'catalogue_editor_[% USER_INFO.borrowernumber | html %]', 'advanced', { expires: 365, path: '/' } );

            var holding_id = [% holding_id || "''" | html %];
            window.location = '/cgi-bin/koha/cataloguing/editor.pl#catalog/' + biblionumber + '/holdings/' + holding_id;

            return false;
        } );
        $(".change-framework").on("click", function(){
            var frameworkcode = $(this).data("frameworkcode");
            $("#frameworkcode").val( frameworkcode );
            Changefwk();
        });
    });

function redirect(dest){
    $("#redirect").attr("value",dest);
    return Check();
}

[% IF ( CAN_user_editcatalogue_edit_items ) %]
    var onOption = function () {
        return Check();
    }
[% END %]

function Dopop(link,i) {
    defaultvalue = document.getElementById(i).value;
    window.open(link+"&result="+defaultvalue,"valuebuilder",'width=700,height=550,toolbar=false,scrollbars=yes');
}

function PopupMARCFieldDoc(field) {
    [% IF ( marcflavour == 'MARC21' ) %]
        _MARC21FieldDoc(field);
    [% ELSIF ( marcflavour == 'UNIMARC' ) %]
        _UNIMARCFieldDoc(field);
    [% END %]
}

function _MARC21FieldDoc(field) {
    if(field == 0) {
        window.open("http://www.loc.gov/marc/holdings/hdleader.html");
    } else if (field < 900) {
        window.open("http://www.loc.gov/marc/holdings/hd" + ("000"+field).slice(-3) + ".html");
    } else {
        window.open("http://www.loc.gov/marc/holdings/hd9xx.html");
    }
}

function _UNIMARCFieldDoc(field) {
    /* http://archive.ifla.org/VI/3/p1996-1/ is an outdated version of UNIMARC, but
       seems to be the only version available that can be linked to per tag.  More recent
       versions of the UNIMARC standard are available on the IFLA website only as
       PDFs!
    */
    var url;
    if (field == 0) {
        url = "http://archive.ifla.org/VI/3/p1996-1/uni.htm";
    } else {
        var first = field.substring(0,1);
        url = "http://archive.ifla.org/VI/3/p1996-1/uni" + first + ".htm#";
        if (first == 0) url = url + "b";
        url = first == 9
              ? "http://archive.ifla.org/VI/3/p1996-1/uni9.htm"
              : url + field;
    }
    window.open(url);
}

/*
 * Functions to hide/show marc docs and tags links
 */

function toggleMARCdocLinks(flag){
    if( flag === true ){
        $(".marcdocs").show();
        $.cookie("marcdocs_[% borrowernumber | html %]",'show', { path: "/", expires: 365 });
        $("#marcDocsSelect i").addClass('fa-check-square-o').removeClass('fa-square-o');
    } else {
        $(".marcdocs").hide();
        $.cookie("marcdocs_[% borrowernumber | html %]",'hide', { path: "/", expires: 365 });
        $("#marcDocsSelect i").removeClass('fa-check-square-o').addClass('fa-square-o');
    }
}

function toggleMARCTagLinks(flag){
    if( flag === true ){
        $(".tagnum").show();
        $(".subfieldcode").show();
        $.cookie("marctags_[% borrowernumber | html %]",'show', { path: "/", expires: 365 });
        $("#marcTagsSelect i").addClass('fa-check-square-o').removeClass('fa-square-o');
    } else {
        $(".tagnum").hide();
        $(".subfieldcode").hide();
        $.cookie("marctags_[% borrowernumber | html %]",'hide', { path: "/", expires: 365 });
        $("#marcTagsSelect i").removeClass('fa-check-square-o').addClass('fa-square-o');
    }
}

/**
 * check if mandatory subfields are written
 */
function AreMandatoriesNotOk(){
    var mandatories = new Array();
    var mandatoriesfields = new Array();
    var tab = new Array();
    var label = new Array();
    var flag=0;
    var tabflag= new Array();
    [% FOREACH BIG_LOO IN BIG_LOOP %]
        [% FOREACH innerloo IN BIG_LOO.innerloop %]
            [% IF ( innerloo.mandatory ) %]
                mandatoriesfields.push(new Array("[% innerloo.tag | html %]","[% innerloo.index | html %][% innerloo.random | html %]","[% innerloo.index | html %]"));
            [% END %]
            [% FOREACH subfield_loo IN innerloo.subfield_loop %]
                [% IF ( subfield_loo.mandatory ) %]
                    mandatories.push("[% subfield_loo.id | html %]");
                    tab.push("[% BIG_LOO.number | html %]");
                    label.push("[% subfield_loo.marc_lib | $raw %]");
                [% END %]
            [% END %]
        [% END %]
    [% END %]
    var StrAlert = _("Can't save this record because the following field aren't filled:");
    StrAlert += "\n\n";
    for (var i=0,len=mandatories.length; i<len ; i++) {
        var tag=mandatories[i].substr(4,3);
        var subfield=mandatories[i].substr(17,1);
        var tagnumber=mandatories[i].substr(19,mandatories[i].lastIndexOf("_")-19);
        if (tabflag[tag+subfield+tagnumber] ==  null) {
            tabflag[tag+subfield+tagnumber]=new Array();
            tabflag[tag+subfield+tagnumber][0]=0;
        }
        if (tabflag[tag+subfield+tagnumber][0] != 1 && (document.getElementById(mandatories[i]) != null && ! document.getElementById(mandatories[i]).value || document.getElementById(mandatories[i]) == null)) {
            tabflag[tag+subfield+tagnumber][0] = 0 + tabflag[tag+subfield+tagnumber] ;
            document.getElementById(mandatories[i]).setAttribute('class','subfield_not_filled');
            $('#' + mandatories[i]).focus();
            tabflag[tag+subfield+tagnumber][1]=label[i];
            tabflag[tag+subfield+tagnumber][2]=tab[i];
        } else {
            tabflag[tag+subfield+tagnumber][0] = 1;
        }
    }
    for (var tagsubfieldid in tabflag) {
      if (tabflag[tagsubfieldid][0]==0) {
        var tag=tagsubfieldid.substr(0,3);
        var subfield=tagsubfieldid.substr(3,1);
        StrAlert += "\t* "+_("tag %s subfield %s %s in tab %s").format(tag, subfield, tabflag[tagsubfieldid][1], tabflag[tagsubfieldid][2]) + "\n";
        flag=1;
      }
    }

    /* Check for mandatories field(not subfields) */
    for (var i=0,len=mandatoriesfields.length; i<len; i++) {
        isempty  = true;
        arr      = mandatoriesfields[i];
        divid    = "tag_" + arr[0] + "_" + arr[1];
        varegexp = new RegExp("^tag_" + arr[0] + "_code_");

        if(parseInt(arr[0]) >= 10) {
            elem = document.getElementById(divid);
            eleminputs = elem.getElementsByTagName('input');

            for(var j=0,len2=eleminputs.length; j<len2; j++){

                if(eleminputs[j].name.match(varegexp) && eleminputs[j].value){
                        inputregexp = new RegExp("^tag_" + arr[0] + "_subfield_" + eleminputs[j].value + "_" + arr[2]);

                        for( var k=0; k<len2; k++){
                            if(eleminputs[k].id.match(inputregexp) && eleminputs[k].value){
                                isempty = false
                            }
                        }

                        elemselect = elem.getElementsByTagName('select');
                        for( var k=0; k<elemselect.length; k++){
                            if(elemselect[k].id.match(inputregexp) && elemselect[k].value){
                                isempty = false
                            }
                        }
                }
            }

            elemtextareas = elem.getElementsByTagName('textarea');
            for(var j=0,len2=elemtextareas.length; j<len2; j++){
                // this bit assumes that the only textareas in this context would be for subfields
                if (elemtextareas[j].value) {
                    isempty = false;
                }
            }
        } else {
            isempty = false;
        }

        if (isempty) {
            flag = 1;
                    StrAlert += "\t* " + _("Field %s is mandatory, at least one of its subfields must be filled.").format(arr[0]) + "\n";
        }
    }

    if (flag) {
        return StrAlert;
    } else {
        return flag;
    }
}

/**
 *
 *
 */
function Check(){
    var StrAlert = AreMandatoriesNotOk();
    if( ! StrAlert ){
        document.f.submit();
        return true;
    } else {
        alert(StrAlert);
        return false;
    }
}

function Changefwk() {
    var f = document.f;
    f.op.value = "[% op | html %]";
    f.biblionumber.value = "[% biblionumber | html %]";
    f.holding_id.value = "[% holding_iddata | html %]";
    f.changed_framework.value = "changed";
    f.submit();
}

$(document).ready(function() {
    $('.subfield_line select').select2();
});
</script>


[% INCLUDE 'intranet-bottom.inc' %]




[% USE raw %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Holdings &rsaquo; 008 builder</title>
[% INCLUDE 'doc-head-close.inc' %]
</head>
<body id="cat_marc21_field_008_holdings" class="cat" style="padding:1em;">
<h3> 008 Fixed-length data elements</h3>
<form name="f_pop" onsubmit="report()" action="">
<input type="hidden" name="plugin_name" value="marc21_field_008_holdings.pl" />
<input name="f1" value="[% f1 | html %]" type="hidden" />
<table>
    <tr>
        <td>00-05 - Date entered on file</td>
        <td>[% f1 | html %]</td>
    </tr>
    <tr>
        <td><label for="f6">06 - Receipt or acquisition status</label></td>
        <td>
            <select name="f6" id="f6" size="1">
                <option value="0"[%- IF ( f60 ) -%] selected="selected"[%- END -%]>0 - Unknown</option>
                <option value="1"[%- IF ( f61 ) -%] selected="selected"[%- END -%]>1 - Other receipt or acquisition status</option>
                <option value="2"[%- IF ( f62 ) -%] selected="selected"[%- END -%]>2 - Received and complete or ceased</option>
                <option value="3"[%- IF ( f63 ) -%] selected="selected"[%- END -%]>3 - On order</option>
                <option value="4"[%- IF ( f64 ) -%] selected="selected"[%- END -%]>4 - Currently received</option>
                <option value="5"[%- IF ( f65 ) -%] selected="selected"[%- END -%]>5 - Not currently received</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f7">07 - Method of acquisition</label></td>
        <td>
            <select name="f7" id="f7" size="1">
                <option value="c"[%- IF ( f7c ) -%] selected="selected"[%- END -%]>c - Cooperative or consortial purchase</option>
                <option value="d"[%- IF ( f7d ) -%] selected="selected"[%- END -%]>d - Deposit</option>
                <option value="e"[%- IF ( f7e ) -%] selected="selected"[%- END -%]>e - Exchange</option>
                <option value="f"[%- IF ( f7f ) -%] selected="selected"[%- END -%]>f - Free</option>
                <option value="g"[%- IF ( f7g ) -%] selected="selected"[%- END -%]>g - Gift</option>
                <option value="l"[%- IF ( f7l ) -%] selected="selected"[%- END -%]>l - Legal deposit</option>
                <option value="m"[%- IF ( f7m ) -%] selected="selected"[%- END -%]>m - Membership</option>
                <option value="n"[%- IF ( f7n ) -%] selected="selected"[%- END -%]>n - Non-library purchase</option>
                <option value="p"[%- IF ( f7p ) -%] selected="selected"[%- END -%]>p - Purchase</option>
                <option value="q"[%- IF ( f7q ) -%] selected="selected"[%- END -%]>q - Lease</option>
                <option value="u"[%- IF ( f7u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
                <option value="z"[%- IF ( f7z ) -%] selected="selected"[%- END -%]>z - Other method of acquisition</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f8">08-11 - Expected acquisition end date</label></td>
        <td><input type="text" name="f8" id="f8" maxlength="4" size="5" value="[% f8 | html %]" /></td>
    </tr>
    <tr>
        <td><label for="f12">12- General retention policy</label></td>
        <td>
            <select name="f12" id="f12" size="1">
                <option value="0"[%- IF ( f120 ) -%] selected="selected"[%- END -%]>0 - Unknown</option>
                <option value="1"[%- IF ( f121 ) -%] selected="selected"[%- END -%]>1 - Other general retention policy</option>
                <option value="2"[%- IF ( f122 ) -%] selected="selected"[%- END -%]>2 - Retained except as replaced by updates</option>
                <option value="3"[%- IF ( f123 ) -%] selected="selected"[%- END -%]>3 - Sample issue retained</option>
                <option value="4"[%- IF ( f124 ) -%] selected="selected"[%- END -%]>4 - Retained until replaced by microform</option>
                <option value="5"[%- IF ( f125 ) -%] selected="selected"[%- END -%]>5 - Retained until replaced by cumulation, replacement volume, or revision</option>
                <option value="6"[%- IF ( f126 ) -%] selected="selected"[%- END -%]>6 - Retained for a limited period</option>
                <option value="7"[%- IF ( f127 ) -%] selected="selected"[%- END -%]>7 - Not retained</option>
                <option value="8"[%- IF ( f128 ) -%] selected="selected"[%- END -%]>8 - Permanently retained</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f13">13 - Policy type</label></td>
        <td>
            <select name="f13" id="f13" size="1">
                <option value=" "[%- IF ( f13 ) -%] selected="selected"[%- END -%]># - No information provided</option>
                <option value="l"[%- IF ( f13l ) -%] selected="selected"[%- END -%]>l - Latest</option>
                <option value="p"[%- IF ( f13p ) -%] selected="selected"[%- END -%]>p - Previous</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f14">14 - Number of units</label></td>
        <td>
            <select name="f14" id="f14" size="1">
                <option value=" "[%- IF ( f14 ) -%] selected="selected"[%- END -%]># - No information provided</option>
                <option value="1"[%- IF ( f141 ) -%] selected="selected"[%- END -%]>1</option>
                <option value="2"[%- IF ( f142 ) -%] selected="selected"[%- END -%]>2</option>
                <option value="3"[%- IF ( f143 ) -%] selected="selected"[%- END -%]>3</option>
                <option value="4"[%- IF ( f144 ) -%] selected="selected"[%- END -%]>4</option>
                <option value="5"[%- IF ( f145 ) -%] selected="selected"[%- END -%]>5</option>
                <option value="6"[%- IF ( f146 ) -%] selected="selected"[%- END -%]>6</option>
                <option value="7"[%- IF ( f147 ) -%] selected="selected"[%- END -%]>7</option>
                <option value="8"[%- IF ( f148 ) -%] selected="selected"[%- END -%]>8</option>
                <option value="9"[%- IF ( f149 ) -%] selected="selected"[%- END -%]>9 </option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f15">15 - Unit type</label></td>
        <td>
            <select name="f15" id="f15" size="1">
                <option value=" "[%- IF ( f15 ) -%] selected="selected"[%- END -%]># - No information provided</option>
                <option value="m"[%- IF ( f15m ) -%] selected="selected"[%- END -%]>m - Month(s)</option>
                <option value="w"[%- IF ( f15w ) -%] selected="selected"[%- END -%]>w - Week(s)</option>
                <option value="y"[%- IF ( f15y ) -%] selected="selected"[%- END -%]>y - Year(s)</option>
                <option value="e"[%- IF ( f15e ) -%] selected="selected"[%- END -%]>e - Edition(s)</option>
                <option value="i"[%- IF ( f15i ) -%] selected="selected"[%- END -%]>i - Issue(s)</option>
                <option value="s"[%- IF ( f15s ) -%] selected="selected"[%- END -%]>s - Supplement(s)</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f16">16 - Completeness</label></td>
        <td>
            <select name="f16" id="f16" size="1">
                <option value="0"[%- IF ( f160 ) -%] selected="selected"[%- END -%]>0 - Other</option>
                <option value="1"[%- IF ( f161 ) -%] selected="selected"[%- END -%]>1 - Complete</option>
                <option value="2"[%- IF ( f162 ) -%] selected="selected"[%- END -%]>2 - Incomplete</option>
                <option value="3"[%- IF ( f163 ) -%] selected="selected"[%- END -%]>3 - Scattered</option>
                <option value="4"[%- IF ( f164 ) -%] selected="selected"[%- END -%]>4 - Not applicable</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f17">17-19 - Number of copies reported</label></td>
        <td><input type="text" name="f17" id="f17" maxlength="3" size="4" value="[% f17 | html %]" /></td>
    </tr>
    <tr>
        <td><label for="f20">20 - Lending policy</label></td>
        <td>
            <select name="f20" id="f20" size="1">
                <option value="a"[%- IF ( f20a ) -%] selected="selected"[%- END -%]>a - Will lend</option>
                <option value="b"[%- IF ( f20b ) -%] selected="selected"[%- END -%]>b - Will not lend</option>
                <option value="c"[%- IF ( f20c ) -%] selected="selected"[%- END -%]>c - Will lend hard copy only</option>
                <option value="l"[%- IF ( f20l ) -%] selected="selected"[%- END -%]>l - Limited lending policy</option>
                <option value="u"[%- IF ( f20u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f21">21 - Reproduction policy</label></td>
        <td>
            <select name="f21" id="f21" size="1">
                <option value="a"[%- IF ( f21a ) -%] selected="selected"[%- END -%]>a - Will reproduce</option>
                <option value="b"[%- IF ( f21b ) -%] selected="selected"[%- END -%]>b - Will not reproduce</option>
                <option value="u"[%- IF ( f21u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f22">22-24 - Language</label></td>
        <td><input type="text" name="f22" id="f22" maxlength="3" size="4" value="[% f22 | html %]" /></td>
    </tr>
    <tr>
        <td><label for="f25">25 - Separate or composite copy report</label></td>
        <td>
            <select name="f25" id="f25" size="1">
                <option value="0"[%- IF ( f250 ) -%] selected="selected"[%- END -%]>0 - Separate copy report</option>
                <option value="1"[%- IF ( f251 ) -%] selected="selected"[%- END -%]>1 - Composite copy report</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f26">26-31 - Date of report</label></td>
        <td><input type="text" name="f26" id="f26" maxlength="6" size="7" value="[% f26 | html %]" /></td>
    </tr>
</table>
<fieldset class="action"><input type="submit" value="OK" /> <a href="#" class="cancel close">Cancel</a></fieldset>
</form>
<script>
    function report() {
        var doc   = opener.document;
        var field = doc.getElementById("[% index | html %]");

        field.value =
        document.f_pop.f1.value+
        document.f_pop.f6.value+
        document.f_pop.f7.value+
        (document.f_pop.f8.value + '    ').substr(0, 4)+
        document.f_pop.f12.value+
        document.f_pop.f13.value+
        document.f_pop.f14.value+
        document.f_pop.f15.value+
        document.f_pop.f16.value+
        (document.f_pop.f17.value + '   ').substr(0, 3)+
        document.f_pop.f20.value+
        document.f_pop.f21.value+
        (document.f_pop.f22.value + '   ').substr(0, 3)+
        document.f_pop.f25.value+
        document.f_pop.f26.value;
        self.close();
        return false;
    }
</script>

[% INCLUDE 'popup-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Holdings &rsaquo; 000 - Leader builder</title>
[% INCLUDE 'doc-head-close.inc' %]
</head>
<body id="cat_marc21_leader_holdings" class="cat" style="padding:1em;">
<form name="f_pop" onsubmit="report()" action="">
<input type="hidden" name="plugin_name" value="marc21_leader_holdings.pl" />
<h3>000 - Leader</h3>
<table>
    <tr>
        <td><span class="label">0-4 Record size</span></td>
        <td>(auto-filled)</td>
    </tr>
    <tr>
        <td><label for="f5">5 - Record status</label></td>
        <td>
            <select name="f5" id="f5" size="1">
                <option value="c"[%- IF ( f5c ) -%] selected="selected"[%- END -%]>c - Corrected or revised</option>
                <option value="d"[%- IF ( f5d ) -%] selected="selected"[%- END -%]>d - Deleted</option>
                <option value="n"[%- IF ( f5n ) -%] selected="selected"[%- END -%]>n - New</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f6">6 - Type of record</label></td>
        <td>
            <select name="f6" id="f6" size="1">
                <option value="u"[%- IF ( f6u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
                <option value="v"[%- IF ( f6v ) -%] selected="selected"[%- END -%]>v - Multipart item holdings</option>
                <option value="x"[%- IF ( f6x ) -%] selected="selected"[%- END -%]>x - Single-part item holdings</option>
                <option value="y"[%- IF ( f6y ) -%] selected="selected"[%- END -%]>y - Serial item holdings</option>
            </select>
        </td>
    </tr>
    <tr>
        <tr>07-08 - Undefined</tr>
        <tr>  </tr>
    </tr>
    <tr>
        <td>9 - Character coding scheme</td>
        <td>a - UCS/Unicode (auto-filled)</td>
    </tr>
    <tr>
        <td>10-16 - indicator/subfields/size</td>
        <td>(auto-filled)</td>
    </tr>
    <tr>
        <td><label for="f17">17 - Encoding level</label></td>
        <td>
            <select name="f17" id="f17" size="1">
                <option value="1"[%- IF ( f171 ) -%] selected="selected"[%- END -%]>1 - Holdings level 1</option>
                <option value="2"[%- IF ( f172 ) -%] selected="selected"[%- END -%]>2 - Holdings level 2</option>
                <option value="3"[%- IF ( f173 ) -%] selected="selected"[%- END -%]>3 - Holdings level 3</option>
                <option value="4"[%- IF ( f174 ) -%] selected="selected"[%- END -%]>4 - Holdings level 4</option>
                <option value="5"[%- IF ( f175 ) -%] selected="selected"[%- END -%]>5 - Holdings level 4 with piece designation</option>
                <option value="m"[%- IF ( f17m ) -%] selected="selected"[%- END -%]>m - Mixed level</option>
                <option value="u"[%- IF ( f17u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
                <option value="z"[%- IF ( f17z ) -%] selected="selected"[%- END -%]>z - Other level</option>
            </select>
        </td>
    </tr>
    <tr>
        <td><label for="f18">18 - Item information in record</label></td>
        <td>
            <select name="f18" id="f18" size="1">
                <option value="i"[%- IF ( f18i ) -%] selected="selected"[%- END -%]>i - Item information</option>
                <option value="n"[%- IF ( f18n ) -%] selected="selected"[%- END -%]>n - No item information</option>
            </select>
        </td>
    </tr>
    <tr>
        <td>19 - Undefined</td>
        <td></td>
    </tr>
    <tr>
        <td>20-24 - entry map &amp; lengths</td>
        <td>(auto-filled)</td>
    </tr>

</table>
<fieldset class="action"><input type="submit" value="OK" /> <a href="#" class="cancel close">Cancel</a></fieldset>
</form>
<script>
    function report() {
        var doc   = opener.document;
        var field = doc.getElementById("[% index | html %]");

        field.value =
        '     '+
        document.f_pop.f5.value+
        document.f_pop.f6.value+
        '  '+
        'a'+ // MARC21 UNICODE flag - must be 'a' for Koha
        '22     '+
        document.f_pop.f17.value+
        document.f_pop.f18.value+
        ' '+
        '4500';
        self.close();
        return false;
    }
</script>
[% INCLUDE 'popup-bottom.inc' %]

Lines 236-241 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/viewlog.tt (+2 lines)
236	<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% loopro.biblionumber \| uri %]" title="Display detail for this biblio">Biblio [% loopro.biblionumber \| html %]</a>	236	<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% loopro.biblionumber \| uri %]" title="Display detail for this biblio">Biblio [% loopro.biblionumber \| html %]</a>
237	[% ELSIF ( loopro.info.substr(0, 6) == 'biblio' ) %]	237	[% ELSIF ( loopro.info.substr(0, 6) == 'biblio' ) %]
238	<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% loopro.object \| uri %]" title="Display detail for this biblio">Biblio [% loopro.object \| html %]</a>	238	<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% loopro.object \| uri %]" title="Display detail for this biblio">Biblio [% loopro.object \| html %]</a>
		239	[% ELSIF ( loopro.info.substr(0, 7) == 'holding' ) %]
		240	<a href="/cgi-bin/koha/cataloguing/addholding.pl?op=edit&holding_id=[% loopro.object \| uri %]" title="Display detail for this holding">Holding [% loopro.object \| html %]</a>
239	[% ELSE %]	241	[% ELSE %]
240	[% loopro.object \| html %]	242	[% loopro.object \| html %]
241	[% END %]	243	[% END %]




[% USE Branches %]
[% USE ColumnsSettings %]
[% USE AuthorisedValues %]
[% USE Holdings %]
[% SET TagsShowEnabled = ( ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsShowOnDetail ) %]
[% SET TagsInputEnabled = ( ( Koha.Preference( 'opacuserlogin' ) == 1 ) && ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsInputOnDetail ) %]
[% IF Koha.Preference('AmazonAssocTag') %]

                                [% END %]
                            [% END %]
                        [% END # IF itemloop.size %]
                        [% IF summary_holdings %]
                            [% FOREACH holding IN summary_holdings %]
                                [% UNLESS holding.suppress %]
                                    [% holding_details = Holdings.GetDetails(holding) %]
                                    [% IF holding_details.public_note || holding_details.summary || holding_details.supplements || holding_details.indexes %]
                                        <span class="summary-holdings">
                                            <br>
                                            <strong>Additional information for [% Holdings.GetLocation(holding, 1) | html %]</strong>
                                            <ul>
                                                [% IF holding_details.public_note %]
                                                    <li>Public note: [% holding_details.public_note | html %]</li>
                                                [% END %]
                                                [% IF holding_details.summary %]
                                                    <li>Summary: [% holding_details.summary | html %]</li>
                                                [% END %]
                                                [% IF holding_details.supplements %]
                                                    <li>Supplements: [% holding_details.supplements | html %]</li>
                                                [% END %]
                                                [% IF holding_details.indexes %]
                                                    <li>Indexes: [% holding_details.indexes | html %]</li>
                                                [% END %]
                                            </ul>
                                        </span>
                                    [% END %]
                                [% END %]
                            [% END %]
                        [% END %]
                        [% PROCESS 'shelfbrowser.inc' %]
                        [% INCLUDE shelfbrowser tab='holdings' %]
                        <br style="clear:both;" />




[% USE raw %]
[% USE Asset %]
[% USE Koha %]
[% USE Holdings %]
[% SET TagsShowEnabled = ( ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsShowOnList ) %]
[% SET TagsInputEnabled = ( ( Koha.Preference( 'opacuserlogin' ) == 1 ) && ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsInputOnList ) %]
[% SET AdlibrisEnabled = Koha.Preference('AdlibrisCoversEnabled') %]

                                                                    [% END %]
                                                                [% ELSE %]
                                                                    <span class="unavailable">No items available:</span>
                                                                    [% IF ( SEARCH_RESULT.summary_holdings ) %]
                                                                        <span class="summary-holdings">
                                                                            [% FOREACH holding IN SEARCH_RESULT.summary_holdings %]
                                                                                [% UNLESS holding.suppress %]
                                                                                    [% Holdings.GetLocation(holding, 1) | html %],
                                                                                [% END %]
                                                                            [% END %]
                                                                        </span>
                                                                    [% END %]
                                                                [% END %]
                                                            [% END # / IF SEARCH_RESULT.available_items_loop.size %]





<xsl:stylesheet version="1.0"
  xmlns:marc="http://www.loc.gov/MARC21/slim"
  xmlns:items="http://www.koha-community.org/items"
  xmlns:holdings="http://www.koha-community.org/holdings"
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:str="http://exslt.org/strings"
  exclude-result-prefixes="marc items holdings">
    <xsl:import href="MARC21slimUtils.xsl"/>
    <xsl:output method = "html" indent="yes" omit-xml-declaration = "yes" encoding="UTF-8"/>
    <xsl:key name="item-by-status" match="items:item" use="items:status"/>

                            </xsl:for-each>
                            (<xsl:value-of select="$AlternateHoldingsCount"/>)
                            </xsl:when>
                            <xsl:otherwise>
                                <span class="noitems">No items available </span>
                                <xsl:if test="//holdings:holdings/holdings:holding/holdings:suppress[.='0']">:
                                    <xsl:for-each select="//holdings:holdings/holdings:holding[./holdings:suppress='0']">
                                        <xsl:if test="position() > 1">, </xsl:if>
                                        <xsl:value-of select="./holdings:holdingbranch"/>
                                        <xsl:if test="string-length(./holdings:location) > 0">
                                        - <xsl:value-of select="./holdings:location"/>
                                        </xsl:if>
                                        <xsl:if test="string-length(./holdings:callnumber) > 0">
                                        - <xsl:value-of select="./holdings:callnumber"/>
                                        </xsl:if>
                                    </xsl:for-each>
                                </xsl:if>
                            </xsl:otherwise>
                        </xsl:choose>
				   </xsl:when>
                   <xsl:when test="count(key('item-by-status', 'available'))>0">

Lines 749-754 if (scalar(@itemloop) == 0 \|\| scalar(@otheritemloop) == 0) { Link Here

(-)a/opac/opac-detail.pl (+7 lines)
749	}	749	}
750	}	750	}
751		751
		752	# Fetch summary holdings
		753	if (C4::Context->preference('SummaryHoldings')) {
		754	my $summary_holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef });
		755	$template->param( summary_holdings => $summary_holdings );
		756	}
		757
		758
752	## get notes and subjects from MARC record	759	## get notes and subjects from MARC record
753	if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) {	760	if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) {
754	my $marcisbnsarray = GetMarcISBN ($record,$marcflavour);	761	my $marcisbnsarray = GetMarcISBN ($record,$marcflavour);




#!/usr/bin/perl

# 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 <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 3;

use t::lib::TestBuilder;

use C4::Biblio;

use Koha::BiblioFrameworks;
use Koha::Database;
use Koha::Libraries;
use Koha::Library;
use Koha::MarcSubfieldStructures;

BEGIN {
    use_ok('Koha::Holding');
    use_ok('Koha::Holdings');
}

my $schema = Koha::Database->new->schema;

subtest 'Koha::Holding tests' => sub {

    plan tests => 19;

    $schema->storage->txn_begin;

    # Add a framework
    my $frameworkcode = 'HLD';
    my $existing_mss = Koha::MarcSubfieldStructures->search({frameworkcode => $frameworkcode});
    $existing_mss->delete() if $existing_mss;
    my $existing_fw = Koha::BiblioFrameworks->find({frameworkcode => $frameworkcode});
    $existing_fw->delete() if $existing_fw;
    Koha::BiblioFramework->new({
        frameworkcode => $frameworkcode,
        frameworktext => 'Holdings'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 852,
        tagsubfield => 'b',
        kohafield => 'holdings.holdingbranch'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 852,
        tagsubfield => 'c',
        kohafield => 'holdings.location'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 942,
        tagsubfield => 'n',
        kohafield => 'holdings.suppress'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 999,
        tagsubfield => 'c',
        kohafield => 'biblio.biblionumber'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 999,
        tagsubfield => 'e',
        kohafield => 'holdings.holding_id'
    })->store();

    # Add a branch
    Koha::Library->new({ branchcode => 'ABC', branchname => 'Abc' })->store() unless Koha::Libraries->find({ branchcode => 'ABC' });

    # Add a biblio
    my $title = 'Oranges and Peaches';
    my $record = MARC::Record->new();
    my $field = MARC::Field->new('245','','','a' => $title);
    $record->append_fields( $field );
    my ($biblionumber) = C4::Biblio::AddBiblio($record, '');

    # Add a holdings record
    my $holding_marc = MARC::Record->new();
    $holding_marc->append_fields(MARC::Field->new('852','','','b' => 'ABC', 'c' => 'DEF'));
    my $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
    is ($new_holding->set_marc({record => $holding_marc}), $new_holding, 'set_marc() returns the object');
    is($new_holding->store(), $new_holding, 'store() returns the object on create');
    is(defined $new_holding->holding_id(), 1, 'Newly added holdings record has a holding_id');

    # Check that the added record can be found and looks right
    my $holding = Koha::Holdings->find($new_holding->holding_id());
    is(ref $holding, 'Koha::Holding', 'Found a Koha::Holding object');
    is($holding->frameworkcode(), $frameworkcode, 'Framework code correct in Koha::Holding object');
    is($holding->holdingbranch(), 'ABC', 'Location correct in Koha::Holding object');

    my $branch = $holding->holding_branch();
    is(ref $branch, 'Koha::Library', 'holding_branch() returns a Koha::Library object');
    is($branch->branchname(), 'Abc', 'holding_branch() returns correct library');

    my $metadata = $holding->metadata;
    is( ref $metadata, 'Koha::Holdings::Metadata', 'Method metadata() returned a Koha::Holdings::Metadata object');

    my $holding_marc2 = $metadata->record;
    is(ref $holding_marc2, 'MARC::Record', 'Method record() returned a MARC::Record object');
    is($holding_marc2->field('852')->subfield('b'), 'ABC', 'Location in 852$b matches location from original record object');

    # Test updating the record
    $holding_marc2->append_fields(MARC::Field->new('942','','','n' => '1'));
    is($holding->set_marc({record => $holding_marc2}), $holding, 'set_marc() returns the object on update');
    is($holding->store(), $holding, 'store() returns the object on update');

    is($holding->suppress(), 1, 'Holdings record is suppressed');

    # Test misc methods
    my %mapping = Koha::Holding->get_marc_field_mapping({ field => 'holdings.location' });
    is_deeply(
        \%mapping,
        {852 => 'c'},
        'get_marc_field_mapping returns correct data'
    );

    my $fields = Koha::Holding->marc_to_koha_fields({ record => $holding_marc2 });
    is_deeply(
        $fields,
        {
            holdingbranch => 'ABC',
            location => 'DEF',
            suppress => 1,
            holding_id => $new_holding->holding_id()
        },
        'marc_to_koha_fields returns correct data'
    );

    # Test deletion
    is(defined $holding->deleted_on(), '', 'Holdings record not marked as deleted');
    $holding->delete();
    $holding = Koha::Holdings->find($new_holding->holding_id());
    is(defined $holding->deleted_on(), 1, 'Holdings record marked as deleted');
    is(defined $holding->metadata()->deleted_on(), 1, 'Holdings metadata record marked as deleted');

    $schema->storage->txn_rollback;
};




#!/usr/bin/perl

# 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 <http://www.gnu.org/licenses>.

use Modern::Perl;

use Test::More tests => 2;

use t::lib::TestBuilder;

use C4::Biblio;

use Koha::BiblioFrameworks;
use Koha::Database;
use Koha::MarcSubfieldStructures;

BEGIN {
    use_ok('Koha::Holdings');
}

my $schema = Koha::Database->new->schema;

subtest 'Koha::Holdings tests' => sub {

    plan tests => 3;

    $schema->storage->txn_begin;

    # Add a framework
    my $frameworkcode = 'HLD';
    my $existing_mss = Koha::MarcSubfieldStructures->search({frameworkcode => $frameworkcode});
    $existing_mss->delete() if $existing_mss;
    my $existing_fw = Koha::BiblioFrameworks->find({frameworkcode => $frameworkcode});
    $existing_fw->delete() if $existing_fw;
    Koha::BiblioFramework->new({
        frameworkcode => $frameworkcode,
        frameworktext => 'Holdings'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 852,
        tagsubfield => 'b',
        kohafield => 'holdings.holdingbranch'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 852,
        tagsubfield => 'c',
        kohafield => 'holdings.location'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 999,
        tagsubfield => 'c',
        kohafield => 'biblio.biblionumber'
    })->store();
    Koha::MarcSubfieldStructure->new({
        frameworkcode => $frameworkcode,
        tagfield => 999,
        tagsubfield => 'e',
        kohafield => 'holdings.holding_id'
    })->store();

    # Add branches
    Koha::Library->new({ branchcode => 'ABC', branchname => 'Abc' })->store() unless Koha::Libraries->find({ branchcode => 'ABC' });
    Koha::Library->new({ branchcode => 'BCD', branchname => 'Bcd' })->store() unless Koha::Libraries->find({ branchcode => 'BCD' });

    # Add a biblio
    my $title = 'Oranges and Peaches';
    my $record = MARC::Record->new();
    my $field = MARC::Field->new('245','','','a' => $title);
    $record->append_fields( $field );
    my ($biblionumber) = C4::Biblio::AddBiblio($record, '');

    # Add a couple of holdings records
    my $holding_marc = MARC::Record->new();
    $holding_marc->append_fields(MARC::Field->new('852','','','b' => 'ABC', 'c' => 'DEF'));
    my $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
    $new_holding->set_marc({record => $holding_marc})->store();

    $holding_marc = MARC::Record->new();
    $holding_marc->append_fields(MARC::Field->new('852','','','b' => 'BCD', 'c' => 'DEF'));
    $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
    $new_holding->set_marc({record => $holding_marc})->store();

    # Add and delete a holdings record
    $holding_marc = MARC::Record->new();
    $holding_marc->append_fields(MARC::Field->new('852','','','b' => 'BCD', 'c' => 'DEF'));
    $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
    $new_holding->set_marc({record => $holding_marc})->store();
    $new_holding->delete();

    # Test results
    my $fields = Koha::Holdings->get_embeddable_marc_fields({ biblionumber => $biblionumber});
    is(scalar(@{$fields}), 2, 'get_embeddable_marc_fields returns two fields');
    is($fields->[0]->as_string, 'ABC DEF', 'get_embeddable_marc_fields returns correct data in first field');
    is($fields->[1]->as_string, 'BCD DEF', 'get_embeddable_marc_fields returns correct data in second field');

    $schema->storage->txn_rollback;
};





use C4::Biblio;

use Koha::Holdings;
use Koha::Items;
use Koha::Database;


    $schema->storage->txn_rollback;
};

subtest 'adopt_holdings_from_biblio() tests' => sub {

    plan tests => 19;

    $schema->storage->txn_begin;



    my $source_biblionumber = $source_biblio->biblionumber;

    my $library = $builder->build_object({ class => 'Koha::Libraries' });

    my $holding_marc = MARC::Record->new();
    $holding_marc->append_fields(MARC::Field->new('852','','','b' => $library->branchcode));
    my $source_holding = Koha::Holding->new({ biblionumber => $source_biblionumber, frameworkcode => '' });
    $source_holding->set_marc({record => $holding_marc});
    $source_holding->store();

    my $standalone_holding = Koha::Holding->new({ biblionumber => $source_biblionumber, frameworkcode => '' });
    $standalone_holding->set_marc({record => $holding_marc});
    $standalone_holding->store();

    my $item1 = $builder->build_sample_item({ biblionumber => $source_biblionumber });
    $item1->set({ holding_id => $source_holding->holding_id() })->store();
    my $item2 = $builder->build_sample_item({ biblionumber => $source_biblionumber });
    $item2->set({ holding_id => $source_holding->holding_id() })->store();

    my $itemnumber1 = $item1->itemnumber;
    my $itemnumber2 = $item2->itemnumber;

    my $library = $builder->build_object({ class => 'Koha::Libraries' });

    my $patron = $builder->build_object({
        class => 'Koha::Patrons',
        value => { branchcode => $library->branchcode, }

    @result = $dbh->selectrow_array('SELECT biblionumber FROM items WHERE itemnumber = ?', undef, $itemnumber2);
    is($result[0], $source_biblionumber, 'Correct biblionumber in the unmoved item');

    my $target_holdings = $target_biblio->holdings();
    is($target_holdings->count, 1, 'Holdings record created in target biblio');

    @result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber1);
    is($result[0], $target_holdings->next()->holding_id(), 'Correct holding_id in the moved item');

    @result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber2);
    is($result[0], $source_holding->holding_id(), 'Correct holding_id in the unmoved item');

    @result = $dbh->selectrow_array('SELECT biblionumber FROM aqorders WHERE ordernumber = ?', undef, $ordernumber1);
    is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in aqorders for order with the moved item');


    @result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2);
    is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');

    @result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber1);
    is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in linktracker for moved item');

    @result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2);
    is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');

    # Move everything
    $target_biblio->adopt_holdings_from_biblio($source_biblio);

    @result = $dbh->selectrow_array('SELECT biblionumber FROM holdings WHERE holding_id = ?', undef, $standalone_holding->holding_id);
    is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in the standalone holdings record');

    @result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber2);
    is($result[0], $source_holding->holding_id(), 'Correct holding_id in the second moved item');

    $schema->storage->txn_rollback;
};

Lines 93-99 if ($completedJobID) { Link Here

(-)a/tools/stage-marc-import.pl (-2 / +1 lines)
93		93
94	my ( $errors, $marcrecords );	94	my ( $errors, $marcrecords );
95	if( $format eq 'MARCXML' ) {	95	if( $format eq 'MARCXML' ) {
96	( $errors, $marcrecords ) = C4::ImportBatch::RecordsFromMARCXMLFile( $file, $encoding);	96	( $errors, $marcrecords ) = C4::ImportBatch::RecordsFromMARCXMLFile( $file, $record_type, $encoding);
97	} elsif( $format eq 'ISO2709' ) {	97	} elsif( $format eq 'ISO2709' ) {
98	( $errors, $marcrecords ) = C4::ImportBatch::RecordsFromISO2709File( $file, $record_type, $encoding );	98	( $errors, $marcrecords ) = C4::ImportBatch::RecordsFromISO2709File( $file, $record_type, $encoding );
99	} else { # plugin based	99	} else { # plugin based
100	-

Return to bug 20447

Lines 100-105 use Koha::Caches; Link Here

(-)a/C4/Biblio.pm (-6 / +35 lines)
100	use Koha::Authority::Types;	100	use Koha::Authority::Types;
101	use Koha::Acquisition::Currencies;	101	use Koha::Acquisition::Currencies;
102	use Koha::Biblio::Metadatas;	102	use Koha::Biblio::Metadatas;
		103	use Koha::Holdings;
103	use Koha::Holds;	104	use Koha::Holds;
104	use Koha::ItemTypes;	105	use Koha::ItemTypes;
105	use Koha::Plugins;	106	use Koha::Plugins;
Lines 1380-1385 sub GetAuthorisedValueDesc { Link Here
1380	return $itemtype ? $itemtype->translated_description : q\|\|;	1381	return $itemtype ? $itemtype->translated_description : q\|\|;
1381	}	1382	}
1382		1383
		1384	#---- holdings
		1385	if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "holdings" ) {
		1386	my $holding = Koha::Holdings->find( $value );
		1387	if ( $holding ) {
		1388	my @parts;
		1389
		1390	push @parts, $value;
		1391	push @parts, $holding->holdingbranch() if $holding->holdingbranch();
		1392	push @parts, $holding->location() if $holding->location();
		1393	push @parts, $holding->ccode() if $holding->ccode();
		1394	push @parts, $holding->callnumber() if $holding->callnumber();
		1395
		1396	return join(' ', @parts);
		1397	}
		1398	return q\|\|;
		1399	}
		1400
1383	#---- "true" authorized value	1401	#---- "true" authorized value
1384	$category = $tagslib->{$tag}->{$subfield}->{'authorised_value'};	1402	$category = $tagslib->{$tag}->{$subfield}->{'authorised_value'};
1385	}	1403	}
Lines 2588-2601 sub ModZebra { Link Here
2588	=head2 EmbedItemsInMarcBiblio	2606	=head2 EmbedItemsInMarcBiblio
2589		2607
2590	EmbedItemsInMarcBiblio({	2608	EmbedItemsInMarcBiblio({
2591	marc_record => $marc,	2609	marc_record => $marc,
2592	biblionumber => $biblionumber,	2610	biblionumber => $biblionumber,
2593	item_numbers => $itemnumbers,	2611	item_numbers => $itemnumbers,
2594	opac => $opac });	2612	opac => $opac,
		2613	skip_holdings => 1 });
2595		2614
2596	Given a MARC::Record object containing a bib record,	2615	Given a MARC::Record object containing a bib record,
2597	modify it to include the items attached to it as 9XX	2616	modify it to include the items attached to it as 9XX
2598	per the bib's MARC framework.	2617	per the bib's MARC framework and any holdings location information.
2599	if $itemnumbers is defined, only specified itemnumbers are embedded.	2618	if $itemnumbers is defined, only specified itemnumbers are embedded.
2600		2619
2601	If $opac is true, then opac-relevant suppressions are included.	2620	If $opac is true, then opac-relevant suppressions are included.
Lines 2603-2613 If $opac is true, then opac-relevant suppressions are included. Link Here
2603	If opac filtering will be done, borcat should be passed to properly	2622	If opac filtering will be done, borcat should be passed to properly
2604	override if necessary.	2623	override if necessary.
2605		2624
		2625	If $skip_holdings is set, it overrides the default of embedding basic
		2626	location information from holdings records if summary holdings are
		2627	enabled.
		2628
2606	=cut	2629	=cut
2607		2630
2608	sub EmbedItemsInMarcBiblio {	2631	sub EmbedItemsInMarcBiblio {
2609	my ($params) = @_;	2632	my ($params) = @_;
2610	my ($marc, $biblionumber, $itemnumbers, $opac, $borcat);	2633	my ($marc, $biblionumber, $itemnumbers, $opac, $borcat, $skip_holdings);
2611	$marc = $params->{marc_record};	2634	$marc = $params->{marc_record};
2612	if ( !$marc ) {	2635	if ( !$marc ) {
2613	carp 'EmbedItemsInMarcBiblio: No MARC record passed';	2636	carp 'EmbedItemsInMarcBiblio: No MARC record passed';
Lines 2617-2625 sub EmbedItemsInMarcBiblio { Link Here
2617	$itemnumbers = $params->{item_numbers};	2640	$itemnumbers = $params->{item_numbers};
2618	$opac = $params->{opac};	2641	$opac = $params->{opac};
2619	$borcat = $params->{borcat} // q{};	2642	$borcat = $params->{borcat} // q{};
		2643	$skip_holdings = $params->{skip_holdings} // 0;
2620		2644
2621	$itemnumbers = [] unless defined $itemnumbers;	2645	$itemnumbers = [] unless defined $itemnumbers;
2622		2646
		2647	if ( !$skip_holdings && C4::Context->preference('SummaryHoldings') && !@$itemnumbers ) {
		2648	my $holdings_fields = Koha::Holdings->get_embeddable_marc_fields({ biblionumber => $biblionumber });
		2649	$marc->append_fields(@$holdings_fields) if ( @$holdings_fields );
		2650	}
		2651
2623	my $frameworkcode = GetFrameworkCode($biblionumber);	2652	my $frameworkcode = GetFrameworkCode($biblionumber);
2624	_strip_item_fields($marc, $frameworkcode);	2653	_strip_item_fields($marc, $frameworkcode);
2625		2654

Lines 1503-1515 sub RecordsFromISO2709File { Link Here

(-)a/C4/ImportBatch.pm (-2 / +26 lines)
1503		1503
1504	open IN, "<$input_file" or die "$0: cannot open input file $input_file: $!\n";	1504	open IN, "<$input_file" or die "$0: cannot open input file $input_file: $!\n";
1505	my @marc_records;	1505	my @marc_records;
		1506	my $count = 0;
1506	$/ = "\035";	1507	$/ = "\035";
1507	while (<IN>) {	1508	while (<IN>) {
1508	s/^\s+//;	1509	s/^\s+//;
1509	s/\s+$//;	1510	s/\s+$//;
1510	next unless $_; # skip if record has only whitespace, as might occur	1511	next unless $_; # skip if record has only whitespace, as might occur
1511	# if file includes newlines between each MARC record	1512	# if file includes newlines between each MARC record
		1513	++$count;
1512	my ($marc_record, $charset_guessed, $char_errors) = MarcToUTF8Record($_, $marc_type, $encoding);	1514	my ($marc_record, $charset_guessed, $char_errors) = MarcToUTF8Record($_, $marc_type, $encoding);
		1515	# Ignore holdings records
		1516	if ($record_type eq 'biblio' && $marc_type eq 'MARC21') {
		1517	my $leader = $marc_record->leader();
		1518	if ($leader =~ /^.{6}[uvxy]/) {
		1519	push @errors, "Ignoring record $count (holdings record)";
		1520	next;
		1521	}
		1522	}
		1523
1513	push @marc_records, $marc_record;	1524	push @marc_records, $marc_record;
1514	if ($charset_guessed ne $encoding) {	1525	if ($charset_guessed ne $encoding) {
1515	push @errors,	1526	push @errors,
Lines 1534-1548 Returns two array refs. Link Here
1534	=cut	1545	=cut
1535		1546
1536	sub RecordsFromMARCXMLFile {	1547	sub RecordsFromMARCXMLFile {
1537	my ( $filename, $encoding ) = @_;	1548	my ( $filename, $record_type, $encoding ) = @_;
		1549
		1550	my $marcflavour = C4::Context->preference('marcflavour');
1538	my $batch = MARC::File::XML->in( $filename );	1551	my $batch = MARC::File::XML->in( $filename );
1539	my ( @marcRecords, @errors, $record );	1552	my ( @marcRecords, @errors, $record );
		1553	my $count = 0;
1540	do {	1554	do {
		1555	++$count;
1541	eval { $record = $batch->next( $encoding ); };	1556	eval { $record = $batch->next( $encoding ); };
1542	if ($@) {	1557	if ($@) {
1543	push @errors, $@;	1558	push @errors, $@;
1544	}	1559	}
1545	push @marcRecords, $record if $record;	1560	# Ignore holdings records
		1561	my $valid = 1;
		1562	if ($record && $record_type eq 'biblio' && $marcflavour eq 'MARC21') {
		1563	my $leader = $record->leader();
		1564	if ($leader =~ /^.{6}[uvxy]/) {
		1565	push @errors, "Ignoring record $count (holdings record)";
		1566	$valid = 0;
		1567	}
		1568	}
		1569	push @marcRecords, $record if $record && $valid;
1546	} while( $record );	1570	} while( $record );
1547	return (\@errors, \@marcRecords);	1571	return (\@errors, \@marcRecords);
1548	}	1572	}

Lines 74-79 use Koha::Database; Link Here

(-)a/C4/Items.pm (-2 / +6 lines)
74		74
75	use Koha::Biblios;	75	use Koha::Biblios;
76	use Koha::Biblioitems;	76	use Koha::Biblioitems;
		77	use Koha::Holdings;
77	use Koha::Items;	78	use Koha::Items;
78	use Koha::ItemTypes;	79	use Koha::ItemTypes;
79	use Koha::SearchEngine;	80	use Koha::SearchEngine;
Lines 401-406 sub _build_default_values_for_mod_marc { Link Here
401	stocknumber => undef,	402	stocknumber => undef,
402	uri => undef,	403	uri => undef,
403	withdrawn => 0,	404	withdrawn => 0,
		405	holding_id => undef,
404	};	406	};
405	my %default_values_for_mod_from_marc;	407	my %default_values_for_mod_from_marc;
406	while ( my ( $field, $default_value ) = each %$default_values ) {	408	while ( my ( $field, $default_value ) = each %$default_values ) {
Lines 1067-1073 Item's itemcallnumber Link Here
1067	Item's call number normalized for sorting	1069	Item's call number normalized for sorting
1068		1070
1069	=back	1071	=back
1070		1072
1071	=cut	1073	=cut
1072		1074
1073	sub GetItemsLocationInfo {	1075	sub GetItemsLocationInfo {
Lines 1594-1600 sub _koha_new_item { Link Here
1594	more_subfields_xml = ?,	1596	more_subfields_xml = ?,
1595	copynumber = ?,	1597	copynumber = ?,
1596	stocknumber = ?,	1598	stocknumber = ?,
1597	new_status = ?	1599	new_status = ?,
		1600	holding_id = ?
1598	";	1601	";
1599	my $sth = $dbh->prepare($query);	1602	my $sth = $dbh->prepare($query);
1600	my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });	1603	my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
Lines 1638-1643 sub _koha_new_item { Link Here
1638	$item->{'copynumber'},	1641	$item->{'copynumber'},
1639	$item->{'stocknumber'},	1642	$item->{'stocknumber'},
1640	$item->{'new_status'},	1643	$item->{'new_status'},
		1644	$item->{'holding_id'},
1641	);	1645	);
1642		1646
1643	my $itemnumber;	1647	my $itemnumber;

Lines 38-43 use Koha::ArticleRequests; Link Here

(-)a/Koha/Biblio.pm (-4 / +36 lines)
38	use Koha::Biblio::Metadatas;	38	use Koha::Biblio::Metadatas;
39	use Koha::Biblioitems;	39	use Koha::Biblioitems;
40	use Koha::CirculationRules;	40	use Koha::CirculationRules;
		41	use Koha::Holdings;
41	use Koha::Item::Transfer::Limits;	42	use Koha::Item::Transfer::Limits;
42	use Koha::Items;	43	use Koha::Items;
43	use Koha::Libraries;	44	use Koha::Libraries;
Lines 509-514 sub subscriptions { Link Here
509	return $self->{_subscriptions};	510	return $self->{_subscriptions};
510	}	511	}
511		512
		513	=head3 holdings
		514
		515	my $holdings = $self->holdings
		516
		517	Returns the related Koha::Holdings object for this Biblio object
		518
		519	=cut
		520
		521	sub holdings {
		522	my ($self) = @_;
		523
		524	$self->{_holdings} \|\|= Koha::Holdings->search( { biblionumber => $self->biblionumber } );
		525
		526	return $self->{_holdings};
		527	}
		528
		529
512	=head3 has_items_waiting_or_intransit	530	=head3 has_items_waiting_or_intransit
513		531
514	my $itemsWaitingOrInTransit = $biblio->has_items_waiting_or_intransit	532	my $itemsWaitingOrInTransit = $biblio->has_items_waiting_or_intransit
Lines 815-839 sub to_api_mapping { Link Here
815	};	833	};
816	}	834	}
817		835
818	=head3 adopt_items_from_biblio	836	=head3 adopt_holdings_from_biblio
819		837
820	$biblio->adopt_items_from_biblio($from_biblio);	838	$biblio->adopt_holdings_from_biblio($from_biblio);
821		839
822	Move items from the given biblio to this one.	840	Move holdings and item records from the given biblio to this one.
823		841
824	=cut	842	=cut
825		843
826	sub adopt_items_from_biblio {	844	sub adopt_holdings_from_biblio {
827	my ( $self, $from_biblio ) = @_;	845	my ( $self, $from_biblio ) = @_;
828		846
		847	my $schema = Koha::Database->new()->schema();
		848
		849	$schema->storage->txn_begin;
		850
		851	# Move holdings records. This will also move any items attached to the holdings.
		852	my $holdings = $from_biblio->holdings;
		853	while (my $holding = $holdings->next()) {
		854	$holding->move_to_biblio($self);
		855	}
		856	# Move any items not already moved.
829	my $items = $from_biblio->items;	857	my $items = $from_biblio->items;
830	if ($items) {	858	if ($items) {
831	while (my $item = $items->next()) {	859	while (my $item = $items->next()) {
832	$item->move_to_biblio($self);	860	$item->move_to_biblio($self);
833	}	861	}
		862	}
		863	if ($items \|\| $holdings) {
834	C4::Biblio::ModZebra( $self->biblionumber, "specialUpdate", "biblioserver" );	864	C4::Biblio::ModZebra( $self->biblionumber, "specialUpdate", "biblioserver" );
835	C4::Biblio::ModZebra( $from_biblio->biblionumber, "specialUpdate", "biblioserver" );	865	C4::Biblio::ModZebra( $from_biblio->biblionumber, "specialUpdate", "biblioserver" );
836	}	866	}
		867
		868	$schema->storage->txn_commit;
837	}	869	}
838		870
839		871

Line 0 Link Here

(-)a/Koha/Holding.pm (+390 lines)
		1	package Koha::Holding;
		2
		3	# Copyright ByWater Solutions 2014
		4	# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
		5	#
		6	# This file is part of Koha.
		7	#
		8	# Koha is free software; you can redistribute it and/or modify it under the
		9	# terms of the GNU General Public License as published by the Free Software
		10	# Foundation; either version 3 of the License, or (at your option) any later
		11	# version.
		12	#
		13	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		14	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		15	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License along
		18	# with Koha; if not, write to the Free Software Foundation, Inc.,
		19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		20
		21	use Modern::Perl;
		22
		23	use Carp;
		24
		25	use C4::Charset;
		26	use C4::Log;
		27
		28	use Koha::Database;
		29	use Koha::DateUtils qw(dt_from_string);
		30	use Koha::Holdings::Metadatas;
		31	use Koha::Items;
		32
		33	use base qw(Koha::Object);
		34
		35	=head1 NAME
		36
		37	Koha::Holding - Koha Holding Object class
		38
		39	=head1 API
		40
		41	=head2 Class Methods
		42
		43	=cut
		44
		45	=head3 holding_branch
		46
		47	my $branch = $hold->holding_branch();
		48
		49	Returns the holding branch for this record.
		50
		51	=cut
		52
		53	sub holding_branch {
		54	my ($self) = @_;
		55
		56	my $branch = $self->_result->holdingbranch();
		57	return Koha::Library->_new_from_dbic($branch);
		58	}
		59
		60	=head3 metadata
		61
		62	my $metadata = $holding->metadata();
		63
		64	Returns a Koha::Holding::Metadata object
65
66	=cut
67
68	sub metadata {
69	my ($self) = @_;
70
71	my $metadata = $self->_result()->metadata();
72	return unless $metadata;
73	return Koha::Holdings::Metadata->_new_from_dbic($metadata);
74	}
75
76	=head3 set_marc
77
78	$holding->set_marc({ record => $record });
79
80	Updates the MARC format metadata from a Marc::Record.
81	Does not store the results in the database.
82
83	If passed an undefined record will log the error.
84
85	Returns $self
86
87	=cut
88
89	sub set_marc {
90	my ($self, $params) = @_;
91
92	if (!defined $params->{record}) {
93	carp('set_marc called with undefined record');
94	return $self;
95	}
96
97	# Clone record as it gets modified
98	my $record = $params->{record}->clone();
99	SetUTF8Flag($record);
100	my $encoding = C4::Context->preference('marcflavour');
101	if ($encoding eq 'MARC21' \|\| $encoding eq 'UNIMARC') {
102	# YY MM DD HH MM SS (update year and month)
103	my @a = (localtime) [5,4,3,2,1,0]; $a[0] += 1900; $a[1]++;
104	my $f005 = $record->field('005');
105	$f005->update(sprintf('%4d%02d%02d%02d%02d%04.1f', @a)) if $f005;
106	}
107
108	$self->{_marcxml} = $record->as_xml_record($encoding);
109	my $fields = $self->marc_to_koha_fields({ record => $record });
110	delete $fields->{holding_id};
111	# Filter the columns since we have e.g. public_note that's not stored in the database
112	my $columns = [$self->_result()->result_source()->columns()];
113	my $db_fields = {};
114	foreach my $key (keys %{$fields}) {
115	if (grep {/^$key$/} @{$columns}) {
116	$db_fields->{$key} = $fields->{$key};
117	}
118	}
119	$self->set($db_fields);
120
121	return $self;
122	}
123
124	=head3 items
125
126	my @items = $holding->items();
127	my $items = $holding->items();
128
129	Returns the related Koha::Items object for this holding in scalar context,
130	or list of Koha::Item objects in list context.
131
132	=cut
133
134	sub items {
135	my ($self) = @_;
136
137	my $items_rs = $self->_result->items;
138
139	return
140	wantarray
141	? Koha::Items->_new_from_dbic($items_rs)->as_list
142	: Koha::Items->_new_from_dbic($items_rs);
143	}
144
145	=head3 store
146
147	$holding->store();
148
149	Saves the holdings record.
150
151	Returns:
152	$self if the store was a success
153	undef if the store failed
154
155	=cut
156
157	sub store {
158	my ($self) = @_;
159
160	my $action = $self->holding_id() ? 'UPDATE' : 'ADD';
161
162	$self->datecreated(dt_from_string('', 'sql')) unless $self->datecreated();
163
164	my $schema = Koha::Database->new()->schema();
165	# Use a transaction only if AutoCommit is enabled - otherwise handled outside of this sub
166	my $guard = C4::Context->dbh->{AutoCommit} ? $schema->txn_scope_guard() : undef;
167
168	my $result = $self->SUPER::store();
169
170	return $result unless $result;
171
172	# Create or update the metadata record
173	my $marcflavour = C4::Context->preference('marcflavour');
174	my $marc_record = $self->{_marcxml}
175	? MARC::Record::new_from_xml($self->{_marcxml}, 'utf-8', $marcflavour)
176	: $self->metadata()->record();
177
178	$self->_update_marc_ids($marc_record);
179
180	my $metadata = {
181	holding_id => $self->holding_id(),
182	format => 'marcxml',
183	schema => $marcflavour,
184	};
185	my $metadata_record = Koha::Holdings::Metadatas->find_or_new($metadata);
186	$metadata_record->metadata($marc_record->as_xml_record($marcflavour));
187
188	$result = $metadata_record->store() ? $self : undef;
189
190	if ($result) {
191	$guard->commit() if defined $guard;
192
193	# request that bib be reindexed so that any holdings-derived fields are updated
194	C4::Biblio::ModZebra( $self->biblionumber(), 'specialUpdate', 'biblioserver' );
195
196	logaction('CATALOGUING', $action, $self->holding_id(), 'holding') if C4::Context->preference('CataloguingLog');
197	}
198
199	return $result;
200	}
201
202	=head3 delete
203
204	$holding->delete();
205
206	Marks the holdings record deleted.
207
208	Returns:
209	1 if the deletion was a success
210	0 if the deletion failed
211	-1 if the object was never in storage
212
213	=cut
214
215	sub delete {
216	my ($self) = @_;
217
218	return -1 unless $self->_result()->in_storage();
219
220	if ($self->items()->count()) {
221	return 0;
222	}
223
224	my $schema = Koha::Database->new()->schema();
225	# Use a transaction only if AutoCommit is enabled - otherwise handled outside of this sub
226	my $guard = C4::Context->dbh->{AutoCommit} ? $schema->txn_scope_guard() : undef;
227
228	my $now = dt_from_string('', 'sql');
229	$self->deleted_on($now)->store();
230	Koha::Holdings::Metadatas->find({ holding_id => $self->holding_id() })->update({ deleted_on => $now });
231
232	$guard->commit() if defined $guard;
233
234	logaction('CATALOGUING', 'DELETE', $self->holding_id(), 'holding') if C4::Context->preference('CataloguingLog');
235
236	return 1;
237	}
238
239	=head3 move_to_biblio
240
241	$holding->move_to_biblio($to_biblio);
242
243	Move the holdings record and any of its related records to another biblio.
244
245	=cut
246
247	sub move_to_biblio {
248	my ( $self, $to_biblio ) = @_;
249
250	my $biblionumber = $to_biblio->biblionumber;
251
252	# Own biblionumber
253	$self->set({
254	biblionumber => $biblionumber,
255	})->store();
256
257	# Items
258	my $items => $self->items;
259	if ($items) {
260	while (my $item = $items->next()) {
261	$item->move_to_biblio($to_biblio);
262	}
263	}
264	}
265
266	=head3 type
267
268	=cut
269
270	sub _type {
271	return 'Holding';
272	}
273
274	=head2 marc_to_koha_fields
275
276	$result = Koha::Holding->marc_to_koha_fields({ record => $record })
277
278	Extract data from a MARC::Record holdings record into a hashref representing
279	Koha holdings fields.
280
281	If passed an undefined record will log the error and return an empty
282	hash_ref.
283
284	=cut
285
286	sub marc_to_koha_fields {
287	my ($class, $params) = @_;
288
289	my $result = {};
290	if (!defined $params->{record}) {
291	carp('marc_to_koha_fields called with undefined record');
292	return $result;
293	}
294	my $record = $params->{record};
295
296	# The next call uses the HLD framework since it is AUTHORITATIVE
297	# for all Koha to MARC mappings for holdings.
298	my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # Do not change framework
299	foreach my $kohafield (keys %{ $mss }) {
300	my ($table, $column) = split /[.]/, $kohafield, 2;
301	next unless $table eq 'holdings' && $mss->{$kohafield};
302
303	my @values;
304	foreach my $field (@{$mss->{$kohafield}}) {
305	my $tag = $field->{tagfield};
306	my $sub = $field->{tagsubfield};
307	foreach my $fld ($record->field($tag)) {
308	if( $sub eq '@' \|\| $fld->is_control_field ) {
309	push @values, $fld->data if $fld->data;
310	} else {
311	push @values, grep { $_ } $fld->subfield($sub);
312	}
313	}
314	}
315	$result->{$column} = join(' \| ', @values) if (@values);
316	}
317	return $result;
318	}
319
320	=head3 get_marc_field_mapping
321
322	($field, $subfield) = Koha::Holding->get_marc_field_mapping({ field => $kohafield });
323	@fields = Koha::Holding->get_marc_field_mapping({ field => $kohafield });
324	$field = Koha::Holding->get_marc_field_mapping({ field => $kohafield });
325
326	Returns the MARC fields & subfields mapped to $kohafield.
327	Uses the HLD framework that is considered as authoritative.
328
329	In list context all mappings are returned; there can be multiple
330	mappings. Note that in the above example you could miss a second
331	mapping in the first call.
332	In scalar context only the field tag of the first mapping is returned.
333
334	=cut
335
336	sub get_marc_field_mapping {
337	my ($class, $params) = @_;
338
339	return unless $params->{field};
340
341	# The next call uses the HLD framework since it is AUTHORITATIVE
342	# for all Koha to MARC mappings for holdings.
343	my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # Do not change framework
344	my @retval;
345	foreach (@{ $mss->{$params->{field}} }) {
346	push @retval, $_->{tagfield}, $_->{tagsubfield};
347	}
348	return wantarray ? @retval : ( @retval ? $retval[0] : undef );
349	}
350
351	=head2 Internal methods
352
353	=head3 _update_marc_ids
354
355	$self->_update_marc_ids($record);
356
357	Internal function to add or update holding_id, biblionumber and biblioitemnumber to
358	the MARC record.
359
360	=cut
361
362	sub _update_marc_ids {
363	my ($self, $record) = @_;
364
365	my ($holding_tag, $holding_subfield) = $self->get_marc_field_mapping({ field => 'holdings.holding_id' });
366	die qq{No holding_id tag for framework "HLD"} unless $holding_tag;
367	if ($holding_tag < 10) {
368	C4::Biblio::UpsertMarcControlField($record, $holding_tag, $self->holding_id);
369	} else {
370	C4::Biblio::UpsertMarcSubfield($record, $holding_tag, $holding_subfield, $self->holding_id);
371	}
372
373	my ($biblio_tag, $biblio_subfield) = $self->get_marc_field_mapping({ field => 'biblio.biblionumber' });
374	die qq{No biblionumber tag for framework "HLD"} unless $biblio_tag;
375	if ($biblio_tag < 10) {
376	C4::Biblio::UpsertMarcControlField($record, $biblio_tag, $self->biblionumber);
377	} else {
378	C4::Biblio::UpsertMarcSubfield($record, $biblio_tag, $biblio_subfield, $self->biblionumber);
379	}
380	}
381
382
383	=head1 AUTHOR
384
385	Kyle M Hall <kyle@bywatersolutions.com>
386	Ere Maijala <ere.maijala@helsinki.fi>
387
388	=cut
389
390	1;

Line 0 Link Here

(-)a/Koha/Holdings.pm (+145 lines)
		1	package Koha::Holdings;
		2
		3	# Copyright ByWater Solutions 2015
		4	# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
		5	#
		6	# This file is part of Koha.
		7	#
		8	# Koha is free software; you can redistribute it and/or modify it under the
		9	# terms of the GNU General Public License as published by the Free Software
		10	# Foundation; either version 3 of the License, or (at your option) any later
		11	# version.
		12	#
		13	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		14	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		15	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License along
		18	# with Koha; if not, write to the Free Software Foundation, Inc.,
		19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		20
		21	use Modern::Perl;
		22
		23	use Carp;
		24
		25	use C4::Biblio;
		26	use C4::Charset;
		27	use C4::Context;
		28	use Koha::Database;
		29	use Koha::Holding;
		30
		31	use base qw(Koha::Objects);
		32
		33	=head1 NAME
		34
		35	Koha::Holdings - Koha Holdings object set class
		36
		37	=head1 API
		38
		39	=head2 Class Methods
		40
		41	=cut
		42
		43	=head3 type
		44
		45	=cut
		46
		47	sub _type {
		48	return 'Holding';
		49	}
		50
		51	=head3 object_class
		52
		53	=cut
		54
		55	sub object_class {
		56	return 'Koha::Holding';
		57	}
		58
		59	=head3 get_embeddable_marc_fields
		60
		61	my @marc_fields = Koha::Holding->get_embeddable_marc_fields({biblionumber => $biblionumber});
		62
		63	Returns an array of MARC::Record objects of the holdings for the biblio.
		64
65	=cut
66
67	sub get_embeddable_marc_fields {
68	my ($class, $params) = @_;
69
70	my @holdings_fields;
71	if (not defined $params->{biblionumber}) {
72	carp('get_embeddable_marc_fields called with undefined biblionumber');
73	return \@holdings_fields;
74	}
75
76	my ($holdingstag, $holdingssubfield) = Koha::Holding->get_marc_field_mapping({ field => 'holdings.holdingbranch' });
77	my $holdings = $class->search({ biblionumber => $params->{biblionumber}, deleted_on => undef })->unblessed();
78	foreach my $holding (@$holdings) {
79	my $mungedholding = {
80	map {
81	defined($holding->{$_}) && $holding->{$_} ne '' ? ("holdings.$_" => $holding->{$_}) : ()
82	} keys %{ $holding }
83	};
84	my $marc = $class->_holding_to_marc($mungedholding);
85	push @holdings_fields, $marc->field($holdingstag);
86	}
87	return \@holdings_fields;
88	}
89
90	=head2 _holding_to_marc
91
92	$record = $class->_holding_to_marc($hash)
93
94	This function builds partial MARC::Record from holdings hash entries.
95	This function is called when embedding holdings into a biblio record.
96
97	=cut
98
99	sub _holding_to_marc {
100	my ($class, $hash, $params) = @_;
101
102	my $record = MARC::Record->new();
103	SetMarcUnicodeFlag($record, C4::Context->preference('marcflavour'));
104
105	# The next call uses the HLD framework since it is AUTHORITATIVE
106	# for all Koha to MARC mappings for holdings.
107	my $mss = C4::Biblio::GetMarcSubfieldStructure('HLD', { unsafe => 1 }); # do not change framewok
108	my $tag_hr = {};
109	while (my ($kohafield, $value) = each %$hash) {
110	foreach my $fld (@{$mss->{$kohafield}}) {
111	my $tagfield = $fld->{tagfield};
112	my $tagsubfield = $fld->{tagsubfield};
113	next if !$tagfield;
114	my @values = $params->{no_split}
115	? ( $value )
116	: split(/\s?\\|\s?/, $value, -1);
117	foreach my $value (@values) {
118	next if $value eq '';
119	$tag_hr->{$tagfield} //= [];
120	push @{$tag_hr->{$tagfield}}, [($tagsubfield, $value)];
121	}
122	}
123	}
124	foreach my $tag (sort keys %$tag_hr) {
125	my @sfl = @{$tag_hr->{$tag}};
126	@sfl = sort { $a->[0] cmp $b->[0]; } @sfl;
127	@sfl = map { @{$_}; } @sfl;
128	# Special care for control fields: remove the subfield indication @
129	# and do not insert indicators.
130	my @ind = $tag < 10 ? () : ( " ", " " );
131	@sfl = grep { $_ ne '@' } @sfl if $tag < 10;
132	$record->insert_fields_ordered(MARC::Field->new($tag, @ind, @sfl));
133	}
134	return $record;
135	}
136
137
138	=head1 AUTHOR
139
140	Kyle M Hall <kyle@bywatersolutions.com>
141	Ere Maijala <ere.maijala@helsinki.fi>
142
143	=cut
144
145	1;

Line 0 Link Here

(-)a/Koha/Holdings/Metadata.pm (+100 lines)
		1	package Koha::Holdings::Metadata;
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it under the
		6	# terms of the GNU General Public License as published by the Free Software
		7	# Foundation; either version 3 of the License, or (at your option) any later
		8	# version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		13	#
		14	# You should have received a copy of the GNU General Public License along
		15	# with Koha; if not, write to the Free Software Foundation, Inc.,
		16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		17
		18	use Modern::Perl;
		19
		20	use Carp;
		21
		22	use Koha::Database;
		23
		24	use base qw(Koha::Object);
		25
		26	=head1 NAME
		27
		28	Koha::Holdings::Metadata - Koha Holdings Metadata Object class
		29
		30	=head1 API
		31
		32	=head2 Class methods
		33
		34	=cut
		35
		36	=head3 record
		37
		38	my @record = $metadata->record($params);
		39	my $record = $metadata->record;
		40
		41	Returns an object representing the metadata record. The expected record type
		42	corresponds to this table:
		43
		44	-------------------------------
		45	\| format \| object type \|
		46	-------------------------------
		47	\| marcxml \| MARC::Record \|
		48	-------------------------------
		49
		50	=head4 Error handling
		51
		52	=over
		53
		54	=item If an unsupported format is found, it throws a I<Koha::Exceptions::Metadata> exception.
		55
		56	=item If it fails to create the record object, it throws a I<Koha::Exceptions::Metadata::Invalid> exception.
		57
		58	=back
		59
		60	=cut
		61
		62	sub record {
		63	my ($self) = @_;
		64
65	my $record;
66
67	if ($self->format eq 'marcxml') {
68	$record = eval { MARC::Record::new_from_xml( $self->metadata, 'utf-8', $self->schema ); };
69	unless ($record) {
70	Koha::Exceptions::Metadata::Invalid->throw(
71	id => $self->id,
72	format => $self->format,
73	schema => $self->schema
74	);
75	}
76	} else {
77	Koha::Exceptions::Metadata->throw(
78	'Koha::Holdings::Metadata->record called on unhandled format: ' . $self->format );
79	}
80
81	return $record;
82	}
83
84	=head2 Internal methods
85
86	=head3 _type
87
88	=cut
89
90	sub _type {
91	return 'HoldingsMetadata';
92	}
93
94	=head1 AUTHOR
95
96	Ere Maijala ere.maijala@helsinki.fi
97
98	=cut
99
100	1;

Line 0 Link Here

(-)a/Koha/Holdings/Metadatas.pm (+58 lines)
	1	package Koha::Holdings::Metadatas;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it under the
	6	# terms of the GNU General Public License as published by the Free Software
	7	# Foundation; either version 3 of the License, or (at your option) any later
	8	# version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	13	#
	14	# You should have received a copy of the GNU General Public License along
	15	# with Koha; if not, write to the Free Software Foundation, Inc.,
	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	17
	18	use Modern::Perl;
	19
	20	use Carp;
	21
	22	use Koha::Database;
	23
	24	use Koha::Holdings::Metadata;
	25
	26	use base qw(Koha::Objects);
	27
	28	=head1 NAME
	29
	30	Koha::Holdings::Metadatas - Koha Holdings Metadata Object set class
	31
	32	=head1 API
	33
	34	=head2 Internal methods
	35
	36	=head3 _type
	37
	38	=cut
	39
	40	sub _type {
	41	return 'HoldingsMetadata';
	42	}
	43
	44	=head3 object_class
	45
	46	=cut
	47
	48	sub object_class {
	49	return 'Koha::Holdings::Metadata';
	50	}
	51
	52	=head1 AUTHOR
	53
	54	Ere Maijala ere.maijala@helsinki.fi
	55
	56	=cut
	57
	58	1;

Lines 30-35 use C4::Circulation; Link Here

(-)a/Koha/Item.pm (-1 / +49 lines)
30	use C4::Reserves;	30	use C4::Reserves;
31	use Koha::Checkouts;	31	use Koha::Checkouts;
32	use Koha::CirculationRules;	32	use Koha::CirculationRules;
		33	use Koha::Holdings;
33	use Koha::Item::Transfer::Limits;	34	use Koha::Item::Transfer::Limits;
34	use Koha::Item::Transfers;	35	use Koha::Item::Transfers;
35	use Koha::Patrons;	36	use Koha::Patrons;
Lines 113-118 sub biblioitem { Link Here
113	return Koha::Biblioitem->_new_from_dbic( $biblioitem_rs );	114	return Koha::Biblioitem->_new_from_dbic( $biblioitem_rs );
114	}	115	}
115		116
		117	=head3 holding
		118
		119	my $holding = $item->holding;
		120
		121	Return the holdings record of this item
		122
		123	=cut
		124
		125	sub holding {
		126	my ( $self ) = @_;
		127	my $holding_rs = $self->_result->holding;
		128	return Koha::Holding->_new_from_dbic( $holding_rs );
		129	}
		130
116	=head3 checkout	131	=head3 checkout
117		132
118	my $checkout = $item->checkout;	133	my $checkout = $item->checkout;
Lines 564-570 sub move_to_biblio { Link Here
564	$self->set({	579	$self->set({
565	biblionumber => $biblionumber,	580	biblionumber => $biblionumber,
566	biblioitemnumber => $to_biblio->biblioitem->biblioitemnumber	581	biblioitemnumber => $to_biblio->biblioitem->biblioitemnumber
567	})->store();	582	});
568		583
569	my $schema = Koha::Database->new()->schema();	584	my $schema = Koha::Database->new()->schema();
570		585
Lines 601-606 sub move_to_biblio { Link Here
601	# linktrackers	616	# linktrackers
602	my $linktrackers = $schema->resultset('Linktracker')->search({ itemnumber => $self->itemnumber });	617	my $linktrackers = $schema->resultset('Linktracker')->search({ itemnumber => $self->itemnumber });
603	$linktrackers->update_all({ biblionumber => $biblionumber });	618	$linktrackers->update_all({ biblionumber => $biblionumber });
		619
		620	# holdings
		621	my $holding = $self->holding;
		622	if ($holding) {
		623	# Check if there's a suitable holdings record in the new biblio.
		624	# This is not perfect, but at least we try.
		625	my $candidates = Koha::Holdings->search(
		626	{
		627	biblionumber => $biblionumber,
		628	frameworkcode => $holding->frameworkcode(),
		629	holdingbranch => $holding->holdingbranch(),
		630	location => $holding->location(),
		631	callnumber => $holding->callnumber(),
		632	suppress => $holding->suppress(),
		633	deleted_on => undef
		634	}
		635	);
		636	my $newHolding = $candidates->next();
		637	if (!$newHolding) {
		638	# No existing holdings record, make a copy of the old one.
		639	$newHolding = Koha::Holding->new({
		640	biblionumber => $biblionumber,
		641	frameworkcode => $holding->frameworkcode()
		642	});
		643	$newHolding->set_marc({ record => $holding->metadata()->record() });
		644	$newHolding->store();
		645	}
		646	$self->set({
		647	holding_id => $newHolding->holding_id()
		648	});
		649	}
		650
		651	$self->store();
604	}	652	}
605		653
606	=head2 Internal methods	654	=head2 Internal methods

Lines 117-122 sub find_or_create { Link Here

(-)a/Koha/Objects.pm (+18 lines)
117	return $object;	117	return $object;
118	}	118	}
119		119
		120	=head3 Koha::Objects->find_or_new();
		121
		122	my $object = Koha::Objects->find_or_new( $attrs );
		123
		124	=cut
		125
		126	sub find_or_new {
		127	my ( $self, $params ) = @_;
		128
		129	my $result = $self->_resultset->find_or_new($params);
		130
		131	return unless $result;
		132
		133	my $object = $self->object_class->_new_from_dbic($result);
		134
		135	return $object;
		136	}
		137
120	=head3 Koha::Objects->search();	138	=head3 Koha::Objects->search();
121		139
122	my @objects = Koha::Objects->search($params);	140	my @objects = Koha::Objects->search($params);

Line 0 Link Here

(-)a/Koha/Template/Plugin/Holdings.pm (+116 lines)
		1	package Koha::Template::Plugin::Holdings;
		2
		3	# Copyright ByWater Solutions 2012
		4	# Copyright BibLibre 2014
		5	# Copyright 2017-2019 University of Helsinki (The National Library Of Finland)
		6
		7	# This file is part of Koha.
		8	#
		9	# Koha is free software; you can redistribute it and/or modify it
		10	# under the terms of the GNU General Public License as published by
		11	# the Free Software Foundation; either version 3 of the License, or
		12	# (at your option) any later version.
		13	#
		14	# Koha is distributed in the hope that it will be useful, but
		15	# WITHOUT ANY WARRANTY; without even the implied warranty of
		16	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		17	# GNU General Public License for more details.
		18	#
		19	# You should have received a copy of the GNU General Public License
		20	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		21
		22	use Modern::Perl;
		23
		24	use Template::Plugin;
		25	use base qw( Template::Plugin );
		26
		27	use C4::Context;
		28
		29	use Koha::Holdings;
		30
		31	=head1 NAME
		32
		33	Koha::Template::Plugin::Holdings - TT Plugin for holdings
		34
		35	=head1 SYNOPSIS
		36
		37	[% USE Holdings %]
		38
		39	[% Holdings.GetLocation(holding) \| html %]
		40
		41	=head1 ROUTINES
		42
		43	=head2 GetLocation
		44
		45	Get a location string for a holdings record
		46
		47	[% Holdings.GetLocation(holding) \| html %]
		48
		49	=cut
		50
		51	sub GetLocation {
		52	my ($self, $holding) = @_;
		53	my $opac = shift \|\| 0;
		54
		55	if (!$holding) {
		56	return '';
		57	}
		58
		59	if (ref($holding) ne 'Koha::Holding') {
		60	$holding = Koha::Holdings->find($holding);
		61	if (!$holding) {
		62	return '';
		63	}
		64	}
65
66	my @parts;
67
68	if ($opac) {
69	if (my $branch = $holding->holding_branch()) {
70	push @parts, $branch->branchname();
71	}
72	if ($holding->location()) {
73	my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $holding->location() });
74	push @parts, $av->next()->opac_description() if $av->count;
75	}
76	push @parts, $holding->callnumber() if $holding->callnumber();
77	return join(' - ', @parts);
78	}
79
80	push @parts, $holding->holding_id();
81	push @parts, $holding->holdingbranch() if $holding->holdingbranch();
82	push @parts, $holding->location() if $holding->location();
83	push @parts, $holding->ccode() if $holding->ccode();
84	push @parts, $holding->callnumber() if $holding->callnumber();
85	return join(' ', @parts);
86	}
87
88	=head2 GetDetails
89
90	Get the Koha fields for a holdings record
91
92	[% details = Holdings.GetDetails(holding) %]
93
94	=cut
95
96	sub GetDetails {
97	my ($self, $holding) = @_;
98	my $opac = shift \|\| 0;
99
100	if (!$holding) {
101	return '';
102	}
103
104	if (ref($holding) ne 'Koha::Holding') {
105	$holding = Koha::Holdings->find($holding);
106	if (!$holding) {
107	return '';
108	}
109	}
110
111	my $holding_marc = $holding->metadata()->record();
112
113	return Koha::Holding->marc_to_koha_fields({ record => $holding_marc });
114	}
115
116	1;

Lines 31-36 use C4::Circulation; Link Here

(-)a/cataloguing/additem.pl (+11 lines)
31	use C4::Koha;	31	use C4::Koha;
32	use C4::ClassSource;	32	use C4::ClassSource;
33	use Koha::DateUtils;	33	use Koha::DateUtils;
		34	use Koha::Holdings;
34	use Koha::Items;	35	use Koha::Items;
35	use Koha::ItemTypes;	36	use Koha::ItemTypes;
36	use Koha::Libraries;	37	use Koha::Libraries;
Lines 221-226 sub generate_subfield_form { Link Here
221		222
222	#---- "true" authorised value	223	#---- "true" authorised value
223	}	224	}
		225	elsif ( $subfieldlib->{authorised_value} eq "holdings" ) {
		226	push @authorised_values, "" unless ( $subfieldlib->{mandatory} );
		227	my $holdings = Koha::Holdings->search({ biblionumber => $biblionumber, deleted_on => undef }, { order_by => ['holdingbranch'] })->unblessed;
		228	for my $holding ( @$holdings ) {
		229	push @authorised_values, $holding->{holding_id};
		230	$authorised_lib{$holding->{holding_id}} = $holding->{holding_id} . ' ' . $holding->{holdingbranch} . ' ' . $holding->{location} . ' ' . $holding->{ccode} . ' ' . $holding->{callnumber};
		231	}
		232	my $input = new CGI;
		233	$value = $input->param('holding_id') unless ($value);
		234	}
224	else {	235	else {
225	push @authorised_values, qq{};	236	push @authorised_values, qq{};
226	my $av = GetAuthorisedValues( $subfieldlib->{authorised_value} );	237	my $av = GetAuthorisedValues( $subfieldlib->{authorised_value} );

Line 0 Link Here

(-)a/cataloguing/value_builder/marc21_field_008_holdings.pl (+120 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2000-2002 Katipo Communications
		4	# Copyright 2017-2018 University of Helsinki (The National Library Of Finland)
		5	#
		6	# This file is part of Koha.
		7	#
		8	# Koha is free software; you can redistribute it and/or modify it
		9	# under the terms of the GNU General Public License as published by
		10	# the Free Software Foundation; either version 3 of the License, or
		11	# (at your option) any later version.
		12	#
		13	# Koha is distributed in the hope that it will be useful, but
		14	# WITHOUT ANY WARRANTY; without even the implied warranty of
		15	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		16	# GNU General Public License for more details.
		17	#
		18	# You should have received a copy of the GNU General Public License
		19	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		20
		21	use Modern::Perl;
		22	use C4::Auth;
		23	use CGI qw ( -utf8 );
		24	use C4::Context;
		25
		26	use C4::Search;
		27	use C4::Output;
		28
		29	use XML::LibXML;
		30	use Koha::Util::FrameworkPlugin qw\|date_entered\|;
		31
		32	my $builder = sub {
		33	my ( $params ) = @_;
		34
		35	my $lang = C4::Context->preference('DefaultLanguageField008' );
		36	$lang = "eng" unless $lang;
		37	$lang = pack("A3", $lang);
		38
		39	my $function_name = $params->{id};
		40	my $dateentered = date_entered();
		41	my $res = "
		42	<script type=\"text/javascript\">
		43	//<![CDATA[
		44
		45	function Focus$function_name(event) {
		46	if ( document.getElementById(event.data.id).value ) {
		47	}
		48	else {
		49	document.getElementById(event.data.id).value='$dateentered' + '0u 0 4 uu${lang}0$dateentered';
		50	}
		51	return 1;
		52	}
		53
		54	function Click$function_name(event) {
		55	defaultvalue=document.getElementById(event.data.id).value;
		56	//Retrieve full leader string and pass it to the 008 tag editor
		57	var leader_value = \$(\"input[id^='tag_000']\").val();
		58	var leader_parameter = \"\";
		59	if (leader_value){
		60	//Only add the parameter to the URL if there is a value to add
		61	leader_parameter = \"&leader=\"+leader_value;
		62	}
		63	newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_field_008_holdings.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue+leader_parameter,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
		64
65	}
66	//]]>
67	</script>
68	";
69
70	return $res;
71	};
72
73	my $launcher = sub {
74	my ( $params ) = @_;
75	my $input = $params->{cgi};
76	my $index= $input->param('index');
77	my $result= $input->param('result');
78
79	my $lang = C4::Context->preference('DefaultLanguageField008' );
80	$lang = "eng" unless $lang;
81	$lang = pack("A3", $lang);
82
83	my ($template, $loggedinuser, $cookie)
84	= get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_008_holdings.tt",
85	query => $input,
86	type => "intranet",
87	authnotrequired => 0,
88	flagsrequired => {editcatalogue => '*'},
89	debug => 1,
90	});
91	my $dateentered = date_entered();
92	$result = $dateentered + '0u 0 0 uu' + $lang + '0' + $dateentered unless $result;
93	my @f;
94	for(0,6..8,12..17,20..22,25,26) {
95	my $len = 1;
96	if ($_ == 0 \|\| $_ == 26) {
97	$len = 6;
98	} elsif ($_ == 8) {
99	$len = 4;
100	} elsif ($_ == 17 \|\| $_ == 22) {
101	$len = 3;
102	}
103	warn ($_ . ': ' . $len);
104	$f[$_]=substr($result,$_,$len);
105	}
106	$template->param(index => $index);
107
108	$f[0]= $dateentered if !$f[0] \|\| $f[0]=~/\s/;
109	$template->param(f1 => $f[0]);
110
111	for(6..8,12..17,20..22,25,26) {
112	$template->param(
113	"f$_" => $f[$_],
114	"f$_".($f[$_] eq '\|'? 'pipe': $f[$_]) => $f[$_],
115	);
116	}
117	output_html_with_http_headers $input, $cookie, $template->output;
118	};
119
120	return { builder => $builder, launcher => $launcher };

Line 0 Link Here

(-)a/cataloguing/value_builder/marc21_leader_holdings.pl (+85 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2000-2002 Katipo Communications
		4	# Copyright 2017-2018 University of Helsinki (The National Library Of Finland)
		5	#
		6	# This file is part of Koha.
		7	#
		8	# Koha is free software; you can redistribute it and/or modify it
		9	# under the terms of the GNU General Public License as published by
		10	# the Free Software Foundation; either version 3 of the License, or
		11	# (at your option) any later version.
		12	#
		13	# Koha is distributed in the hope that it will be useful, but
		14	# WITHOUT ANY WARRANTY; without even the implied warranty of
		15	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		16	# GNU General Public License for more details.
		17	#
		18	# You should have received a copy of the GNU General Public License
		19	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		20
		21	use Modern::Perl;
		22	use CGI qw ( -utf8 );
		23
		24	use C4::Auth;
		25	use C4::Context;
		26	use C4::Output;
		27
		28	my $builder = sub {
		29	my ( $params ) = @_;
		30	my $function_name = $params->{id};
		31	my $res = "
		32	<script type=\"text/javascript\">
		33	//<![CDATA[
		34
		35	function Focus$function_name(event) {
		36	if(!document.getElementById(event.data.id).value){
		37	document.getElementById(event.data.id).value = ' nu a22 ui 4500';
		38	}
		39	}
		40
		41	function Click$function_name(event) {
		42	defaultvalue=document.getElementById(event.data.id).value;
		43	newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader_holdings.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
		44	}
		45
		46	//]]>
		47	</script>
		48	";
		49
		50	return $res;
		51	};
		52
		53	my $launcher = sub {
		54	my ( $params ) = @_;
		55	my $input = $params->{cgi};
		56	my $index = $input->param('index');
		57	my $result = $input->param('result');
		58
		59	my $dbh = C4::Context->dbh;
		60
		61	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		62	{ template_name => "cataloguing/value_builder/marc21_leader_holdings.tt",
		63	query => $input,
		64	type => "intranet",
65	authnotrequired => 0,
66	flagsrequired => { editcatalogue => '*' },
67	debug => 1,
68	}
69	);
70	$result = " nu a22 ui 4500" unless $result;
71	my $f5 = substr( $result, 5, 1 );
72	my $f6 = substr( $result, 6, 1 );
73	my $f17 = substr( $result, 17, 1 );
74	my $f18 = substr( $result, 18, 1 );
75	$template->param(
76	index => $index,
77	"f5$f5" => 1,
78	"f6$f6" => 1,
79	"f17$f17" => 1,
80	"f18$f18" => 1,
81	);
82	output_html_with_http_headers $input, $cookie, $template->output;
83	};
84
85	return { builder => $builder, launcher => $launcher };

Lines 646-651 CREATE TABLE `deleteditems` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-2 / +49 lines)
646	`copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)	646	`copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)
647	`stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)	647	`stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)
648	`new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.	648	`new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
		649	`holding_id` int(11) default NULL, -- foreign key from holdings table used to link this item to the right holdings record
649	PRIMARY KEY (`itemnumber`),	650	PRIMARY KEY (`itemnumber`),
650	KEY `delitembarcodeidx` (`barcode`),	651	KEY `delitembarcodeidx` (`barcode`),
651	KEY `delitemstocknumberidx` (`stocknumber`),	652	KEY `delitemstocknumberidx` (`stocknumber`),
Lines 800-811 CREATE TABLE `import_items` ( Link Here
800	KEY `branchcode` (`branchcode`)	801	KEY `branchcode` (`branchcode`)
801	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	802	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
802		803
		804	--
		805	-- Table structure for table `holdings`
		806	--
		807
		808	DROP TABLE IF EXISTS `holdings`;
		809	CREATE TABLE `holdings` ( -- table that stores summary holdings information
		810	`holding_id` int(11) NOT NULL auto_increment, -- unique identifier assigned to each holdings record
		811	`biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this record to the right bib record
		812	`frameworkcode` varchar(4) NOT NULL default '', -- foreign key from the biblio_framework table to identify which framework was used in cataloging this record
		813	`holdingbranch` varchar(10) default NULL, -- foreign key from the branches table for the library that owns this record (MARC21 852$a)
		814	`location` varchar(80) default NULL, -- authorized value for the shelving location for this record (MARC21 852$b)
		815	`ccode` varchar(80) default NULL, -- authorized value for the collection code associated with this item (MARC21 852$g)
		816	`callnumber` varchar(255) default NULL, -- call number (852$h+$i in MARC21)
		817	`suppress` tinyint(1) default NULL, -- Boolean indicating whether the record is suppressed in OPAC
		818	`timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP, -- date and time this record was last touched
		819	`datecreated` DATE NOT NULL, -- the date this record was added to Koha
		820	`deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
		821	PRIMARY KEY (`holding_id`),
		822	KEY `hldnoidx` (`holding_id`),
		823	KEY `hldbibnoidx` (`biblionumber`),
		824	KEY `timestamp` (`timestamp`),
		825	CONSTRAINT `holdings_ibfk_1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
		826	CONSTRAINT `holdings_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE
		827	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
		828
		829	--
		830	-- Table structure for table `holdings_metadata`
		831	--
		832
		833	DROP TABLE IF EXISTS `holdings_metadata`;
		834	CREATE TABLE `holdings_metadata` (
		835	`id` INT(11) NOT NULL AUTO_INCREMENT,
		836	`holding_id` INT(11) NOT NULL,
		837	`format` VARCHAR(16) NOT NULL,
		838	`schema` VARCHAR(16) NOT NULL,
		839	`metadata` LONGTEXT NOT NULL,
		840	`deleted_on` DATETIME DEFAULT NULL, -- the date this record was deleted
		841	PRIMARY KEY(id),
		842	UNIQUE KEY `holdings_metadata_uniq_key` (`holding_id`,`format`,`schema`),
		843	KEY `hldnoidx` (`holding_id`),
		844	CONSTRAINT `holdings_metadata_fk_1` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE
		845	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
		846
803	--	847	--
804	-- Table structure for table `items`	848	-- Table structure for table `items`
805	--	849	--
806		850
807	DROP TABLE IF EXISTS `items`;	851	DROP TABLE IF EXISTS `items`;
808	CREATE TABLE `items` ( -- holdings/item information	852	CREATE TABLE `items` ( -- item information
809	`itemnumber` int(11) NOT NULL auto_increment, -- primary key and unique identifier added by Koha	853	`itemnumber` int(11) NOT NULL auto_increment, -- primary key and unique identifier added by Koha
810	`biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this item to the right bib record	854	`biblionumber` int(11) NOT NULL default 0, -- foreign key from biblio table used to link this item to the right bib record
811	`biblioitemnumber` int(11) NOT NULL default 0, -- foreign key from the biblioitems table to link to item to additional information	855	`biblioitemnumber` int(11) NOT NULL default 0, -- foreign key from the biblioitems table to link to item to additional information
Lines 851-856 CREATE TABLE `items` ( -- holdings/item information Link Here
851	`copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)	895	`copynumber` varchar(32) default NULL, -- copy number (MARC21 952$t)
852	`stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)	896	`stocknumber` varchar(32) default NULL, -- inventory number (MARC21 952$i)
853	`new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.	897	`new_status` VARCHAR(32) DEFAULT NULL, -- 'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
		898	`holding_id` int(11) default NULL, -- foreign key from holdings table used to link this item to the right holdings record
854	PRIMARY KEY (`itemnumber`),	899	PRIMARY KEY (`itemnumber`),
855	UNIQUE KEY `itembarcodeidx` (`barcode`),	900	UNIQUE KEY `itembarcodeidx` (`barcode`),
856	KEY `itemstocknumberidx` (`stocknumber`),	901	KEY `itemstocknumberidx` (`stocknumber`),
Lines 863-872 CREATE TABLE `items` ( -- holdings/item information Link Here
863	KEY `items_ccode` (`ccode`),	908	KEY `items_ccode` (`ccode`),
864	KEY `itype_idx` (`itype`),	909	KEY `itype_idx` (`itype`),
865	KEY `timestamp` (`timestamp`),	910	KEY `timestamp` (`timestamp`),
		911	KEY `hldid_idx` (`holding_id`),
866	CONSTRAINT `items_ibfk_1` FOREIGN KEY (`biblioitemnumber`) REFERENCES `biblioitems` (`biblioitemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,	912	CONSTRAINT `items_ibfk_1` FOREIGN KEY (`biblioitemnumber`) REFERENCES `biblioitems` (`biblioitemnumber`) ON DELETE CASCADE ON UPDATE CASCADE,
867	CONSTRAINT `items_ibfk_2` FOREIGN KEY (`homebranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,	913	CONSTRAINT `items_ibfk_2` FOREIGN KEY (`homebranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,
868	CONSTRAINT `items_ibfk_3` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,	914	CONSTRAINT `items_ibfk_3` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON UPDATE CASCADE,
869	CONSTRAINT `items_ibfk_4` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE	915	CONSTRAINT `items_ibfk_4` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
		916	CONSTRAINT `items_ibfk_5` FOREIGN KEY (`holding_id`) REFERENCES `holdings` (`holding_id`) ON DELETE CASCADE ON UPDATE CASCADE
870	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	917	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
871		918
872	--	919	--

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/css/addholding.css (+171 lines)
		1	#addholdingtabs {
		2	margin-top : 1em;
		3	}
		4
		5	#addholdingtabs .ui-tabs-panel {
		6	float : left;
		7	}
		8
		9	.buttonPlus {
		10	font-weight : bold;
		11	text-decoration : none;
		12	}
		13
		14	.buttonMinus {
		15	font-weight : bold;
		16	text-decoration : none;
		17	}
		18
		19	a.expandfield {
		20	text-decoration : none;
		21	}
		22
		23	#authoritytabs {
		24	margin-top : 1em;
		25	margin-bottom : 1em;
		26	}
		27
		28	.toptabs .ui-tabs-nav li a {
		29	padding : .2em 1.2em;
		30	}
		31
		32	div.tag {
		33	clear: both;
		34	}
		35
		36	div.subfield_line {
		37	padding-bottom: .3em;
		38	float: left;
		39	clear: left;
		40	width: 100%;
		41	}
		42
		43	div.subfield_line label {
		44	font-size:89%;
		45	float: left;
		46	padding-right : .4em;
		47	width: 16em;
		48	text-align: left;
		49	clear:left;
		50	}
		51
		52	.subfieldcode img {
		53	cursor: pointer;
		54	}
		55
		56	.tag_title {
		57	font-size : 90%;
		58	padding : .2em 0;
		59	}
		60
		61	.tagnum {
		62	font-size : 110%;
		63	font-weight : bold;
		64	color : #000;
65	padding : .1em .3em .1em 0;
66	}
67
68	a.tagnum {
69	font-size : 110%;
70	font-weight : bold;
71	color : #000;
72	padding : .1em .3em .1em 0;
73	text-decoration : none;
74	}
75
76	.subfield {
77	color : #00698a;
78	float: left;
79	width: 10em;
80	text-align:right;
81	}
82
83	.subfieldcode {
84	display: block;
85	float: left;
86	}
87
88	.labelsubfield {
89	float:left;
90	}
91
92	.input_marceditor {
93	float:left;
94	width:30em;
95	}
96
97	.indicator {
98	width: 1em;
99	box-sizing: content-box;
100	}
101
102	*html .input_marceditor {
103	width : 15em;
104	}
105
106	#cataloguing_additem_newitem fieldset.rows label, #cataloguing_additem_newitem fieldset.rows span.label {
107	font-size : 100%;
108	width : 25%;
109	}
110
111	#cataloguing_additem_newitem fieldset.rows li {
112	padding-bottom : 3px;
113	}
114	#cataloguing_additem_newitem .input_marceditor {
115	width : auto;
116	}
117
118	#cataloguing_additem_newitem textarea.input_marceditor {
119	width : 31em;
120	}
121
122	.mandatory_marker {
123	color: red;
124	}
125	.linktools { display: block; white-space: nowrap; }
126	.linktools a { font-size : 75%; display:block;text-decoration:none;}
127	.linktools a {margin:0 2px;padding:2px;background-color:#FFF;text-align:center; }
128	.linktools a:first-child { border-bottom: 1px solid #DDD; }
129	.linktools a:hover { background-color: #FFC; }
130	.subfield_controls { margin : 0 .5em; }
131	.readonly { border-width : 1px; border-style: inset; padding-left : 15px; background: #EEE url(../img/locked.png) center left no-repeat; width:29em; }
132
133	#cataloguing_additem_itemlist {
134	margin-bottom : 1em;
135	}
136	.yui-gf div.first {
137	width : 19%;
138	}
139
140	.yui-gf .yui-u {
141	width: 79.2%;
142	}
143
144	tbody tr.active:nth-child(2n+1) td,
145	tbody tr.active td {
146	background-color: #FFFFCC;
147	}
148
149	#loading {
150	background-color: #FFF;
151	cursor: wait;
152	height: 100%;
153	left: 0;
154	opacity: .7;
155	position: fixed;
156	top: 0;
157	width: 100%;
158	z-index: 1000;
159	}
160	#loading div {
161	background : transparent url(../img/loading.gif) top left no-repeat;
162	font-size : 175%;
163	font-weight: bold;
164	height: 2em;
165	left: 50%;
166	margin: -1em 0 0 -2.5em;
167	padding-left : 50px;
168	position: absolute;
169	top: 50%;
170	width: 15em;
171	}

Lines 2-7 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/results.tt (+14 lines)
2	[% USE Asset %]	2	[% USE Asset %]
3	[% USE Koha %]	3	[% USE Koha %]
4	[% USE Biblio %]	4	[% USE Biblio %]
		5	[% USE Holdings %]
5	[% USE KohaDates %]	6	[% USE KohaDates %]
6	[% PROCESS 'i18n.inc' %]	7	[% PROCESS 'i18n.inc' %]
7	[% SET footerjs = 1 %]	8	[% SET footerjs = 1 %]
Lines 489-494 Link Here
489		490
490	<td>	491	<td>
491	<div class="availability">	492	<div class="availability">
		493	[% IF ( SEARCH_RESULT.summary_holdings ) %]
		494	<div class="holdings">
		495	<strong>Holdings</strong>
		496	<ul>
		497	[% FOREACH holding IN SEARCH_RESULT.summary_holdings %]
		498	<li>
		499	[% Holdings.GetLocation(holding) \| html %]
		500	</li>
		501	[% END %]
		502	</ul>
		503	</div>
		504	[% END %]
		505
492	[% IF ( SEARCH_RESULT.items_count ) %]	506	[% IF ( SEARCH_RESULT.items_count ) %]
493	<strong>	507	<strong>
494	[% IF MaxSearchResultsItemsPerRecordStatusCheck && SEARCH_RESULT.items_count > MaxSearchResultsItemsPerRecordStatusCheck %]	508	[% IF MaxSearchResultsItemsPerRecordStatusCheck && SEARCH_RESULT.items_count > MaxSearchResultsItemsPerRecordStatusCheck %]

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/marc21_field_008_holdings.tt (+193 lines)
		1	[% USE raw %]
		2	[% INCLUDE 'doc-head-open.inc' %]
		3	<title>Koha &rsaquo; Holdings &rsaquo; 008 builder</title>
		4	[% INCLUDE 'doc-head-close.inc' %]
		5	</head>
		6	<body id="cat_marc21_field_008_holdings" class="cat" style="padding:1em;">
		7	<h3> 008 Fixed-length data elements</h3>
		8	<form name="f_pop" onsubmit="report()" action="">
		9	<input type="hidden" name="plugin_name" value="marc21_field_008_holdings.pl" />
		10	<input name="f1" value="[% f1 \| html %]" type="hidden" />
		11	<table>
		12	<tr>
		13	<td>00-05 - Date entered on file</td>
		14	<td>[% f1 \| html %]</td>
		15	</tr>
		16	<tr>
		17	<td><label for="f6">06 - Receipt or acquisition status</label></td>
		18	<td>
		19	<select name="f6" id="f6" size="1">
		20	<option value="0"[%- IF ( f60 ) -%] selected="selected"[%- END -%]>0 - Unknown</option>
		21	<option value="1"[%- IF ( f61 ) -%] selected="selected"[%- END -%]>1 - Other receipt or acquisition status</option>
		22	<option value="2"[%- IF ( f62 ) -%] selected="selected"[%- END -%]>2 - Received and complete or ceased</option>
		23	<option value="3"[%- IF ( f63 ) -%] selected="selected"[%- END -%]>3 - On order</option>
		24	<option value="4"[%- IF ( f64 ) -%] selected="selected"[%- END -%]>4 - Currently received</option>
		25	<option value="5"[%- IF ( f65 ) -%] selected="selected"[%- END -%]>5 - Not currently received</option>
		26	</select>
		27	</td>
		28	</tr>
		29	<tr>
		30	<td><label for="f7">07 - Method of acquisition</label></td>
		31	<td>
		32	<select name="f7" id="f7" size="1">
		33	<option value="c"[%- IF ( f7c ) -%] selected="selected"[%- END -%]>c - Cooperative or consortial purchase</option>
		34	<option value="d"[%- IF ( f7d ) -%] selected="selected"[%- END -%]>d - Deposit</option>
		35	<option value="e"[%- IF ( f7e ) -%] selected="selected"[%- END -%]>e - Exchange</option>
		36	<option value="f"[%- IF ( f7f ) -%] selected="selected"[%- END -%]>f - Free</option>
		37	<option value="g"[%- IF ( f7g ) -%] selected="selected"[%- END -%]>g - Gift</option>
		38	<option value="l"[%- IF ( f7l ) -%] selected="selected"[%- END -%]>l - Legal deposit</option>
		39	<option value="m"[%- IF ( f7m ) -%] selected="selected"[%- END -%]>m - Membership</option>
		40	<option value="n"[%- IF ( f7n ) -%] selected="selected"[%- END -%]>n - Non-library purchase</option>
		41	<option value="p"[%- IF ( f7p ) -%] selected="selected"[%- END -%]>p - Purchase</option>
		42	<option value="q"[%- IF ( f7q ) -%] selected="selected"[%- END -%]>q - Lease</option>
		43	<option value="u"[%- IF ( f7u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
		44	<option value="z"[%- IF ( f7z ) -%] selected="selected"[%- END -%]>z - Other method of acquisition</option>
		45	</select>
		46	</td>
		47	</tr>
		48	<tr>
		49	<td><label for="f8">08-11 - Expected acquisition end date</label></td>
		50	<td><input type="text" name="f8" id="f8" maxlength="4" size="5" value="[% f8 \| html %]" /></td>
		51	</tr>
		52	<tr>
		53	<td><label for="f12">12- General retention policy</label></td>
		54	<td>
		55	<select name="f12" id="f12" size="1">
		56	<option value="0"[%- IF ( f120 ) -%] selected="selected"[%- END -%]>0 - Unknown</option>
		57	<option value="1"[%- IF ( f121 ) -%] selected="selected"[%- END -%]>1 - Other general retention policy</option>
		58	<option value="2"[%- IF ( f122 ) -%] selected="selected"[%- END -%]>2 - Retained except as replaced by updates</option>
		59	<option value="3"[%- IF ( f123 ) -%] selected="selected"[%- END -%]>3 - Sample issue retained</option>
		60	<option value="4"[%- IF ( f124 ) -%] selected="selected"[%- END -%]>4 - Retained until replaced by microform</option>
		61	<option value="5"[%- IF ( f125 ) -%] selected="selected"[%- END -%]>5 - Retained until replaced by cumulation, replacement volume, or revision</option>
		62	<option value="6"[%- IF ( f126 ) -%] selected="selected"[%- END -%]>6 - Retained for a limited period</option>
		63	<option value="7"[%- IF ( f127 ) -%] selected="selected"[%- END -%]>7 - Not retained</option>
		64	<option value="8"[%- IF ( f128 ) -%] selected="selected"[%- END -%]>8 - Permanently retained</option>
65	</select>
66	</td>
67	</tr>
68	<tr>
69	<td><label for="f13">13 - Policy type</label></td>
70	<td>
71	<select name="f13" id="f13" size="1">
72	<option value=" "[%- IF ( f13 ) -%] selected="selected"[%- END -%]># - No information provided</option>
73	<option value="l"[%- IF ( f13l ) -%] selected="selected"[%- END -%]>l - Latest</option>
74	<option value="p"[%- IF ( f13p ) -%] selected="selected"[%- END -%]>p - Previous</option>
75	</select>
76	</td>
77	</tr>
78	<tr>
79	<td><label for="f14">14 - Number of units</label></td>
80	<td>
81	<select name="f14" id="f14" size="1">
82	<option value=" "[%- IF ( f14 ) -%] selected="selected"[%- END -%]># - No information provided</option>
83	<option value="1"[%- IF ( f141 ) -%] selected="selected"[%- END -%]>1</option>
84	<option value="2"[%- IF ( f142 ) -%] selected="selected"[%- END -%]>2</option>
85	<option value="3"[%- IF ( f143 ) -%] selected="selected"[%- END -%]>3</option>
86	<option value="4"[%- IF ( f144 ) -%] selected="selected"[%- END -%]>4</option>
87	<option value="5"[%- IF ( f145 ) -%] selected="selected"[%- END -%]>5</option>
88	<option value="6"[%- IF ( f146 ) -%] selected="selected"[%- END -%]>6</option>
89	<option value="7"[%- IF ( f147 ) -%] selected="selected"[%- END -%]>7</option>
90	<option value="8"[%- IF ( f148 ) -%] selected="selected"[%- END -%]>8</option>
91	<option value="9"[%- IF ( f149 ) -%] selected="selected"[%- END -%]>9 </option>
92	</select>
93	</td>
94	</tr>
95	<tr>
96	<td><label for="f15">15 - Unit type</label></td>
97	<td>
98	<select name="f15" id="f15" size="1">
99	<option value=" "[%- IF ( f15 ) -%] selected="selected"[%- END -%]># - No information provided</option>
100	<option value="m"[%- IF ( f15m ) -%] selected="selected"[%- END -%]>m - Month(s)</option>
101	<option value="w"[%- IF ( f15w ) -%] selected="selected"[%- END -%]>w - Week(s)</option>
102	<option value="y"[%- IF ( f15y ) -%] selected="selected"[%- END -%]>y - Year(s)</option>
103	<option value="e"[%- IF ( f15e ) -%] selected="selected"[%- END -%]>e - Edition(s)</option>
104	<option value="i"[%- IF ( f15i ) -%] selected="selected"[%- END -%]>i - Issue(s)</option>
105	<option value="s"[%- IF ( f15s ) -%] selected="selected"[%- END -%]>s - Supplement(s)</option>
106	</select>
107	</td>
108	</tr>
109	<tr>
110	<td><label for="f16">16 - Completeness</label></td>
111	<td>
112	<select name="f16" id="f16" size="1">
113	<option value="0"[%- IF ( f160 ) -%] selected="selected"[%- END -%]>0 - Other</option>
114	<option value="1"[%- IF ( f161 ) -%] selected="selected"[%- END -%]>1 - Complete</option>
115	<option value="2"[%- IF ( f162 ) -%] selected="selected"[%- END -%]>2 - Incomplete</option>
116	<option value="3"[%- IF ( f163 ) -%] selected="selected"[%- END -%]>3 - Scattered</option>
117	<option value="4"[%- IF ( f164 ) -%] selected="selected"[%- END -%]>4 - Not applicable</option>
118	</select>
119	</td>
120	</tr>
121	<tr>
122	<td><label for="f17">17-19 - Number of copies reported</label></td>
123	<td><input type="text" name="f17" id="f17" maxlength="3" size="4" value="[% f17 \| html %]" /></td>
124	</tr>
125	<tr>
126	<td><label for="f20">20 - Lending policy</label></td>
127	<td>
128	<select name="f20" id="f20" size="1">
129	<option value="a"[%- IF ( f20a ) -%] selected="selected"[%- END -%]>a - Will lend</option>
130	<option value="b"[%- IF ( f20b ) -%] selected="selected"[%- END -%]>b - Will not lend</option>
131	<option value="c"[%- IF ( f20c ) -%] selected="selected"[%- END -%]>c - Will lend hard copy only</option>
132	<option value="l"[%- IF ( f20l ) -%] selected="selected"[%- END -%]>l - Limited lending policy</option>
133	<option value="u"[%- IF ( f20u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
134	</select>
135	</td>
136	</tr>
137	<tr>
138	<td><label for="f21">21 - Reproduction policy</label></td>
139	<td>
140	<select name="f21" id="f21" size="1">
141	<option value="a"[%- IF ( f21a ) -%] selected="selected"[%- END -%]>a - Will reproduce</option>
142	<option value="b"[%- IF ( f21b ) -%] selected="selected"[%- END -%]>b - Will not reproduce</option>
143	<option value="u"[%- IF ( f21u ) -%] selected="selected"[%- END -%]>u - Unknown</option>
144	</select>
145	</td>
146	</tr>
147	<tr>
148	<td><label for="f22">22-24 - Language</label></td>
149	<td><input type="text" name="f22" id="f22" maxlength="3" size="4" value="[% f22 \| html %]" /></td>
150	</tr>
151	<tr>
152	<td><label for="f25">25 - Separate or composite copy report</label></td>
153	<td>
154	<select name="f25" id="f25" size="1">
155	<option value="0"[%- IF ( f250 ) -%] selected="selected"[%- END -%]>0 - Separate copy report</option>
156	<option value="1"[%- IF ( f251 ) -%] selected="selected"[%- END -%]>1 - Composite copy report</option>
157	</select>
158	</td>
159	</tr>
160	<tr>
161	<td><label for="f26">26-31 - Date of report</label></td>
162	<td><input type="text" name="f26" id="f26" maxlength="6" size="7" value="[% f26 \| html %]" /></td>
163	</tr>
164	</table>
165	<fieldset class="action"><input type="submit" value="OK" /> <a href="#" class="cancel close">Cancel</a></fieldset>
166	</form>
167	<script>
168	function report() {
169	var doc = opener.document;
170	var field = doc.getElementById("[% index \| html %]");
171
172	field.value =
173	document.f_pop.f1.value+
174	document.f_pop.f6.value+
175	document.f_pop.f7.value+
176	(document.f_pop.f8.value + ' ').substr(0, 4)+
177	document.f_pop.f12.value+
178	document.f_pop.f13.value+
179	document.f_pop.f14.value+
180	document.f_pop.f15.value+
181	document.f_pop.f16.value+
182	(document.f_pop.f17.value + ' ').substr(0, 3)+
183	document.f_pop.f20.value+
184	document.f_pop.f21.value+
185	(document.f_pop.f22.value + ' ').substr(0, 3)+
186	document.f_pop.f25.value+
187	document.f_pop.f26.value;
188	self.close();
189	return false;
190	}
191	</script>
192
193	[% INCLUDE 'popup-bottom.inc' %]

Lines 6-11 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-detail.tt (+28 lines)
6	[% USE Branches %]	6	[% USE Branches %]
7	[% USE ColumnsSettings %]	7	[% USE ColumnsSettings %]
8	[% USE AuthorisedValues %]	8	[% USE AuthorisedValues %]
		9	[% USE Holdings %]
9	[% SET TagsShowEnabled = ( ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsShowOnDetail ) %]	10	[% SET TagsShowEnabled = ( ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsShowOnDetail ) %]
10	[% SET TagsInputEnabled = ( ( Koha.Preference( 'opacuserlogin' ) == 1 ) && ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsInputOnDetail ) %]	11	[% SET TagsInputEnabled = ( ( Koha.Preference( 'opacuserlogin' ) == 1 ) && ( Koha.Preference( 'TagsEnabled' ) == 1 ) && TagsInputOnDetail ) %]
11	[% IF Koha.Preference('AmazonAssocTag') %]	12	[% IF Koha.Preference('AmazonAssocTag') %]
Lines 704-709 Link Here
704	[% END %]	705	[% END %]
705	[% END %]	706	[% END %]
706	[% END # IF itemloop.size %]	707	[% END # IF itemloop.size %]
		708	[% IF summary_holdings %]
		709	[% FOREACH holding IN summary_holdings %]
		710	[% UNLESS holding.suppress %]
		711	[% holding_details = Holdings.GetDetails(holding) %]
		712	[% IF holding_details.public_note \|\| holding_details.summary \|\| holding_details.supplements \|\| holding_details.indexes %]
		713	<span class="summary-holdings">
		714	<br>
		715	<strong>Additional information for [% Holdings.GetLocation(holding, 1) \| html %]</strong>
		716	<ul>
		717	[% IF holding_details.public_note %]
		718	<li>Public note: [% holding_details.public_note \| html %]</li>
		719	[% END %]
		720	[% IF holding_details.summary %]
		721	<li>Summary: [% holding_details.summary \| html %]</li>
		722	[% END %]
		723	[% IF holding_details.supplements %]
		724	<li>Supplements: [% holding_details.supplements \| html %]</li>
		725	[% END %]
		726	[% IF holding_details.indexes %]
		727	<li>Indexes: [% holding_details.indexes \| html %]</li>
		728	[% END %]
		729	</ul>
		730	</span>
		731	[% END %]
		732	[% END %]
		733	[% END %]
		734	[% END %]
707	[% PROCESS 'shelfbrowser.inc' %]	735	[% PROCESS 'shelfbrowser.inc' %]
708	[% INCLUDE shelfbrowser tab='holdings' %]	736	[% INCLUDE shelfbrowser tab='holdings' %]
709	<br style="clear:both;" />	737	<br style="clear:both;" />

Lines 4-12 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slim2OPACResults.xsl (-2 / +17 lines)
4	<xsl:stylesheet version="1.0"	4	<xsl:stylesheet version="1.0"
5	xmlns:marc="http://www.loc.gov/MARC21/slim"	5	xmlns:marc="http://www.loc.gov/MARC21/slim"
6	xmlns:items="http://www.koha-community.org/items"	6	xmlns:items="http://www.koha-community.org/items"
		7	xmlns:holdings="http://www.koha-community.org/holdings"
7	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"	8	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
8	xmlns:str="http://exslt.org/strings"	9	xmlns:str="http://exslt.org/strings"
9	exclude-result-prefixes="marc items">	10	exclude-result-prefixes="marc items holdings">
10	<xsl:import href="MARC21slimUtils.xsl"/>	11	<xsl:import href="MARC21slimUtils.xsl"/>
11	<xsl:output method = "html" indent="yes" omit-xml-declaration = "yes" encoding="UTF-8"/>	12	<xsl:output method = "html" indent="yes" omit-xml-declaration = "yes" encoding="UTF-8"/>
12	<xsl:key name="item-by-status" match="items:item" use="items:status"/>	13	<xsl:key name="item-by-status" match="items:item" use="items:status"/>
Lines 1229-1235 Link Here
1229	</xsl:for-each>	1230	</xsl:for-each>
1230	(<xsl:value-of select="$AlternateHoldingsCount"/>)	1231	(<xsl:value-of select="$AlternateHoldingsCount"/>)
1231	</xsl:when>	1232	</xsl:when>
1232	<xsl:otherwise><span class="noitems">No items available </span> </xsl:otherwise>	1233	<xsl:otherwise>
		1234	<span class="noitems">No items available </span>
		1235	<xsl:if test="//holdings:holdings/holdings:holding/holdings:suppress[.='0']">:
		1236	<xsl:for-each select="//holdings:holdings/holdings:holding[./holdings:suppress='0']">
		1237	<xsl:if test="position() > 1">, </xsl:if>
		1238	<xsl:value-of select="./holdings:holdingbranch"/>
		1239	<xsl:if test="string-length(./holdings:location) > 0">
		1240	- <xsl:value-of select="./holdings:location"/>
		1241	</xsl:if>
		1242	<xsl:if test="string-length(./holdings:callnumber) > 0">
		1243	- <xsl:value-of select="./holdings:callnumber"/>
		1244	</xsl:if>
		1245	</xsl:for-each>
		1246	</xsl:if>
		1247	</xsl:otherwise>
1233	</xsl:choose>	1248	</xsl:choose>
1234	</xsl:when>	1249	</xsl:when>
1235	<xsl:when test="count(key('item-by-status', 'available'))>0">	1250	<xsl:when test="count(key('item-by-status', 'available'))>0">

Line 0 Link Here

(-)a/t/db_dependent/Koha/Holding.t (+156 lines)
		1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
		18	use Modern::Perl;
		19
		20	use Test::More tests => 3;
		21
		22	use t::lib::TestBuilder;
		23
		24	use C4::Biblio;
		25
		26	use Koha::BiblioFrameworks;
		27	use Koha::Database;
		28	use Koha::Libraries;
		29	use Koha::Library;
		30	use Koha::MarcSubfieldStructures;
		31
		32	BEGIN {
		33	use_ok('Koha::Holding');
		34	use_ok('Koha::Holdings');
		35	}
		36
		37	my $schema = Koha::Database->new->schema;
		38
		39	subtest 'Koha::Holding tests' => sub {
		40
		41	plan tests => 19;
		42
		43	$schema->storage->txn_begin;
		44
		45	# Add a framework
		46	my $frameworkcode = 'HLD';
		47	my $existing_mss = Koha::MarcSubfieldStructures->search({frameworkcode => $frameworkcode});
		48	$existing_mss->delete() if $existing_mss;
		49	my $existing_fw = Koha::BiblioFrameworks->find({frameworkcode => $frameworkcode});
		50	$existing_fw->delete() if $existing_fw;
		51	Koha::BiblioFramework->new({
		52	frameworkcode => $frameworkcode,
		53	frameworktext => 'Holdings'
		54	})->store();
		55	Koha::MarcSubfieldStructure->new({
		56	frameworkcode => $frameworkcode,
		57	tagfield => 852,
		58	tagsubfield => 'b',
		59	kohafield => 'holdings.holdingbranch'
		60	})->store();
		61	Koha::MarcSubfieldStructure->new({
		62	frameworkcode => $frameworkcode,
		63	tagfield => 852,
		64	tagsubfield => 'c',
65	kohafield => 'holdings.location'
66	})->store();
67	Koha::MarcSubfieldStructure->new({
68	frameworkcode => $frameworkcode,
69	tagfield => 942,
70	tagsubfield => 'n',
71	kohafield => 'holdings.suppress'
72	})->store();
73	Koha::MarcSubfieldStructure->new({
74	frameworkcode => $frameworkcode,
75	tagfield => 999,
76	tagsubfield => 'c',
77	kohafield => 'biblio.biblionumber'
78	})->store();
79	Koha::MarcSubfieldStructure->new({
80	frameworkcode => $frameworkcode,
81	tagfield => 999,
82	tagsubfield => 'e',
83	kohafield => 'holdings.holding_id'
84	})->store();
85
86	# Add a branch
87	Koha::Library->new({ branchcode => 'ABC', branchname => 'Abc' })->store() unless Koha::Libraries->find({ branchcode => 'ABC' });
88
89	# Add a biblio
90	my $title = 'Oranges and Peaches';
91	my $record = MARC::Record->new();
92	my $field = MARC::Field->new('245','','','a' => $title);
93	$record->append_fields( $field );
94	my ($biblionumber) = C4::Biblio::AddBiblio($record, '');
95
96	# Add a holdings record
97	my $holding_marc = MARC::Record->new();
98	$holding_marc->append_fields(MARC::Field->new('852','','','b' => 'ABC', 'c' => 'DEF'));
99	my $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
100	is ($new_holding->set_marc({record => $holding_marc}), $new_holding, 'set_marc() returns the object');
101	is($new_holding->store(), $new_holding, 'store() returns the object on create');
102	is(defined $new_holding->holding_id(), 1, 'Newly added holdings record has a holding_id');
103
104	# Check that the added record can be found and looks right
105	my $holding = Koha::Holdings->find($new_holding->holding_id());
106	is(ref $holding, 'Koha::Holding', 'Found a Koha::Holding object');
107	is($holding->frameworkcode(), $frameworkcode, 'Framework code correct in Koha::Holding object');
108	is($holding->holdingbranch(), 'ABC', 'Location correct in Koha::Holding object');
109
110	my $branch = $holding->holding_branch();
111	is(ref $branch, 'Koha::Library', 'holding_branch() returns a Koha::Library object');
112	is($branch->branchname(), 'Abc', 'holding_branch() returns correct library');
113
114	my $metadata = $holding->metadata;
115	is( ref $metadata, 'Koha::Holdings::Metadata', 'Method metadata() returned a Koha::Holdings::Metadata object');
116
117	my $holding_marc2 = $metadata->record;
118	is(ref $holding_marc2, 'MARC::Record', 'Method record() returned a MARC::Record object');
119	is($holding_marc2->field('852')->subfield('b'), 'ABC', 'Location in 852$b matches location from original record object');
120
121	# Test updating the record
122	$holding_marc2->append_fields(MARC::Field->new('942','','','n' => '1'));
123	is($holding->set_marc({record => $holding_marc2}), $holding, 'set_marc() returns the object on update');
124	is($holding->store(), $holding, 'store() returns the object on update');
125
126	is($holding->suppress(), 1, 'Holdings record is suppressed');
127
128	# Test misc methods
129	my %mapping = Koha::Holding->get_marc_field_mapping({ field => 'holdings.location' });
130	is_deeply(
131	\%mapping,
132	{852 => 'c'},
133	'get_marc_field_mapping returns correct data'
134	);
135
136	my $fields = Koha::Holding->marc_to_koha_fields({ record => $holding_marc2 });
137	is_deeply(
138	$fields,
139	{
140	holdingbranch => 'ABC',
141	location => 'DEF',
142	suppress => 1,
143	holding_id => $new_holding->holding_id()
144	},
145	'marc_to_koha_fields returns correct data'
146	);
147
148	# Test deletion
149	is(defined $holding->deleted_on(), '', 'Holdings record not marked as deleted');
150	$holding->delete();
151	$holding = Koha::Holdings->find($new_holding->holding_id());
152	is(defined $holding->deleted_on(), 1, 'Holdings record marked as deleted');
153	is(defined $holding->metadata()->deleted_on(), 1, 'Holdings metadata record marked as deleted');
154
155	$schema->storage->txn_rollback;
156	};

Line 0 Link Here

(-)a/t/db_dependent/Koha/Holdings.t (+113 lines)
		1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
		18	use Modern::Perl;
		19
		20	use Test::More tests => 2;
		21
		22	use t::lib::TestBuilder;
		23
		24	use C4::Biblio;
		25
		26	use Koha::BiblioFrameworks;
		27	use Koha::Database;
		28	use Koha::MarcSubfieldStructures;
		29
		30	BEGIN {
		31	use_ok('Koha::Holdings');
		32	}
		33
		34	my $schema = Koha::Database->new->schema;
		35
		36	subtest 'Koha::Holdings tests' => sub {
		37
		38	plan tests => 3;
		39
		40	$schema->storage->txn_begin;
		41
		42	# Add a framework
		43	my $frameworkcode = 'HLD';
		44	my $existing_mss = Koha::MarcSubfieldStructures->search({frameworkcode => $frameworkcode});
		45	$existing_mss->delete() if $existing_mss;
		46	my $existing_fw = Koha::BiblioFrameworks->find({frameworkcode => $frameworkcode});
		47	$existing_fw->delete() if $existing_fw;
		48	Koha::BiblioFramework->new({
		49	frameworkcode => $frameworkcode,
		50	frameworktext => 'Holdings'
		51	})->store();
		52	Koha::MarcSubfieldStructure->new({
		53	frameworkcode => $frameworkcode,
		54	tagfield => 852,
		55	tagsubfield => 'b',
		56	kohafield => 'holdings.holdingbranch'
		57	})->store();
		58	Koha::MarcSubfieldStructure->new({
		59	frameworkcode => $frameworkcode,
		60	tagfield => 852,
		61	tagsubfield => 'c',
		62	kohafield => 'holdings.location'
		63	})->store();
		64	Koha::MarcSubfieldStructure->new({
65	frameworkcode => $frameworkcode,
66	tagfield => 999,
67	tagsubfield => 'c',
68	kohafield => 'biblio.biblionumber'
69	})->store();
70	Koha::MarcSubfieldStructure->new({
71	frameworkcode => $frameworkcode,
72	tagfield => 999,
73	tagsubfield => 'e',
74	kohafield => 'holdings.holding_id'
75	})->store();
76
77	# Add branches
78	Koha::Library->new({ branchcode => 'ABC', branchname => 'Abc' })->store() unless Koha::Libraries->find({ branchcode => 'ABC' });
79	Koha::Library->new({ branchcode => 'BCD', branchname => 'Bcd' })->store() unless Koha::Libraries->find({ branchcode => 'BCD' });
80
81	# Add a biblio
82	my $title = 'Oranges and Peaches';
83	my $record = MARC::Record->new();
84	my $field = MARC::Field->new('245','','','a' => $title);
85	$record->append_fields( $field );
86	my ($biblionumber) = C4::Biblio::AddBiblio($record, '');
87
88	# Add a couple of holdings records
89	my $holding_marc = MARC::Record->new();
90	$holding_marc->append_fields(MARC::Field->new('852','','','b' => 'ABC', 'c' => 'DEF'));
91	my $new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
92	$new_holding->set_marc({record => $holding_marc})->store();
93
94	$holding_marc = MARC::Record->new();
95	$holding_marc->append_fields(MARC::Field->new('852','','','b' => 'BCD', 'c' => 'DEF'));
96	$new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
97	$new_holding->set_marc({record => $holding_marc})->store();
98
99	# Add and delete a holdings record
100	$holding_marc = MARC::Record->new();
101	$holding_marc->append_fields(MARC::Field->new('852','','','b' => 'BCD', 'c' => 'DEF'));
102	$new_holding = Koha::Holding->new({ biblionumber => $biblionumber, frameworkcode => $frameworkcode });
103	$new_holding->set_marc({record => $holding_marc})->store();
104	$new_holding->delete();
105
106	# Test results
107	my $fields = Koha::Holdings->get_embeddable_marc_fields({ biblionumber => $biblionumber});
108	is(scalar(@{$fields}), 2, 'get_embeddable_marc_fields returns two fields');
109	is($fields->[0]->as_string, 'ABC DEF', 'get_embeddable_marc_fields returns correct data in first field');
110	is($fields->[1]->as_string, 'BCD DEF', 'get_embeddable_marc_fields returns correct data in second field');
111
112	$schema->storage->txn_rollback;
113	};

Lines 23-28 use Test::More tests => 5; Link Here

(-)a/t/db_dependent/Koha/Item.t (-4 / +41 lines)
23		23
24	use C4::Biblio;	24	use C4::Biblio;
25		25
		26	use Koha::Holdings;
26	use Koha::Items;	27	use Koha::Items;
27	use Koha::Database;	28	use Koha::Database;
28		29
Lines 333-341 subtest 'pickup_locations' => sub { Link Here
333	$schema->storage->txn_rollback;	334	$schema->storage->txn_rollback;
334	};	335	};
335		336
336	subtest 'move_to_biblio() tests' => sub {	337	subtest 'adopt_holdings_from_biblio() tests' => sub {
337		338
338	plan tests => 12;	339	plan tests => 19;
339		340
340	$schema->storage->txn_begin;	341	$schema->storage->txn_begin;
341		342
Lines 346-359 subtest 'move_to_biblio() tests' => sub { Link Here
346		347
347	my $source_biblionumber = $source_biblio->biblionumber;	348	my $source_biblionumber = $source_biblio->biblionumber;
348		349
		350	my $library = $builder->build_object({ class => 'Koha::Libraries' });
		351
		352	my $holding_marc = MARC::Record->new();
		353	$holding_marc->append_fields(MARC::Field->new('852','','','b' => $library->branchcode));
		354	my $source_holding = Koha::Holding->new({ biblionumber => $source_biblionumber, frameworkcode => '' });
		355	$source_holding->set_marc({record => $holding_marc});
		356	$source_holding->store();
		357
		358	my $standalone_holding = Koha::Holding->new({ biblionumber => $source_biblionumber, frameworkcode => '' });
		359	$standalone_holding->set_marc({record => $holding_marc});
		360	$standalone_holding->store();
		361
349	my $item1 = $builder->build_sample_item({ biblionumber => $source_biblionumber });	362	my $item1 = $builder->build_sample_item({ biblionumber => $source_biblionumber });
		363	$item1->set({ holding_id => $source_holding->holding_id() })->store();
350	my $item2 = $builder->build_sample_item({ biblionumber => $source_biblionumber });	364	my $item2 = $builder->build_sample_item({ biblionumber => $source_biblionumber });
		365	$item2->set({ holding_id => $source_holding->holding_id() })->store();
351		366
352	my $itemnumber1 = $item1->itemnumber;	367	my $itemnumber1 = $item1->itemnumber;
353	my $itemnumber2 = $item2->itemnumber;	368	my $itemnumber2 = $item2->itemnumber;
354		369
355	my $library = $builder->build_object({ class => 'Koha::Libraries' });
356
357	my $patron = $builder->build_object({	370	my $patron = $builder->build_object({
358	class => 'Koha::Patrons',	371	class => 'Koha::Patrons',
359	value => { branchcode => $library->branchcode, }	372	value => { branchcode => $library->branchcode, }
Lines 404-409 subtest 'move_to_biblio() tests' => sub { Link Here
404	@result = $dbh->selectrow_array('SELECT biblionumber FROM items WHERE itemnumber = ?', undef, $itemnumber2);	417	@result = $dbh->selectrow_array('SELECT biblionumber FROM items WHERE itemnumber = ?', undef, $itemnumber2);
405	is($result[0], $source_biblionumber, 'Correct biblionumber in the unmoved item');	418	is($result[0], $source_biblionumber, 'Correct biblionumber in the unmoved item');
406		419
		420	my $target_holdings = $target_biblio->holdings();
		421	is($target_holdings->count, 1, 'Holdings record created in target biblio');
		422
		423	@result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber1);
		424	is($result[0], $target_holdings->next()->holding_id(), 'Correct holding_id in the moved item');
		425
		426	@result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber2);
		427	is($result[0], $source_holding->holding_id(), 'Correct holding_id in the unmoved item');
		428
407	@result = $dbh->selectrow_array('SELECT biblionumber FROM aqorders WHERE ordernumber = ?', undef, $ordernumber1);	429	@result = $dbh->selectrow_array('SELECT biblionumber FROM aqorders WHERE ordernumber = ?', undef, $ordernumber1);
408	is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in aqorders for order with the moved item');	430	is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in aqorders for order with the moved item');
409		431
Lines 434-438 subtest 'move_to_biblio() tests' => sub { Link Here
434	@result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2);	456	@result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2);
435	is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');	457	is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');
436		458
		459	@result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber1);
		460	is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in linktracker for moved item');
		461
		462	@result = $dbh->selectrow_array('SELECT biblionumber FROM linktracker WHERE itemnumber = ?', undef, $itemnumber2);
		463	is($result[0], $source_biblionumber, 'Correct biblionumber in linktracker for unmoved item');
		464
		465	# Move everything
		466	$target_biblio->adopt_holdings_from_biblio($source_biblio);
		467
		468	@result = $dbh->selectrow_array('SELECT biblionumber FROM holdings WHERE holding_id = ?', undef, $standalone_holding->holding_id);
		469	is($result[0], $target_biblio->biblionumber, 'Correct biblionumber in the standalone holdings record');
		470
		471	@result = $dbh->selectrow_array('SELECT holding_id FROM items WHERE itemnumber = ?', undef, $itemnumber2);
		472	is($result[0], $source_holding->holding_id(), 'Correct holding_id in the second moved item');
		473
437	$schema->storage->txn_rollback;	474	$schema->storage->txn_rollback;
438	};	475	};