Attachment #88448 for bug #22613

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




    my @seefrom;
    my @seealso;
    my @otherscript;
    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
# construct UNIMARC summary, that is quite different from MARC21 one
# accepted form

                heading => $heading,
                hemain  => ( $_->subfield('a') // undef ),
                search  => $heading,
                authid  => ( $_->subfield($authsubfield) // undef ),
            }
        } $record->field('5..');


                    type    => $field->subfield('i'),
                    field   => $field->tag(),
                    search  => $field->as_string($marc21subfields) || '',
                    authid  => $field->subfield($authsubfield) || ''
                };
            } else {
                push @seealso, {

                    type    => $type,
                    field   => $field->tag(),
                    search  => $field->as_string($marc21subfields) || '',
                    authid  => $field->subfield($authsubfield) || ''
                };
            }
        }


sub _get_authid_subfield{
    my ($field)=@_;
    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    return $field->subfield($authsubfield)||$field->subfield('3');
}

=head2 GetHeaderAuthority

    # Search authtypes and reporting tags
    my $authfrom = Koha::Authorities->find($mergefrom);
    my $authto = Koha::Authorities->find($mergeto);
    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef;
    my $authtypeto   = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef;
    my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';

        foreach my $tagfield (@$tags_using_authtype) {
            my $countfrom = 0;    # used in strict mode to remove duplicates
            foreach my $field ( $marcrecord->field($tagfield) ) {
                my $auth_number = $field->subfield($authsubfield);    # link to authority
                my $tag         = $field->tag();
                next if !defined($auth_number) || $auth_number ne $mergefrom;
                $countfrom++;

                    $newtag,
                    $controlled_ind->{ind1} // $field->indicator(1),
                    $controlled_ind->{ind2} // $field->indicator(2),
                    $authsubfield => $mergeto, # Needed to create field, will be moved
                );
                my ( @prefix, @postfix );
                if ( !$overwrite ) {




use C4::Debug;

use Koha::Caches;
use Koha::Authorities;
use Koha::Authority::Types;
use Koha::Acquisition::Currencies;
use Koha::Biblio::Metadatas;

    # throw an exception which probably won't be handled.
    foreach my $field ($record->fields()) {
        if (! $field->is_control_field()) {
            if (scalar($field->subfields()) == 0 || (scalar($field->subfields()) == 1 && $field->subfield('0'))) {
                $record->delete_field($field);
            }
        }

    require C4::Heading;
    require C4::AuthoritiesMarc;

    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    $allowrelink = 1 unless defined $allowrelink;
    my $num_headings_changed = 0;
    foreach my $field ( $bib->fields() ) {

        next unless defined $heading;

        # check existing $9
        my $current_link = $field->subfield($authsubfield);

        if ( defined $current_link && (!$allowrelink || !C4::Context->preference('LinkerRelink')) )
        {

              ->{ $heading->display_form() }++;
            next if defined $current_link and $current_link == $authid;

            $field->delete_subfield( code => $authsubfield ) if defined $current_link;
            $field->add_subfields( $authsubfield, $authid );
            $num_headings_changed++;
        }
        else {

                        $marcrecordauth->leader('     nz  a22     o  4500');
                        SetMarcUnicodeFlag( $marcrecordauth, 'MARC21' );
                    }
                    $field->delete_subfield( code => $authsubfield )
                      if defined $current_link;
                    my $authfield =
                      MARC::Field->new( $authority_type->auth_tag_to_report,

                    $authid =
                      C4::AuthoritiesMarc::AddAuthority( $marcrecordauth, '',
                        $heading->auth_type() );
                    $field->add_subfields( $authsubfield, $authid );
                    $num_headings_changed++;
                    $linker->update_cache($heading, $authid);
                    $results{'added'}->{ $heading->display_form() }++;

                    $results{'linked'}->{ $heading->display_form() }++;
                }
                else {
                    $field->delete_subfield( code => $authsubfield );
                    $num_headings_changed++;
                    $results{'unlinked'}->{ $heading->display_form() }++;
                }


    my $subject_limit = C4::Context->preference("TraceCompleteSubfields") ? 'su,complete-subfield' : 'su';
    my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
    my $authsubfield = Koha::Authorities->authority_linking_subfield;

    foreach my $field ( $record->field($fields_filter) ) {
        next unless ($field->tag() >= $mintag && $field->tag() <= $maxtag);

        my @subfields = $field->subfields();
        my @link_loop;

        # if there is an authority link, build the links with an=$authsubfield
        my $auth_subfield = $field->subfield($authsubfield);
        my $authoritylink;
        if ($auth_subfield) {
            my $linkvalue = $auth_subfield;
            $linkvalue =~ s/(\(|\))//g;
            @link_loop = ( { limit => 'an', 'link' => $linkvalue } );
            $authoritylink = $linkvalue


        # other subfields
        for my $subject_subfield (@subfields) {
            next if ( $subject_subfield->[0] eq $authsubfield );

            # don't load unimarc subfields 3,4,5
            next if ( ( $marcflavour eq "UNIMARC" ) and ( $subject_subfield->[0] =~ /2|3|4|5/ ) );

            my $linkvalue = $value;
            $linkvalue =~ s/(\(|\))//g;
            # if no authority link, build a search query
            unless ($auth_subfield) {
                push @link_loop, {
                    limit    => $subject_limit,
                    'link'   => $linkvalue,


    my @marcauthors;
    my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
    my $authsubfield = Koha::Authorities->authority_linking_subfield;

    foreach my $field ( $record->field($fields_filter) ) {
        next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;

        my @subfields  = $field->subfields();
        my $count_auth = 0;

        # if there is an authority link, build the link with Koha-Auth-Number: $authsubfield
        my $auth_subfield = $field->subfield($authsubfield);
        if ($auth_subfield) {
            my $linkvalue = $auth_subfield;
            $linkvalue =~ s/(\(|\))//g;
            @link_loop = ( { 'limit' => 'an', 'link' => $linkvalue } );
        }

        # other subfields
        my $unimarc3;
        for my $authors_subfield (@subfields) {
            next if ( $authors_subfield->[0] eq $authsubfield );

            # unimarc3 contains the $3 of the author for UNIMARC.
            # For french academic libraries, it's the "ppn", and it's required for idref webservice

                $linkvalue = "($value)";
            }
            # if no authority link, build a search query
            unless ($auth_subfield) {
                push @link_loop, {
                    limit    => 'au',
                    'link'   => $linkvalue,

        }
        push @marcauthors, {
            MARCAUTHOR_SUBFIELDS_LOOP => \@subfields_loop,
            authoritylink => $auth_subfield,
            unimarc3 => $unimarc3
        };
    }


    my @marcseries;
    my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
    my $authsubfield = Koha::Authorities->authority_linking_subfield;

    foreach my $field ( $record->field($fields_filter) ) {
        next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;

        for my $series_subfield (@subfields) {

            # ignore $9, used for authority link
            next if ( $series_subfield->[0] eq $authsubfield );

            my $volume_number;
            my $code      = $series_subfield->[0];




use Carp;
use MARC::Field;
use C4::Heading;
use Koha::Authorities;

use base qw(C4::Linker);


    my $search_form = $heading->search_form();
    my $authid;
    my $fuzzy = 0;
    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    if ( $self->{'cache'}->{$search_form}->{'cached'} ) {
        $authid = $self->{'cache'}->{$search_form}->{'authid'};
        $fuzzy  = $self->{'cache'}->{$search_form}->{'fuzzy'};


        if ( !defined $authid && $self->{'broader_headings'} ) {
            my $field     = $heading->field();
            my @subfields = grep { $_->[0] ne $authsubfield } $field->subfields();
            if ( scalar @subfields > 1 ) {
                pop @subfields;
                $field =




use Carp;

use Koha::Database;
use C4::Context;

use Koha::Authority;


    return @biblionumbers;
}

=head3 authority_linking_subfield

    $authsubfield = Koha::Authorities->authority_linking_subfield;

    Returns the authority subfield for selected MARC format

=cut

sub authority_linking_subfield {
    my ( $class ) = @_;

    my $marcflavour = C4::Context->preference('marcflavour');

    my $subfield;    
    if ($marcflavour eq 'UNIMARC') {
        $subfield = '9';
    } else {
        $subfield = '0';
    }

    return $subfield;
}

=head3 type

=cut




    mappings:
      - facet: ''
        marc_field: '1009'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1109'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1119'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1309'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '2459'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4009'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4109'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4409'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4909'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6009'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6109'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6119'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6309'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6489'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6509'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6519'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6529'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6539'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6549'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6559'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6569'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6579'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6629'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6909'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6919'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6969'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6979'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6989'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6999'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7009'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7109'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7119'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7309'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7519'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7969'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7979'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7989'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7999'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8009'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8109'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8119'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8309'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8969'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8979'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8989'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8999'
        marc_type: unimarc
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1000'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1100'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1110'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '1300'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '2450'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4000'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4100'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4400'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '4900'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6000'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6100'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6110'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6300'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6480'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6500'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6510'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6520'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6530'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6540'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6550'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6560'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6570'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6620'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6900'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6910'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6960'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6970'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6980'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '6990'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7000'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7100'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7110'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7300'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7510'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7960'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7970'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7980'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '7990'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8000'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8100'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8110'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8300'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8960'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8970'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8980'
        marc_type: marc21
        sort: ~
        suggestible: ''
      - facet: ''
        marc_field: '8990'
        marc_type: marc21
        sort: ~
        suggestible: ''




my $index        = $query->param('index');
my $tagid        = $query->param('tagid');
my $relationship = $query->param('relationship');
my $authsubfield = Koha::Authorities->authority_linking_subfield;

# open template
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

    # Get all values for each distinct subfield and add to subfield loop
    my %done_subfields;
    for ( $field->subfields ) {
        next if $_->[0] eq $authsubfield; # will be set with authid value
        my $letter = $_->[0];
        $letter ||= '@';
        next if defined $done_subfields{$letter};


$template->param(
    authid          => $authid ? $authid : "",
    authsubfield    => $authsubfield,
    index           => $index,
    tagid           => $tagid,
    update_ind1     => defined($indicator1),

Lines 210-217 my $count = $authobj ? $authobj->get_usage_count : 0; Link Here

(-)a/authorities/detail.pl (-1 / +2 lines)
210	my $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");	210	my $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");
211	$sth->execute($authtypecode);	211	$sth->execute($authtypecode);
212	my $biblio_fields;	212	my $biblio_fields;
		213	my $authsubfield = Koha::Authorities->authority_linking_subfield;
213	while (my ($tagfield) = $sth->fetchrow) {	214	while (my ($tagfield) = $sth->fetchrow) {
214	$biblio_fields.= $tagfield."9,";	215	$biblio_fields.= $tagfield.$authsubfield.",";
215	}	216	}
216	chop $biblio_fields if $biblio_fields;	217	chop $biblio_fields if $biblio_fields;
217		218




    # 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'));

    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    # 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 linking to an authority record - see bug 2206
    }
    elsif ($subfield eq $authsubfield and
           exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
           defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
           $tagslib->{$tag}->{'a'}->{authtypecode} ne '') {

    my @BIG_LOOP;
    my %seen;
    my @tab_data; # all tags to display
    my $authsubfield = Koha::Authorities->authority_linking_subfield;

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

                        next
                          if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
                            or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
                            and not ( $subfield eq $authsubfield and
                                      exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                      defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                      $tagslib->{$tag}->{'a'}->{authtypecode} ne ""

                    next
                      if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
                        or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
                      and not ( $subfield eq $authsubfield and
                                exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
                                $tagslib->{$tag}->{'a'}->{authtypecode} ne ""




  <index_data_field tag="086">
    <target_index>Number-govt-pub:w</target_index>
  </index_data_field>
  <!--record.abs line 90: melm 100$0      Cross-Reference:w,Koha-Auth-Number-->
  <index_subfields tag="100" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

    <target_index>Name-and-title:w</target_index>
    <target_index>Personal-name:w</target_index>
  </index_data_field>
  <!--record.abs line 93: melm 110$0      Koha-Auth-Number-->
  <index_subfields tag="110" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 94: melm 110        Author,Author:p,Author:s,Author-title,Author-name-corporate,Name,Name-and-title,Corporate-name-->

    <target_index>Name-and-title:w</target_index>
    <target_index>Corporate-name:w</target_index>
  </index_data_field>
  <!--record.abs line 95: melm 111$0      Koha-Auth-Number-->
  <index_subfields tag="111" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 96: melm 111        Author,Author:p,Author:s,Author-title,Author-name-corporate,Name,Name-and-title,Conference-name-->

  <index_subfields tag="130" subfields="r">
    <target_index>Music-key:w</target_index>
  </index_subfields>
  <!--record.abs line 99: melm 130$0      Koha-Auth-Number-->
  <index_subfields tag="130" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 100: melm 130        Title,Title:p,Title-uniform-->

    <target_index>Author-in-order:p</target_index>
    <target_index>Author-in-order:s</target_index>
  </index_subfields>
  <!--record.abs line 115: melm 245$0      Cross-Reference:w,Koha-Auth-Number-->
  <index_subfields tag="245" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

    <target_index>Title:w</target_index>
    <target_index>Title-series:w</target_index>
  </index_subfields>
  <!--record.abs line 126: melm 400$0      Koha-Auth-Number-->
  <index_subfields tag="400" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 127: melm 400        Author,Author-name-personal,Name,Personal-name-->

    <target_index>Title:w</target_index>
    <target_index>Title-series:w</target_index>
  </index_subfields>
  <!--record.abs line 130: melm 410$0      Koha-Auth-Number-->
  <index_subfields tag="410" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 131: melm 410        Author,Corporate-name-->

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_subfields>
  <!--record.abs line 140: melm 440$0      Koha-Auth-Number-->
  <index_subfields tag="440" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 141: melm 440        Title-series:w,Title-series:p,Title,Title-series-->

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_subfields>
  <!--record.abs line 143: melm 490$0      Koha-Auth-Number-->
  <index_subfields tag="490" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 144: melm 490        Title,Title-series-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 162: melm 600$0      Koha-Auth-Number-->
  <index_subfields tag="600" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 164: melm 600        Name,Personal-name,Subject-name-personal,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 167: melm 610$0      Koha-Auth-Number-->
  <index_subfields tag="610" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 168: melm 610        Name,Subject,Subject:p,Corporate-name-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 171: melm 611$0      Koha-Auth-Number-->
  <index_subfields tag="611" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 172: melm 611        Conference-name,Name,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 175: melm 630$0      Koha-Auth-Number-->
  <index_subfields tag="630" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 176: melm 630        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <index_subfields tag="648" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 177: melm 650$0      Koha-Auth-Number    -->
  <index_subfields tag="650" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 178: melm 650        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 179: melm 651$0      Koha-Auth-Number    -->
  <index_subfields tag="651" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 180: melm 651        Name-geographic,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 181: melm 652$0      Koha-Auth-Number    -->
  <index_subfields tag="652" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--melm 653$a      Index-term-uncontrolled    -->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 183: melm 653$0      Koha-Auth-Number    -->
  <index_subfields tag="653" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 184: melm 653        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 185: melm 654$0      Koha-Auth-Number    -->
  <index_subfields tag="654" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 186: melm 654        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 187: melm 655$0      Koha-Auth-Number    -->
  <index_subfields tag="655" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 188: melm 655        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 189: melm 656$0      Koha-Auth-Number    -->
  <index_subfields tag="656" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 190: melm 656        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 191: melm 657$0      Koha-Auth-Number    -->
  <index_subfields tag="657" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 192: melm 657        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <index_subfields tag="662" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 197: melm 690$0      Koha-Auth-Number    -->
  <index_subfields tag="690" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 198: melm 690        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <index_subfields tag="691" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="696" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="697" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="698" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="699" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 200: melm 700$0      Cross-Reference,Koha-Auth-Number-->
  <index_subfields tag="700" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

  <index_subfields tag="710" subfields="a">
    <target_index>Name-and-title:w</target_index>
  </index_subfields>
  <!--record.abs line 211: melm 710$0      Koha-Auth-Number    -->
  <index_subfields tag="710" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 212: melm 710        Author,Author:p,Corporate-name,Name-->

    <target_index>Title:w</target_index>
    <target_index>Title-uniform:w</target_index>
  </index_subfields>
  <!--record.abs line 216: melm 711$0      Koha-Auth-Number    -->
  <index_subfields tag="711" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 218: melm 711        Author,Author:p,Author-name-corporate,Name,Conference-name-->

  <index_subfields tag="730" subfields="r">
    <target_index>Music-key:w</target_index>
  </index_subfields>
  <!--record.abs line 221: melm 730$0      Koha-Auth-Number-->
  <index_subfields tag="730" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 222: melm 730        Title,Title:p,Title-uniform-->

  <index_subfields tag="751" subfields="a">
    <target_index>Name-geographic:w</target_index>
  </index_subfields>
  <!--record.abs line 225: melm 751$0      Koha-Auth-Number-->
  <index_subfields tag="751" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 226: melm 751        Name-geographic-->

  <index_subfields tag="787" subfields="w">
    <target_index>Record-control-number:w</target_index>
  </index_subfields>
  <index_subfields tag="796" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="797" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="798" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="799" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 244: melm 800$a      Name-and-title,Title-series:w,Title-series:p-->

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_subfields>
  <!--record.abs line 247: melm 800$0      Koha-Auth-Number-->
  <index_subfields tag="800" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 248: melm 800$w      Record-control-number-->

  <index_subfields tag="810" subfields="w">
    <target_index>Record-control-number:w</target_index>
  </index_subfields>
  <!--record.abs line 253: melm 810$0      Koha-Auth-Number-->
  <index_subfields tag="810" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 254: melm 810        Author,Corporate-name,Author-name-corporate,Name-->

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_subfields>
  <!--record.abs line 256: melm 811$0      Koha-Auth-Number-->
  <index_subfields tag="811" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 258: melm 811$t      Author-title,Name-and-title,Title,Title-series:w,Title-series:p-->

  <index_subfields tag="830" subfields="w">
    <target_index>Record-control-number:w</target_index>
  </index_subfields>
  <!--record.abs line 262: melm 830$0      Koha-Auth-Number-->
  <index_subfields tag="830" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 263: melm 830        Title,Title-series:w,Title-series:p-->

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_data_field>
  <index_subfields tag="896" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="897" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="898" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <index_subfields tag="899" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 268: melm 999$c      Local-Number:n,Local-Number:w,Local-Number:s-->




  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='100']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='110']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='111']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='648']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='650']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='651']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='652']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='654']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='656']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='657']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='662']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='690']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='691']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='696']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='697']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='698']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='699']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='700']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='796']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='797']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='798']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='799']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='896']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='897']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='898']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='899']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>




    <target_index>Dewey-classification:w</target_index>
    <target_index>Dewey-classification:s</target_index>
  </index_data_field>
  <!--record.abs line 113: melm 100$0      Cross-Reference:w,Koha-Auth-Number-->
  <index_subfields tag="100" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

    <target_index>Name-and-title:w</target_index>
    <target_index>Personal-name:w</target_index>
  </index_data_field>
  <!--record.abs line 116: melm 110$0      Koha-Auth-Number-->
  <index_subfields tag="110" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 117: melm 110        Author,Author-title,Author-name-corporate,Name,Name-and-title,Corporate-name-->

    <target_index>Name-and-title:w</target_index>
    <target_index>Corporate-name:w</target_index>
  </index_data_field>
  <!--record.abs line 118: melm 111$0      Koha-Auth-Number-->
  <index_subfields tag="111" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 119: melm 111        Author,Author-title,Author-name-corporate,Name,Name-and-title,Conference-name-->

  <index_subfields tag="130" subfields="r">
    <target_index>Music-key:w</target_index>
  </index_subfields>
  <!--record.abs line 123: melm 130$0      Koha-Auth-Number-->
  <index_subfields tag="130" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 124: melm 130        Title,Title-uniform-->

    <target_index>Author-in-order:p</target_index>
    <target_index>Author-in-order:s</target_index>
  </index_subfields>
  <!--record.abs line 140: melm 245$0      Cross-Reference:w,Koha-Auth-Number-->
  <index_subfields tag="245" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

    <target_index>Title-series:w</target_index>
    <target_index>Title-series:p</target_index>
  </index_subfields>
  <!--record.abs line 165: melm 440$0      Koha-Auth-Number-->
  <index_subfields tag="440" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 166: melm 440        Title-series:w,Title-series:p,Title,Title-series-->

    <target_index>Title:w</target_index>
    <target_index>Title-series:w</target_index>
  </index_data_field>
  <!--record.abs line 169: melm 490$0      Koha-Auth-Number-->
  <index_subfields tag="490" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 171: melm 502        Material-type-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 182: melm 600$0      Koha-Auth-Number-->
  <index_subfields tag="600" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 184: melm 600        Name,Personal-name,Subject-name-personal,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 187: melm 610$0      Koha-Auth-Number-->
  <index_subfields tag="610" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 188: melm 610        Name,Subject,Corporate-name,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 192: melm 611$0      Koha-Auth-Number-->
  <index_subfields tag="611" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 193: melm 611        Name,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_subfields>
  <!--record.abs line 197: melm 630$0      Koha-Auth-Number-->
  <index_subfields tag="630" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 198: melm 630        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <index_subfields tag="648" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 199: melm 650$0      Koha-Auth-Number-->
  <index_subfields tag="650" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 200: melm 650        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 201: melm 651$0      Koha-Auth-Number-->
  <index_subfields tag="651" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 202: melm 651        Name-geographic,Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 203: melm 652$0      Koha-Auth-Number-->
  <index_subfields tag="652" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 205: melm 653$0      Koha-Auth-Number-->
  <index_subfields tag="653" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 206: melm 653        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 207: melm 654$0      Koha-Auth-Number-->
  <index_subfields tag="654" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 208: melm 654        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 209: melm 655$0      Koha-Auth-Number-->
  <index_subfields tag="655" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 210: melm 655        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 211: melm 656$0      Koha-Auth-Number-->
  <index_subfields tag="656" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 212: melm 656        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 213: melm 657$0      Koha-Auth-Number-->
  <index_subfields tag="657" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 214: melm 657        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 215: melm 690$0      Koha-Auth-Number-->
  <index_subfields tag="690" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 216: melm 690        Subject,Subject:p-->

    <target_index>Subject:w</target_index>
    <target_index>Subject:p</target_index>
  </index_data_field>
  <!--record.abs line 218: melm 700$0      Cross-Reference,Koha-Auth-Number-->
  <index_subfields tag="700" subfields="0">
    <target_index>Cross-Reference:w</target_index>
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>

  <index_subfields tag="710" subfields="i">
    <target_index>Thematic-number:w</target_index>
  </index_subfields>
  <!--record.abs line 232: melm 710$0      Koha-Auth-Number-->
  <index_subfields tag="710" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 234: melm 710        Author,Name-->

    <target_index>Title:w</target_index>
    <target_index>Title-uniform:w</target_index>
  </index_subfields>
  <!--record.abs line 238: melm 711$0      Koha-Auth-Number-->
  <index_subfields tag="711" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 240: melm 711        Author-name-corporate,Name,Conference-name-->

  <index_subfields tag="730" subfields="r">
    <target_index>Music-key:w</target_index>
  </index_subfields>
  <!--record.abs line 244: melm 730$0      Koha-Auth-Number-->
  <index_subfields tag="730" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 245: melm 730        Title,Title-uniform-->

  <index_subfields tag="773" subfields="a">
    <target_index>Host-item:w</target_index>
  </index_subfields>
  <!--record.abs line 248: melm 773$0	    Host-Item-Number-->
  <index_subfields tag="773" subfields="0">
    <target_index>Host-Item-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 249: melm 773$t      Host-item-->

    <target_index>Title:w</target_index>
    <target_index>Title-series:w</target_index>
  </index_subfields>
  <!--record.abs line 258: melm 800$0      Koha-Auth-Number-->
  <index_subfields tag="800" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 259: melm 800        Author,Author-name-personal,Name,Personal-name-->

    <target_index>Title:w</target_index>
    <target_index>Title-series:w</target_index>
  </index_subfields>
  <!--record.abs line 262: melm 810$0      Koha-Auth-Number-->
  <index_subfields tag="810" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 263: melm 810        Author,Corporate-name,Author-name-corporate,Name-->

  <index_subfields tag="811" subfields="a">
    <target_index>Name-and-title:w</target_index>
  </index_subfields>
  <!--record.abs line 265: melm 811$0      Koha-Auth-Number-->
  <index_subfields tag="811" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 267: melm 811$t      Author-title,Name-and-title,Title,Title-series-->

    <target_index>Name:w</target_index>
    <target_index>Conference-name:w</target_index>
  </index_data_field>
  <!--record.abs line 269: melm 830$0      Koha-Auth-Number-->
  <index_subfields tag="830" subfields="0">
    <target_index>Koha-Auth-Number:w</target_index>
  </index_subfields>
  <!--record.abs line 270: melm 830        Title,Title-series-->




  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='100']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='110']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='111']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='648']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='650']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='651']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='652']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='653']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='654']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='655']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='656']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='657']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='690']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='700']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Cross-Reference:w Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

      </xslo:if>
    </xslo:for-each>
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

  </xslo:template>
  <xslo:template mode="index_subfields" match="marc:datafield[@tag='830']">
    <xslo:for-each select="marc:subfield">
      <xslo:if test="contains('0', @code)">
        <z:index name="Koha-Auth-Number:w">
          <xslo:value-of select="."/>
        </z:index>

Lines 40-45 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/authorities/blinddetail-biblio-search.tt (-1 / +2 lines)
40	RancorReplaceField( new_line, "[% indicator1 \| html %]", "[% indicator2 \| html %]" );	40	RancorReplaceField( new_line, "[% indicator1 \| html %]", "[% indicator2 \| html %]" );
41	[% ELSE %]	41	[% ELSE %]
42	var index_start = "[% index \| html %]";	42	var index_start = "[% index \| html %]";
		43	var authsubfield = "[% authsubfield %]";
43	var whichfield;	44	var whichfield;
44	try {	45	try {
45	whichfield = opener.opener.document.getElementById(index_start);	46	whichfield = opener.opener.document.getElementById(index_start);
Lines 135-141 Link Here
135	[% IF ( clear ) %]	136	[% IF ( clear ) %]
136	if (subfield){subfield.value="" ;}	137	if (subfield){subfield.value="" ;}
137	[% ELSE %]	138	[% ELSE %]
138	if(code.value=='9'){	139	if(code.value==authsubfield){
139	subfield.value = "[% authid \|replace("'", "\'") \|replace('"', '\"') \|replace('\n', '\\n') \|replace('\r', '\\r') \| html %]";	140	subfield.value = "[% authid \|replace("'", "\'") \|replace('"', '\"') \|replace('\n', '\\n') \|replace('\r', '\\r') \| html %]";
140	break;	141	break;
141	}	142	}




#!/usr/bin/perl

#-----------------------------------
# Copyright 2019 Koha-Suomi Oy
#
# 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 2 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 Getopt::Long;

use C4::Context;
use C4::Biblio;
use C4::Record;
use MARC::Field;

my ($help, $confirm, $verbose);
my $schema = 'MARC21';
my $chunks = 500;

GetOptions(
  'h|help'      => \$help,
  'v|verbose:i' => \$verbose,
  'c|confirm'   => \$confirm,
  's|schema:s'  => \$schema,
  'chunks:i'    => \$chunks,
);

my $usage = << 'ENDUSAGE';

Changes authority linking subfield from $9 to $0

  -h --help      This nice help!

  -v --verbose   More chatty output.

  -c --confirm   Confirm that you want to mangle your bibliographic records

  -s --schema   Select MARC schema, MARC21 or NORMARC. Default is MARC21

  --chunks       Increase processed chunks


EXAMPLE:

perl batchAuthorityLinking.pl -v -c
perl batchAuthorityLinking.pl -v -c -f NORMARC
perl batchAuthorityLinking.pl -v --chunks 1000

ENDUSAGE

if ($help) {
    print $usage;
    exit 0;
}

our $marc21Authorityfields = {
    '100' => 1,
    '110' => 1,
    '111' => 1,
    '130' => 1,
    '245' => 1,
    '400' => 1,
    '410' => 1,
    '440' => 1,
    '490' => 1,
    '600' => 1,
    '610' => 1,
    '611' => 1,
    '630' => 1,
    '648' => 1,
    '650' => 1,
    '651' => 1,
    '652' => 1,
    '653' => 1,
    '654' => 1,
    '655' => 1,
    '656' => 1,
    '657' => 1,
    '662' => 1,
    '690' => 1,
    '691' => 1,
    '696' => 1,
    '697' => 1,
    '698' => 1,
    '699' => 1,
    '700' => 1,
    '710' => 1,
    '711' => 1,
    '730' => 1,
    '751' => 1,
    '796' => 1,
    '797' => 1,
    '798' => 1,
    '799' => 1,
    '800' => 1,
    '810' => 1,
    '811' => 1,
    '830' => 1,
    '896' => 1,
    '897' => 1,
    '898' => 1,
    '899' => 1
    };

our $normarcAuthorityfields = {
    '100' => 1,
    '110' => 1,
    '111' => 1,
    '130' => 1,
    '245' => 1,
    '440' => 1,
    '490' => 1,
    '600' => 1,
    '610' => 1,
    '611' => 1,
    '630' => 1,
    '650' => 1,
    '651' => 1,
    '652' => 1,
    '653' => 1,
    '654' => 1,
    '655' => 1,
    '656' => 1,
    '657' => 1,
    '690' => 1,
    '700' => 1,
    '710' => 1,
    '711' => 1,
    '730' => 1,
    '800' => 1,
    '810' => 1,
    '811' => 1,
    '830' => 1
};

my $params = {
    chunks => $chunks,
    page => 1
};


my $pageCount = 1;
my $authorityfields = $schema eq 'NORMARC' ? $normarcAuthorityfields : $marc21Authorityfields;

while ($pageCount >= $params->{page}) {
    my $biblios = biblios($params);
    my $count = 0;
    my $lastnumber = 0;
    foreach my $biblio (@{$biblios}) {
        my $record = C4::Record::marcxml2marc($biblio->{metadata});
        foreach my $field ($record->fields) {
            my @subfield_data;
            if ($authorityfields->{$field->tag}) {
                if ($field->subfields) {
                    for my $subfield ($field->subfields) {
                        if ($subfield->[0] eq "9") {
                            $subfield->[0] = "0";
                            print "Change $schema 9 field to 0 from ".$biblio->{biblionumber}."\n" if (defined $verbose);
                        }
                        push @subfield_data, $subfield->[0], $subfield->[1];
                    }
                }
            }
            $field->replace_with(MARC::Field->new(
                $field->tag(), $field->indicator(1), $field->indicator(2),
                @subfield_data)
            ) if @subfield_data; 
        }
        my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblio->{biblionumber} );
        C4::Biblio::ModBiblio($record, $biblio->{biblionumber}, $frameworkcode) if $confirm;
        $count++;
        $lastnumber = $biblio->{biblionumber};
    }
    print "last processed biblio $lastnumber\n";
    print "$count biblios processed!\n";
    if ($count eq $params->{chunks}) {
        $pageCount++;
        $params->{page} = $pageCount;
    } else {
        $pageCount = 0;
    }
}

sub biblios {
    my ($params) = @_;
    print "Starting to change offset $params->{page}!\n";
    my $biblios = Koha::Biblio::Metadatas->search({format => 'marcxml', schema => $schema},
    {
        page => $params->{page},
        rows => $params->{chunks}
    }
    )->unblessed;

    return $biblios;

}





use Modern::Perl;

use Test::More tests => 8;
use MARC::Field;
use MARC::File::XML;
use MARC::Record;

    );
};

subtest 'Trivial tests for get_usage_count and linked_biblionumbers with UNIMARC' => sub {
    plan tests => 5;

    # NOTE: We are not testing $searcher->simple_search_compat here. Suppose

    # So we're just testing the 'wrapper' here.

    my ( $mods, $koha_fields );
    t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );
    t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
    $mods->{zebra} = Test::MockModule->new( 'Koha::SearchEngine::Zebra::Search' );
    $mods->{elastic} = Test::MockModule->new( 'Koha::SearchEngine::Elasticsearch::Search' );
    $mods->{biblio} = Test::MockModule->new( 'C4::Biblio' );
    $mods->{zebra}->mock( 'simple_search_compat', \&simple_search_compat );
    $mods->{elastic}->mock( 'simple_search_compat', \&simple_search_compat );
    $mods->{biblio}->mock( 'GetMarcFromKohaField', sub { return @$koha_fields; });

    my $auth1 = $builder->build({ source => 'AuthHeader' });
    $auth1 = Koha::Authorities->find( $auth1->{authid} );

    # Test error condition
    my $count;
    $search_compat_pars = [ 0, 'some_error' ];
    warning_like { $count = $auth1->get_usage_count }
        qr/some_error/, 'Catch warn of simple_search_compat';
    is( $count, undef, 'Undef returned when error encountered' );

    # Simple test with some results; one result discarded in the 2nd test
    $search_compat_pars = [ 1 ];
    $koha_fields = [ '001', '' ];
    is(  $auth1->get_usage_count, 3, 'Three results expected (Zebra)' );
    cmp_deeply( [ $auth1->linked_biblionumbers ], [ 1001, 3003 ],
        'linked_biblionumbers should ignore record without biblionumber' );

    # And a simple test with Elastic
    t::lib::Mocks::mock_preference('SearchEngine', 'Elasticsearch');
    cmp_deeply( [ $auth1->linked_biblionumbers ], [ 2001 ],
        'linked_biblionumbers with Elasticsearch' );
    t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
};

subtest 'Trivial tests for get_usage_count and linked_biblionumbers with MARC21' => sub {
    plan tests => 5;

    # NOTE: We are not testing $searcher->simple_search_compat here. Suppose
    # that should be done in t/db../Koha/SearchEngine?
    # So we're just testing the 'wrapper' here.

    my ( $mods, $koha_fields );
    t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
    t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
    $mods->{zebra} = Test::MockModule->new( 'Koha::SearchEngine::Zebra::Search' );
    $mods->{elastic} = Test::MockModule->new( 'Koha::SearchEngine::Elasticsearch::Search' );

};

sub simple_search_compat {
    my $authsubfield = Koha::Authorities->authority_linking_subfield;
    if( $search_compat_pars->[0] == 0 ) {
        return ( $search_compat_pars->[1], [], 0 );
    } elsif( $search_compat_pars->[0] == 1 ) {
        my $records = C4::Context->preference('SearchEngine') eq 'Zebra'
            ? few_marcxml_records($authsubfield)
            : few_marc_records();
        return ( undef, $records, scalar @$records );
    }
}

sub few_marcxml_records {
    my ($authsubfield) = @_;
    return [
q|<?xml version="1.0" encoding="UTF-8"?>
<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
    <controlfield tag="001">1001</controlfield>
    <datafield tag="110" ind1=" " ind2=" ">
        <subfield code="$authsubfield">102</subfield>
        <subfield code="a">My Corporation</subfield>
    </datafield>
</record>|,

<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
    <!-- No biblionumber here -->
    <datafield tag="610" ind1=" " ind2=" ">
        <subfield code="$authsubfield">112</subfield>
        <subfield code="a">Another Corporation</subfield>
    </datafield>
</record>|,

<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
    <controlfield tag="001">3003</controlfield>
    <datafield tag="110" ind1=" " ind2=" ">
        <subfield code="$authsubfield">102</subfield>
        <subfield code="a">My Corporation</subfield>
    </datafield>
</record>|
- 

Return to bug 22613

Lines 888-893 sub BuildSummary { Link Here

(-)a/C4/AuthoritiesMarc.pm (-6 / +9 lines)
888	my @seefrom;	888	my @seefrom;
889	my @seealso;	889	my @seealso;
890	my @otherscript;	890	my @otherscript;
		891	my $authsubfield = Koha::Authorities->authority_linking_subfield;
891	if (C4::Context->preference('marcflavour') eq 'UNIMARC') {	892	if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
892	# construct UNIMARC summary, that is quite different from MARC21 one	893	# construct UNIMARC summary, that is quite different from MARC21 one
893	# accepted form	894	# accepted form
Lines 922-928 sub BuildSummary { Link Here
922	heading => $heading,	923	heading => $heading,
923	hemain => ( $_->subfield('a') // undef ),	924	hemain => ( $_->subfield('a') // undef ),
924	search => $heading,	925	search => $heading,
925	authid => ( $_->subfield('9') // undef ),	926	authid => ( $_->subfield($authsubfield) // undef ),
926	}	927	}
927	} $record->field('5..');	928	} $record->field('5..');
928		929
Lines 1021-1027 sub BuildSummary { Link Here
1021	type => $field->subfield('i'),	1022	type => $field->subfield('i'),
1022	field => $field->tag(),	1023	field => $field->tag(),
1023	search => $field->as_string($marc21subfields) \|\| '',	1024	search => $field->as_string($marc21subfields) \|\| '',
1024	authid => $field->subfield('9') \|\| ''	1025	authid => $field->subfield($authsubfield) \|\| ''
1025	};	1026	};
1026	} else {	1027	} else {
1027	push @seealso, {	1028	push @seealso, {
Lines 1030-1036 sub BuildSummary { Link Here
1030	type => $type,	1031	type => $type,
1031	field => $field->tag(),	1032	field => $field->tag(),
1032	search => $field->as_string($marc21subfields) \|\| '',	1033	search => $field->as_string($marc21subfields) \|\| '',
1033	authid => $field->subfield('9') \|\| ''	1034	authid => $field->subfield($authsubfield) \|\| ''
1034	};	1035	};
1035	}	1036	}
1036	}	1037	}
Lines 1305-1311 sub GenerateHierarchy { Link Here
1305		1306
1306	sub _get_authid_subfield{	1307	sub _get_authid_subfield{
1307	my ($field)=@_;	1308	my ($field)=@_;
1308	return $field->subfield('9')\|\|$field->subfield('3');	1309	my $authsubfield = Koha::Authorities->authority_linking_subfield;
		1310	return $field->subfield($authsubfield)\|\|$field->subfield('3');
1309	}	1311	}
1310		1312
1311	=head2 GetHeaderAuthority	1313	=head2 GetHeaderAuthority
Lines 1408-1413 sub merge { Link Here
1408	# Search authtypes and reporting tags	1410	# Search authtypes and reporting tags
1409	my $authfrom = Koha::Authorities->find($mergefrom);	1411	my $authfrom = Koha::Authorities->find($mergefrom);
1410	my $authto = Koha::Authorities->find($mergeto);	1412	my $authto = Koha::Authorities->find($mergeto);
		1413	my $authsubfield = Koha::Authorities->authority_linking_subfield;
1411	my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef;	1414	my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef;
1412	my $authtypeto = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef;	1415	my $authtypeto = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef;
1413	my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';	1416	my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';
Lines 1459-1465 sub merge { Link Here
1459	foreach my $tagfield (@$tags_using_authtype) {	1462	foreach my $tagfield (@$tags_using_authtype) {
1460	my $countfrom = 0; # used in strict mode to remove duplicates	1463	my $countfrom = 0; # used in strict mode to remove duplicates
1461	foreach my $field ( $marcrecord->field($tagfield) ) {	1464	foreach my $field ( $marcrecord->field($tagfield) ) {
1462	my $auth_number = $field->subfield("9"); # link to authority	1465	my $auth_number = $field->subfield($authsubfield); # link to authority
1463	my $tag = $field->tag();	1466	my $tag = $field->tag();
1464	next if !defined($auth_number) \|\| $auth_number ne $mergefrom;	1467	next if !defined($auth_number) \|\| $auth_number ne $mergefrom;
1465	$countfrom++;	1468	$countfrom++;
Lines 1479-1485 sub merge { Link Here
1479	$newtag,	1482	$newtag,
1480	$controlled_ind->{ind1} // $field->indicator(1),	1483	$controlled_ind->{ind1} // $field->indicator(1),
1481	$controlled_ind->{ind2} // $field->indicator(2),	1484	$controlled_ind->{ind2} // $field->indicator(2),
1482	9 => $mergeto, # Needed to create field, will be moved	1485	$authsubfield => $mergeto, # Needed to create field, will be moved
1483	);	1486	);
1484	my ( @prefix, @postfix );	1487	my ( @prefix, @postfix );
1485	if ( !$overwrite ) {	1488	if ( !$overwrite ) {

Lines 99-104 use C4::OAI::Sets; Link Here

(-)a/C4/Biblio.pm (-21 / +26 lines)
99	use C4::Debug;	99	use C4::Debug;
100		100
101	use Koha::Caches;	101	use Koha::Caches;
		102	use Koha::Authorities;
102	use Koha::Authority::Types;	103	use Koha::Authority::Types;
103	use Koha::Acquisition::Currencies;	104	use Koha::Acquisition::Currencies;
104	use Koha::Biblio::Metadatas;	105	use Koha::Biblio::Metadatas;
Lines 280-286 sub ModBiblio { Link Here
280	# throw an exception which probably won't be handled.	281	# throw an exception which probably won't be handled.
281	foreach my $field ($record->fields()) {	282	foreach my $field ($record->fields()) {
282	if (! $field->is_control_field()) {	283	if (! $field->is_control_field()) {
283	if (scalar($field->subfields()) == 0 \|\| (scalar($field->subfields()) == 1 && $field->subfield('9'))) {	284	if (scalar($field->subfields()) == 0 \|\| (scalar($field->subfields()) == 1 && $field->subfield('0'))) {
284	$record->delete_field($field);	285	$record->delete_field($field);
285	}	286	}
286	}	287	}
Lines 489-494 sub LinkBibHeadingsToAuthorities { Link Here
489	require C4::Heading;	490	require C4::Heading;
490	require C4::AuthoritiesMarc;	491	require C4::AuthoritiesMarc;
491		492
		493	my $authsubfield = Koha::Authorities->authority_linking_subfield;
492	$allowrelink = 1 unless defined $allowrelink;	494	$allowrelink = 1 unless defined $allowrelink;
493	my $num_headings_changed = 0;	495	my $num_headings_changed = 0;
494	foreach my $field ( $bib->fields() ) {	496	foreach my $field ( $bib->fields() ) {
Lines 496-502 sub LinkBibHeadingsToAuthorities { Link Here
496	next unless defined $heading;	498	next unless defined $heading;
497		499
498	# check existing $9	500	# check existing $9
499	my $current_link = $field->subfield('9');	501	my $current_link = $field->subfield($authsubfield);
500		502
501	if ( defined $current_link && (!$allowrelink \|\| !C4::Context->preference('LinkerRelink')) )	503	if ( defined $current_link && (!$allowrelink \|\| !C4::Context->preference('LinkerRelink')) )
502	{	504	{
Lines 510-517 sub LinkBibHeadingsToAuthorities { Link Here
510	->{ $heading->display_form() }++;	512	->{ $heading->display_form() }++;
511	next if defined $current_link and $current_link == $authid;	513	next if defined $current_link and $current_link == $authid;
512		514
513	$field->delete_subfield( code => '9' ) if defined $current_link;	515	$field->delete_subfield( code => $authsubfield ) if defined $current_link;
514	$field->add_subfields( '9', $authid );	516	$field->add_subfields( $authsubfield, $authid );
515	$num_headings_changed++;	517	$num_headings_changed++;
516	}	518	}
517	else {	519	else {
Lines 531-537 sub LinkBibHeadingsToAuthorities { Link Here
531	$marcrecordauth->leader(' nz a22 o 4500');	533	$marcrecordauth->leader(' nz a22 o 4500');
532	SetMarcUnicodeFlag( $marcrecordauth, 'MARC21' );	534	SetMarcUnicodeFlag( $marcrecordauth, 'MARC21' );
533	}	535	}
534	$field->delete_subfield( code => '9' )	536	$field->delete_subfield( code => $authsubfield )
535	if defined $current_link;	537	if defined $current_link;
536	my $authfield =	538	my $authfield =
537	MARC::Field->new( $authority_type->auth_tag_to_report,	539	MARC::Field->new( $authority_type->auth_tag_to_report,
Lines 584-590 sub LinkBibHeadingsToAuthorities { Link Here
584	$authid =	586	$authid =
585	C4::AuthoritiesMarc::AddAuthority( $marcrecordauth, '',	587	C4::AuthoritiesMarc::AddAuthority( $marcrecordauth, '',
586	$heading->auth_type() );	588	$heading->auth_type() );
587	$field->add_subfields( '9', $authid );	589	$field->add_subfields( $authsubfield, $authid );
588	$num_headings_changed++;	590	$num_headings_changed++;
589	$linker->update_cache($heading, $authid);	591	$linker->update_cache($heading, $authid);
590	$results{'added'}->{ $heading->display_form() }++;	592	$results{'added'}->{ $heading->display_form() }++;
Lines 595-601 sub LinkBibHeadingsToAuthorities { Link Here
595	$results{'linked'}->{ $heading->display_form() }++;	597	$results{'linked'}->{ $heading->display_form() }++;
596	}	598	}
597	else {	599	else {
598	$field->delete_subfield( code => '9' );	600	$field->delete_subfield( code => $authsubfield );
599	$num_headings_changed++;	601	$num_headings_changed++;
600	$results{'unlinked'}->{ $heading->display_form() }++;	602	$results{'unlinked'}->{ $heading->display_form() }++;
601	}	603	}
Lines 1739-1744 sub GetMarcSubjects { Link Here
1739		1741
1740	my $subject_limit = C4::Context->preference("TraceCompleteSubfields") ? 'su,complete-subfield' : 'su';	1742	my $subject_limit = C4::Context->preference("TraceCompleteSubfields") ? 'su,complete-subfield' : 'su';
1741	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');	1743	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
		1744	my $authsubfield = Koha::Authorities->authority_linking_subfield;
1742		1745
1743	foreach my $field ( $record->field($fields_filter) ) {	1746	foreach my $field ( $record->field($fields_filter) ) {
1744	next unless ($field->tag() >= $mintag && $field->tag() <= $maxtag);	1747	next unless ($field->tag() >= $mintag && $field->tag() <= $maxtag);
Lines 1746-1756 sub GetMarcSubjects { Link Here
1746	my @subfields = $field->subfields();	1749	my @subfields = $field->subfields();
1747	my @link_loop;	1750	my @link_loop;
1748		1751
1749	# if there is an authority link, build the links with an= subfield9	1752	# if there is an authority link, build the links with an=$authsubfield
1750	my $subfield9 = $field->subfield('9');	1753	my $auth_subfield = $field->subfield($authsubfield);
1751	my $authoritylink;	1754	my $authoritylink;
1752	if ($subfield9) {	1755	if ($auth_subfield) {
1753	my $linkvalue = $subfield9;	1756	my $linkvalue = $auth_subfield;
1754	$linkvalue =~ s/(\(\|\))//g;	1757	$linkvalue =~ s/(\(\|\))//g;
1755	@link_loop = ( { limit => 'an', 'link' => $linkvalue } );	1758	@link_loop = ( { limit => 'an', 'link' => $linkvalue } );
1756	$authoritylink = $linkvalue	1759	$authoritylink = $linkvalue
Lines 1758-1764 sub GetMarcSubjects { Link Here
1758		1761
1759	# other subfields	1762	# other subfields
1760	for my $subject_subfield (@subfields) {	1763	for my $subject_subfield (@subfields) {
1761	next if ( $subject_subfield->[0] eq '9' );	1764	next if ( $subject_subfield->[0] eq $authsubfield );
1762		1765
1763	# don't load unimarc subfields 3,4,5	1766	# don't load unimarc subfields 3,4,5
1764	next if ( ( $marcflavour eq "UNIMARC" ) and ( $subject_subfield->[0] =~ /2\|3\|4\|5/ ) );	1767	next if ( ( $marcflavour eq "UNIMARC" ) and ( $subject_subfield->[0] =~ /2\|3\|4\|5/ ) );
Lines 1770-1776 sub GetMarcSubjects { Link Here
1770	my $linkvalue = $value;	1773	my $linkvalue = $value;
1771	$linkvalue =~ s/(\(\|\))//g;	1774	$linkvalue =~ s/(\(\|\))//g;
1772	# if no authority link, build a search query	1775	# if no authority link, build a search query
1773	unless ($subfield9) {	1776	unless ($auth_subfield) {
1774	push @link_loop, {	1777	push @link_loop, {
1775	limit => $subject_limit,	1778	limit => $subject_limit,
1776	'link' => $linkvalue,	1779	'link' => $linkvalue,
Lines 1831-1836 sub GetMarcAuthors { Link Here
1831		1834
1832	my @marcauthors;	1835	my @marcauthors;
1833	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');	1836	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
		1837	my $authsubfield = Koha::Authorities->authority_linking_subfield;
1834		1838
1835	foreach my $field ( $record->field($fields_filter) ) {	1839	foreach my $field ( $record->field($fields_filter) ) {
1836	next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;	1840	next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;
Lines 1839-1848 sub GetMarcAuthors { Link Here
1839	my @subfields = $field->subfields();	1843	my @subfields = $field->subfields();
1840	my $count_auth = 0;	1844	my $count_auth = 0;
1841		1845
1842	# if there is an authority link, build the link with Koha-Auth-Number: subfield9	1846	# if there is an authority link, build the link with Koha-Auth-Number: $authsubfield
1843	my $subfield9 = $field->subfield('9');	1847	my $auth_subfield = $field->subfield($authsubfield);
1844	if ($subfield9) {	1848	if ($auth_subfield) {
1845	my $linkvalue = $subfield9;	1849	my $linkvalue = $auth_subfield;
1846	$linkvalue =~ s/(\(\|\))//g;	1850	$linkvalue =~ s/(\(\|\))//g;
1847	@link_loop = ( { 'limit' => 'an', 'link' => $linkvalue } );	1851	@link_loop = ( { 'limit' => 'an', 'link' => $linkvalue } );
1848	}	1852	}
Lines 1850-1856 sub GetMarcAuthors { Link Here
1850	# other subfields	1854	# other subfields
1851	my $unimarc3;	1855	my $unimarc3;
1852	for my $authors_subfield (@subfields) {	1856	for my $authors_subfield (@subfields) {
1853	next if ( $authors_subfield->[0] eq '9' );	1857	next if ( $authors_subfield->[0] eq $authsubfield );
1854		1858
1855	# unimarc3 contains the $3 of the author for UNIMARC.	1859	# unimarc3 contains the $3 of the author for UNIMARC.
1856	# For french academic libraries, it's the "ppn", and it's required for idref webservice	1860	# For french academic libraries, it's the "ppn", and it's required for idref webservice
Lines 1869-1875 sub GetMarcAuthors { Link Here
1869	$linkvalue = "($value)";	1873	$linkvalue = "($value)";
1870	}	1874	}
1871	# if no authority link, build a search query	1875	# if no authority link, build a search query
1872	unless ($subfield9) {	1876	unless ($auth_subfield) {
1873	push @link_loop, {	1877	push @link_loop, {
1874	limit => 'au',	1878	limit => 'au',
1875	'link' => $linkvalue,	1879	'link' => $linkvalue,
Lines 1890-1896 sub GetMarcAuthors { Link Here
1890	}	1894	}
1891	push @marcauthors, {	1895	push @marcauthors, {
1892	MARCAUTHOR_SUBFIELDS_LOOP => \@subfields_loop,	1896	MARCAUTHOR_SUBFIELDS_LOOP => \@subfields_loop,
1893	authoritylink => $subfield9,	1897	authoritylink => $auth_subfield,
1894	unimarc3 => $unimarc3	1898	unimarc3 => $unimarc3
1895	};	1899	};
1896	}	1900	}
Lines 1986-1991 sub GetMarcSeries { Link Here
1986		1990
1987	my @marcseries;	1991	my @marcseries;
1988	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');	1992	my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator');
		1993	my $authsubfield = Koha::Authorities->authority_linking_subfield;
1989		1994
1990	foreach my $field ( $record->field($fields_filter) ) {	1995	foreach my $field ( $record->field($fields_filter) ) {
1991	next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;	1996	next unless $field->tag() >= $mintag && $field->tag() <= $maxtag;
Lines 1996-2002 sub GetMarcSeries { Link Here
1996	for my $series_subfield (@subfields) {	2001	for my $series_subfield (@subfields) {
1997		2002
1998	# ignore $9, used for authority link	2003	# ignore $9, used for authority link
1999	next if ( $series_subfield->[0] eq '9' );	2004	next if ( $series_subfield->[0] eq $authsubfield );
2000		2005
2001	my $volume_number;	2006	my $volume_number;
2002	my $code = $series_subfield->[0];	2007	my $code = $series_subfield->[0];

Lines 22-27 use warnings; Link Here

(-)a/C4/Linker/Default.pm (-2 / +3 lines)
22	use Carp;	22	use Carp;
23	use MARC::Field;	23	use MARC::Field;
24	use C4::Heading;	24	use C4::Heading;
		25	use Koha::Authorities;
25		26
26	use base qw(C4::Linker);	27	use base qw(C4::Linker);
27		28
Lines 32-38 sub get_link { Link Here
32	my $search_form = $heading->search_form();	33	my $search_form = $heading->search_form();
33	my $authid;	34	my $authid;
34	my $fuzzy = 0;	35	my $fuzzy = 0;
35		36	my $authsubfield = Koha::Authorities->authority_linking_subfield;
36	if ( $self->{'cache'}->{$search_form}->{'cached'} ) {	37	if ( $self->{'cache'}->{$search_form}->{'cached'} ) {
37	$authid = $self->{'cache'}->{$search_form}->{'authid'};	38	$authid = $self->{'cache'}->{$search_form}->{'authid'};
38	$fuzzy = $self->{'cache'}->{$search_form}->{'fuzzy'};	39	$fuzzy = $self->{'cache'}->{$search_form}->{'fuzzy'};
Lines 56-62 sub get_link { Link Here
56		57
57	if ( !defined $authid && $self->{'broader_headings'} ) {	58	if ( !defined $authid && $self->{'broader_headings'} ) {
58	my $field = $heading->field();	59	my $field = $heading->field();
59	my @subfields = grep { $_->[0] ne '9' } $field->subfields();	60	my @subfields = grep { $_->[0] ne $authsubfield } $field->subfields();
60	if ( scalar @subfields > 1 ) {	61	if ( scalar @subfields > 1 ) {
61	pop @subfields;	62	pop @subfields;
62	$field =	63	$field =

Lines 22-27 use Modern::Perl; Link Here

(-)a/Koha/Authorities.pm (+24 lines)
22	use Carp;	22	use Carp;
23		23
24	use Koha::Database;	24	use Koha::Database;
		25	use C4::Context;
25		26
26	use Koha::Authority;	27	use Koha::Authority;
27		28
Lines 94-99 sub linked_biblionumbers { Link Here
94	return @biblionumbers;	95	return @biblionumbers;
95	}	96	}
96		97
		98	=head3 authority_linking_subfield
		99
		100	$authsubfield = Koha::Authorities->authority_linking_subfield;
		101
		102	Returns the authority subfield for selected MARC format
		103
		104	=cut
		105
		106	sub authority_linking_subfield {
		107	my ( $class ) = @_;
		108
		109	my $marcflavour = C4::Context->preference('marcflavour');
		110
		111	my $subfield;
		112	if ($marcflavour eq 'UNIMARC') {
		113	$subfield = '9';
		114	} else {
		115	$subfield = '0';
		116	}
		117
		118	return $subfield;
		119	}
		120
97	=head3 type	121	=head3 type
98		122
99	=cut	123	=cut

Lines 2283-2513 biblios: Link Here

(-)a/admin/searchengine/elasticsearch/mappings.yaml (-45 / +275 lines)
2283	mappings:	2283	mappings:
2284	- facet: ''	2284	- facet: ''
2285	marc_field: '1009'	2285	marc_field: '1009'
2286	marc_type: marc21	2286	marc_type: unimarc
2287	sort: ~	2287	sort: ~
2288	suggestible: ''	2288	suggestible: ''
2289	- facet: ''	2289	- facet: ''
2290	marc_field: '1109'	2290	marc_field: '1109'
2291	marc_type: marc21	2291	marc_type: unimarc
2292	sort: ~	2292	sort: ~
2293	suggestible: ''	2293	suggestible: ''
2294	- facet: ''	2294	- facet: ''
2295	marc_field: '1119'	2295	marc_field: '1119'
2296	marc_type: marc21	2296	marc_type: unimarc
2297	sort: ~	2297	sort: ~
2298	suggestible: ''	2298	suggestible: ''
2299	- facet: ''	2299	- facet: ''
2300	marc_field: '1309'	2300	marc_field: '1309'
2301	marc_type: marc21	2301	marc_type: unimarc
2302	sort: ~	2302	sort: ~
2303	suggestible: ''	2303	suggestible: ''
2304	- facet: ''	2304	- facet: ''
2305	marc_field: '2459'	2305	marc_field: '2459'
2306	marc_type: marc21	2306	marc_type: unimarc
2307	sort: ~	2307	sort: ~
2308	suggestible: ''	2308	suggestible: ''
2309	- facet: ''	2309	- facet: ''
2310	marc_field: '4009'	2310	marc_field: '4009'
2311	marc_type: marc21	2311	marc_type: unimarc
2312	sort: ~	2312	sort: ~
2313	suggestible: ''	2313	suggestible: ''
2314	- facet: ''	2314	- facet: ''
2315	marc_field: '4109'	2315	marc_field: '4109'
2316	marc_type: marc21	2316	marc_type: unimarc
2317	sort: ~	2317	sort: ~
2318	suggestible: ''	2318	suggestible: ''
2319	- facet: ''	2319	- facet: ''
2320	marc_field: '4409'	2320	marc_field: '4409'
2321	marc_type: marc21	2321	marc_type: unimarc
2322	sort: ~	2322	sort: ~
2323	suggestible: ''	2323	suggestible: ''
2324	- facet: ''	2324	- facet: ''
2325	marc_field: '4909'	2325	marc_field: '4909'
2326	marc_type: marc21	2326	marc_type: unimarc
2327	sort: ~	2327	sort: ~
2328	suggestible: ''	2328	suggestible: ''
2329	- facet: ''	2329	- facet: ''
2330	marc_field: '6009'	2330	marc_field: '6009'
2331	marc_type: marc21	2331	marc_type: unimarc
2332	sort: ~	2332	sort: ~
2333	suggestible: ''	2333	suggestible: ''
2334	- facet: ''	2334	- facet: ''
2335	marc_field: '6109'	2335	marc_field: '6109'
2336	marc_type: marc21	2336	marc_type: unimarc
2337	sort: ~	2337	sort: ~
2338	suggestible: ''	2338	suggestible: ''
2339	- facet: ''	2339	- facet: ''
2340	marc_field: '6119'	2340	marc_field: '6119'
2341	marc_type: marc21	2341	marc_type: unimarc
2342	sort: ~	2342	sort: ~
2343	suggestible: ''	2343	suggestible: ''
2344	- facet: ''	2344	- facet: ''
2345	marc_field: '6309'	2345	marc_field: '6309'
2346	marc_type: marc21	2346	marc_type: unimarc
2347	sort: ~	2347	sort: ~
2348	suggestible: ''	2348	suggestible: ''
2349	- facet: ''	2349	- facet: ''
2350	marc_field: '6489'	2350	marc_field: '6489'
2351	marc_type: marc21	2351	marc_type: unimarc
2352	sort: ~	2352	sort: ~
2353	suggestible: ''	2353	suggestible: ''
2354	- facet: ''	2354	- facet: ''
2355	marc_field: '6509'	2355	marc_field: '6509'
2356	marc_type: marc21	2356	marc_type: unimarc
2357	sort: ~	2357	sort: ~
2358	suggestible: ''	2358	suggestible: ''
2359	- facet: ''	2359	- facet: ''
2360	marc_field: '6519'	2360	marc_field: '6519'
2361	marc_type: marc21	2361	marc_type: unimarc
2362	sort: ~	2362	sort: ~
2363	suggestible: ''	2363	suggestible: ''
2364	- facet: ''	2364	- facet: ''
2365	marc_field: '6529'	2365	marc_field: '6529'
2366	marc_type: marc21	2366	marc_type: unimarc
2367	sort: ~	2367	sort: ~
2368	suggestible: ''	2368	suggestible: ''
2369	- facet: ''	2369	- facet: ''
2370	marc_field: '6539'	2370	marc_field: '6539'
2371	marc_type: marc21	2371	marc_type: unimarc
2372	sort: ~	2372	sort: ~
2373	suggestible: ''	2373	suggestible: ''
2374	- facet: ''	2374	- facet: ''
2375	marc_field: '6549'	2375	marc_field: '6549'
2376	marc_type: marc21	2376	marc_type: unimarc
2377	sort: ~	2377	sort: ~
2378	suggestible: ''	2378	suggestible: ''
2379	- facet: ''	2379	- facet: ''
2380	marc_field: '6559'	2380	marc_field: '6559'
2381	marc_type: marc21	2381	marc_type: unimarc
2382	sort: ~	2382	sort: ~
2383	suggestible: ''	2383	suggestible: ''
2384	- facet: ''	2384	- facet: ''
2385	marc_field: '6569'	2385	marc_field: '6569'
2386	marc_type: marc21	2386	marc_type: unimarc
2387	sort: ~	2387	sort: ~
2388	suggestible: ''	2388	suggestible: ''
2389	- facet: ''	2389	- facet: ''
2390	marc_field: '6579'	2390	marc_field: '6579'
2391	marc_type: marc21	2391	marc_type: unimarc
2392	sort: ~	2392	sort: ~
2393	suggestible: ''	2393	suggestible: ''
2394	- facet: ''	2394	- facet: ''
2395	marc_field: '6629'	2395	marc_field: '6629'
2396	marc_type: marc21	2396	marc_type: unimarc
2397	sort: ~	2397	sort: ~
2398	suggestible: ''	2398	suggestible: ''
2399	- facet: ''	2399	- facet: ''
2400	marc_field: '6909'	2400	marc_field: '6909'
2401	marc_type: marc21	2401	marc_type: unimarc
2402	sort: ~	2402	sort: ~
2403	suggestible: ''	2403	suggestible: ''
2404	- facet: ''	2404	- facet: ''
2405	marc_field: '6919'	2405	marc_field: '6919'
2406	marc_type: marc21	2406	marc_type: unimarc
2407	sort: ~	2407	sort: ~
2408	suggestible: ''	2408	suggestible: ''
2409	- facet: ''	2409	- facet: ''
2410	marc_field: '6969'	2410	marc_field: '6969'
2411	marc_type: marc21	2411	marc_type: unimarc
2412	sort: ~	2412	sort: ~
2413	suggestible: ''	2413	suggestible: ''
2414	- facet: ''	2414	- facet: ''
2415	marc_field: '6979'	2415	marc_field: '6979'
2416	marc_type: marc21	2416	marc_type: unimarc
2417	sort: ~	2417	sort: ~
2418	suggestible: ''	2418	suggestible: ''
2419	- facet: ''	2419	- facet: ''
2420	marc_field: '6989'	2420	marc_field: '6989'
2421	marc_type: marc21	2421	marc_type: unimarc
2422	sort: ~	2422	sort: ~
2423	suggestible: ''	2423	suggestible: ''
2424	- facet: ''	2424	- facet: ''
2425	marc_field: '6999'	2425	marc_field: '6999'
2426	marc_type: marc21	2426	marc_type: unimarc
2427	sort: ~	2427	sort: ~
2428	suggestible: ''	2428	suggestible: ''
2429	- facet: ''	2429	- facet: ''
2430	marc_field: '7009'	2430	marc_field: '7009'
2431	marc_type: marc21	2431	marc_type: unimarc
2432	sort: ~	2432	sort: ~
2433	suggestible: ''	2433	suggestible: ''
2434	- facet: ''	2434	- facet: ''
2435	marc_field: '7109'	2435	marc_field: '7109'
2436	marc_type: marc21	2436	marc_type: unimarc
2437	sort: ~	2437	sort: ~
2438	suggestible: ''	2438	suggestible: ''
2439	- facet: ''	2439	- facet: ''
2440	marc_field: '7119'	2440	marc_field: '7119'
2441	marc_type: marc21	2441	marc_type: unimarc
2442	sort: ~	2442	sort: ~
2443	suggestible: ''	2443	suggestible: ''
2444	- facet: ''	2444	- facet: ''
2445	marc_field: '7309'	2445	marc_field: '7309'
2446	marc_type: marc21	2446	marc_type: unimarc
2447	sort: ~	2447	sort: ~
2448	suggestible: ''	2448	suggestible: ''
2449	- facet: ''	2449	- facet: ''
2450	marc_field: '7519'	2450	marc_field: '7519'
2451	marc_type: marc21	2451	marc_type: unimarc
2452	sort: ~	2452	sort: ~
2453	suggestible: ''	2453	suggestible: ''
2454	- facet: ''	2454	- facet: ''
2455	marc_field: '7969'	2455	marc_field: '7969'
2456	marc_type: marc21	2456	marc_type: unimarc
2457	sort: ~	2457	sort: ~
2458	suggestible: ''	2458	suggestible: ''
2459	- facet: ''	2459	- facet: ''
2460	marc_field: '7979'	2460	marc_field: '7979'
2461	marc_type: marc21	2461	marc_type: unimarc
2462	sort: ~	2462	sort: ~
2463	suggestible: ''	2463	suggestible: ''
2464	- facet: ''	2464	- facet: ''
2465	marc_field: '7989'	2465	marc_field: '7989'
2466	marc_type: marc21	2466	marc_type: unimarc
2467	sort: ~	2467	sort: ~
2468	suggestible: ''	2468	suggestible: ''
2469	- facet: ''	2469	- facet: ''
2470	marc_field: '7999'	2470	marc_field: '7999'
2471	marc_type: marc21	2471	marc_type: unimarc
2472	sort: ~	2472	sort: ~
2473	suggestible: ''	2473	suggestible: ''
2474	- facet: ''	2474	- facet: ''
2475	marc_field: '8009'	2475	marc_field: '8009'
2476	marc_type: marc21	2476	marc_type: unimarc
2477	sort: ~	2477	sort: ~
2478	suggestible: ''	2478	suggestible: ''
2479	- facet: ''	2479	- facet: ''
2480	marc_field: '8109'	2480	marc_field: '8109'
2481	marc_type: marc21	2481	marc_type: unimarc
2482	sort: ~	2482	sort: ~
2483	suggestible: ''	2483	suggestible: ''
2484	- facet: ''	2484	- facet: ''
2485	marc_field: '8119'	2485	marc_field: '8119'
2486	marc_type: marc21	2486	marc_type: unimarc
2487	sort: ~	2487	sort: ~
2488	suggestible: ''	2488	suggestible: ''
2489	- facet: ''	2489	- facet: ''
2490	marc_field: '8309'	2490	marc_field: '8309'
2491	marc_type: marc21	2491	marc_type: unimarc
2492	sort: ~	2492	sort: ~
2493	suggestible: ''	2493	suggestible: ''
2494	- facet: ''	2494	- facet: ''
2495	marc_field: '8969'	2495	marc_field: '8969'
2496	marc_type: marc21	2496	marc_type: unimarc
2497	sort: ~	2497	sort: ~
2498	suggestible: ''	2498	suggestible: ''
2499	- facet: ''	2499	- facet: ''
2500	marc_field: '8979'	2500	marc_field: '8979'
2501	marc_type: marc21	2501	marc_type: unimarc
2502	sort: ~	2502	sort: ~
2503	suggestible: ''	2503	suggestible: ''
2504	- facet: ''	2504	- facet: ''
2505	marc_field: '8989'	2505	marc_field: '8989'
2506	marc_type: marc21	2506	marc_type: unimarc
2507	sort: ~	2507	sort: ~
2508	suggestible: ''	2508	suggestible: ''
2509	- facet: ''	2509	- facet: ''
2510	marc_field: '8999'	2510	marc_field: '8999'
		2511	marc_type: unimarc
		2512	sort: ~
		2513	suggestible: ''
		2514	- facet: ''
		2515	marc_field: '1000'
		2516	marc_type: marc21
		2517	sort: ~
		2518	suggestible: ''
		2519	- facet: ''
		2520	marc_field: '1100'
		2521	marc_type: marc21
		2522	sort: ~
		2523	suggestible: ''
		2524	- facet: ''
		2525	marc_field: '1110'
		2526	marc_type: marc21
		2527	sort: ~
		2528	suggestible: ''
		2529	- facet: ''
		2530	marc_field: '1300'
		2531	marc_type: marc21
		2532	sort: ~
		2533	suggestible: ''
		2534	- facet: ''
		2535	marc_field: '2450'
		2536	marc_type: marc21
		2537	sort: ~
		2538	suggestible: ''
		2539	- facet: ''
		2540	marc_field: '4000'
		2541	marc_type: marc21
		2542	sort: ~
		2543	suggestible: ''
		2544	- facet: ''
		2545	marc_field: '4100'
		2546	marc_type: marc21
		2547	sort: ~
		2548	suggestible: ''
		2549	- facet: ''
		2550	marc_field: '4400'
		2551	marc_type: marc21
		2552	sort: ~
		2553	suggestible: ''
		2554	- facet: ''
		2555	marc_field: '4900'
		2556	marc_type: marc21
		2557	sort: ~
		2558	suggestible: ''
		2559	- facet: ''
		2560	marc_field: '6000'
		2561	marc_type: marc21
		2562	sort: ~
		2563	suggestible: ''
		2564	- facet: ''
		2565	marc_field: '6100'
		2566	marc_type: marc21
		2567	sort: ~
		2568	suggestible: ''
		2569	- facet: ''
		2570	marc_field: '6110'
		2571	marc_type: marc21
		2572	sort: ~
		2573	suggestible: ''
		2574	- facet: ''
2575	marc_field: '6300'
2576	marc_type: marc21
2577	sort: ~
2578	suggestible: ''
2579	- facet: ''
2580	marc_field: '6480'
2581	marc_type: marc21
2582	sort: ~
2583	suggestible: ''
2584	- facet: ''
2585	marc_field: '6500'
2586	marc_type: marc21
2587	sort: ~
2588	suggestible: ''
2589	- facet: ''
2590	marc_field: '6510'
2591	marc_type: marc21
2592	sort: ~
2593	suggestible: ''
2594	- facet: ''
2595	marc_field: '6520'
2596	marc_type: marc21
2597	sort: ~
2598	suggestible: ''
2599	- facet: ''
2600	marc_field: '6530'
2601	marc_type: marc21
2602	sort: ~
2603	suggestible: ''
2604	- facet: ''
2605	marc_field: '6540'
2606	marc_type: marc21
2607	sort: ~
2608	suggestible: ''
2609	- facet: ''
2610	marc_field: '6550'
2611	marc_type: marc21
2612	sort: ~
2613	suggestible: ''
2614	- facet: ''
2615	marc_field: '6560'
2616	marc_type: marc21
2617	sort: ~
2618	suggestible: ''
2619	- facet: ''
2620	marc_field: '6570'
2621	marc_type: marc21
2622	sort: ~
2623	suggestible: ''
2624	- facet: ''
2625	marc_field: '6620'
2626	marc_type: marc21
2627	sort: ~
2628	suggestible: ''
2629	- facet: ''
2630	marc_field: '6900'
2631	marc_type: marc21
2632	sort: ~
2633	suggestible: ''
2634	- facet: ''
2635	marc_field: '6910'
2636	marc_type: marc21
2637	sort: ~
2638	suggestible: ''
2639	- facet: ''
2640	marc_field: '6960'
2641	marc_type: marc21
2642	sort: ~
2643	suggestible: ''
2644	- facet: ''
2645	marc_field: '6970'
2646	marc_type: marc21
2647	sort: ~
2648	suggestible: ''
2649	- facet: ''
2650	marc_field: '6980'
2651	marc_type: marc21
2652	sort: ~
2653	suggestible: ''
2654	- facet: ''
2655	marc_field: '6990'
2656	marc_type: marc21
2657	sort: ~
2658	suggestible: ''
2659	- facet: ''
2660	marc_field: '7000'
2661	marc_type: marc21
2662	sort: ~
2663	suggestible: ''
2664	- facet: ''
2665	marc_field: '7100'
2666	marc_type: marc21
2667	sort: ~
2668	suggestible: ''
2669	- facet: ''
2670	marc_field: '7110'
2671	marc_type: marc21
2672	sort: ~
2673	suggestible: ''
2674	- facet: ''
2675	marc_field: '7300'
2676	marc_type: marc21
2677	sort: ~
2678	suggestible: ''
2679	- facet: ''
2680	marc_field: '7510'
2681	marc_type: marc21
2682	sort: ~
2683	suggestible: ''
2684	- facet: ''
2685	marc_field: '7960'
2686	marc_type: marc21
2687	sort: ~
2688	suggestible: ''
2689	- facet: ''
2690	marc_field: '7970'
2691	marc_type: marc21
2692	sort: ~
2693	suggestible: ''
2694	- facet: ''
2695	marc_field: '7980'
2696	marc_type: marc21
2697	sort: ~
2698	suggestible: ''
2699	- facet: ''
2700	marc_field: '7990'
2701	marc_type: marc21
2702	sort: ~
2703	suggestible: ''
2704	- facet: ''
2705	marc_field: '8000'
2706	marc_type: marc21
2707	sort: ~
2708	suggestible: ''
2709	- facet: ''
2710	marc_field: '8100'
2711	marc_type: marc21
2712	sort: ~
2713	suggestible: ''
2714	- facet: ''
2715	marc_field: '8110'
2716	marc_type: marc21
2717	sort: ~
2718	suggestible: ''
2719	- facet: ''
2720	marc_field: '8300'
2721	marc_type: marc21
2722	sort: ~
2723	suggestible: ''
2724	- facet: ''
2725	marc_field: '8960'
2726	marc_type: marc21
2727	sort: ~
2728	suggestible: ''
2729	- facet: ''
2730	marc_field: '8970'
2731	marc_type: marc21
2732	sort: ~
2733	suggestible: ''
2734	- facet: ''
2735	marc_field: '8980'
2736	marc_type: marc21
2737	sort: ~
2738	suggestible: ''
2739	- facet: ''
2740	marc_field: '8990'
2511	marc_type: marc21	2741	marc_type: marc21
2512	sort: ~	2742	sort: ~
2513	suggestible: ''	2743	suggestible: ''

Lines 57-62 my $authid = $query->param('authid'); Link Here

(-)a/authorities/blinddetail-biblio-search.pl (-1 / +3 lines)
57	my $index = $query->param('index');	57	my $index = $query->param('index');
58	my $tagid = $query->param('tagid');	58	my $tagid = $query->param('tagid');
59	my $relationship = $query->param('relationship');	59	my $relationship = $query->param('relationship');
		60	my $authsubfield = Koha::Authorities->authority_linking_subfield;
60		61
61	# open template	62	# open template
62	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	63	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Lines 88-94 if ($authid) { Link Here
88	# Get all values for each distinct subfield and add to subfield loop	89	# Get all values for each distinct subfield and add to subfield loop
89	my %done_subfields;	90	my %done_subfields;
90	for ( $field->subfields ) {	91	for ( $field->subfields ) {
91	next if $_->[0] eq '9'; # $9 will be set with authid value	92	next if $_->[0] eq $authsubfield; # will be set with authid value
92	my $letter = $_->[0];	93	my $letter = $_->[0];
93	$letter \|\|= '@';	94	$letter \|\|= '@';
94	next if defined $done_subfields{$letter};	95	next if defined $done_subfields{$letter};
Lines 115-120 if ($authid) { Link Here
115		116
116	$template->param(	117	$template->param(
117	authid => $authid ? $authid : "",	118	authid => $authid ? $authid : "",
		119	authsubfield => $authsubfield,
118	index => $index,	120	index => $index,
119	tagid => $tagid,	121	tagid => $tagid,
120	update_ind1 => defined($indicator1),	122	update_ind1 => defined($indicator1),

Lines 328-343 sub create_input { Link Here

(-)a/cataloguing/addbiblio.pl (-6 / +7 lines)
328	# expand all subfields of 773 if there is a host item provided in the input	328	# expand all subfields of 773 if there is a host item provided in the input
329	$subfield_data{visibility} ="" if ($tag eq 773 and $cgi->param('hostitemnumber'));	329	$subfield_data{visibility} ="" if ($tag eq 773 and $cgi->param('hostitemnumber'));
330		330
331		331	my $authsubfield = Koha::Authorities->authority_linking_subfield;
332	# it's an authorised field	332	# it's an authorised field
333	if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) {	333	if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) {
334	$subfield_data{marc_value} =	334	$subfield_data{marc_value} =
335	build_authorized_values_list( $tag, $subfield, $value, $dbh,	335	build_authorized_values_list( $tag, $subfield, $value, $dbh,
336	$authorised_values_sth,$index_tag,$index_subfield );	336	$authorised_values_sth,$index_tag,$index_subfield );
337		337
338	# it's a subfield $9 linking to an authority record - see bug 2206	338	# it's a subfield linking to an authority record - see bug 2206
339	}	339	}
340	elsif ($subfield eq "9" and	340	elsif ($subfield eq $authsubfield and
341	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and	341	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
342	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and	342	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
343	$tagslib->{$tag}->{'a'}->{authtypecode} ne '') {	343	$tagslib->{$tag}->{'a'}->{authtypecode} ne '') {
Lines 489-495 sub build_tabs { Link Here
489	my @BIG_LOOP;	489	my @BIG_LOOP;
490	my %seen;	490	my %seen;
491	my @tab_data; # all tags to display	491	my @tab_data; # all tags to display
492		492	my $authsubfield = Koha::Authorities->authority_linking_subfield;
		493
493	foreach my $used ( @$usedTagsLib ){	494	foreach my $used ( @$usedTagsLib ){
494	push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}};	495	push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}};
495	$seen{$used->{tagfield}}++;	496	$seen{$used->{tagfield}}++;
Lines 576-582 sub build_tabs { Link Here
576	next	577	next
577	if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )	578	if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
578	or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )	579	or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
579	and not ( $subfield eq "9" and	580	and not ( $subfield eq $authsubfield and
580	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and	581	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
581	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and	582	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
582	$tagslib->{$tag}->{'a'}->{authtypecode} ne ""	583	$tagslib->{$tag}->{'a'}->{authtypecode} ne ""
Lines 625-631 sub build_tabs { Link Here
625	next	626	next
626	if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )	627	if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
627	or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )	628	or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) )
628	and not ( $subfield eq "9" and	629	and not ( $subfield eq $authsubfield and
629	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and	630	exists($tagslib->{$tag}->{'a'}->{authtypecode}) and
630	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and	631	defined($tagslib->{$tag}->{'a'}->{authtypecode}) and
631	$tagslib->{$tag}->{'a'}->{authtypecode} ne ""	632	$tagslib->{$tag}->{'a'}->{authtypecode} ne ""

Lines 149-155 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here

(-)a/etc/zebradb/marc_defs/normarc/biblios/biblio-zebra-indexdefs.xsl (-29 / +29 lines)
149	</xslo:template>	149	</xslo:template>
150	<xslo:template mode="index_subfields" match="marc:datafield[@tag='100']">	150	<xslo:template mode="index_subfields" match="marc:datafield[@tag='100']">
151	<xslo:for-each select="marc:subfield">	151	<xslo:for-each select="marc:subfield">
152	<xslo:if test="contains('9', @code)">	152	<xslo:if test="contains('0', @code)">
153	<z:index name="Cross-Reference:w Koha-Auth-Number:w">	153	<z:index name="Cross-Reference:w Koha-Auth-Number:w">
154	<xslo:value-of select="."/>	154	<xslo:value-of select="."/>
155	</z:index>	155	</z:index>
Lines 165-171 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
165	</xslo:template>	165	</xslo:template>
166	<xslo:template mode="index_subfields" match="marc:datafield[@tag='110']">	166	<xslo:template mode="index_subfields" match="marc:datafield[@tag='110']">
167	<xslo:for-each select="marc:subfield">	167	<xslo:for-each select="marc:subfield">
168	<xslo:if test="contains('9', @code)">	168	<xslo:if test="contains('0', @code)">
169	<z:index name="Koha-Auth-Number:w">	169	<z:index name="Koha-Auth-Number:w">
170	<xslo:value-of select="."/>	170	<xslo:value-of select="."/>
171	</z:index>	171	</z:index>
Lines 174-180 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
174	</xslo:template>	174	</xslo:template>
175	<xslo:template mode="index_subfields" match="marc:datafield[@tag='111']">	175	<xslo:template mode="index_subfields" match="marc:datafield[@tag='111']">
176	<xslo:for-each select="marc:subfield">	176	<xslo:for-each select="marc:subfield">
177	<xslo:if test="contains('9', @code)">	177	<xslo:if test="contains('0', @code)">
178	<z:index name="Koha-Auth-Number:w">	178	<z:index name="Koha-Auth-Number:w">
179	<xslo:value-of select="."/>	179	<xslo:value-of select="."/>
180	</z:index>	180	</z:index>
Lines 204-210 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
204	</xslo:if>	204	</xslo:if>
205	</xslo:for-each>	205	</xslo:for-each>
206	<xslo:for-each select="marc:subfield">	206	<xslo:for-each select="marc:subfield">
207	<xslo:if test="contains('9', @code)">	207	<xslo:if test="contains('0', @code)">
208	<z:index name="Koha-Auth-Number:w">	208	<z:index name="Koha-Auth-Number:w">
209	<xslo:value-of select="."/>	209	<xslo:value-of select="."/>
210	</z:index>	210	</z:index>
Lines 250-256 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
250	</xslo:if>	250	</xslo:if>
251	</xslo:for-each>	251	</xslo:for-each>
252	<xslo:for-each select="marc:subfield">	252	<xslo:for-each select="marc:subfield">
253	<xslo:if test="contains('9', @code)">	253	<xslo:if test="contains('0', @code)">
254	<z:index name="Cross-Reference:w Koha-Auth-Number:w">	254	<z:index name="Cross-Reference:w Koha-Auth-Number:w">
255	<xslo:value-of select="."/>	255	<xslo:value-of select="."/>
256	</z:index>	256	</z:index>
Lines 289-295 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
289	</xslo:if>	289	</xslo:if>
290	</xslo:for-each>	290	</xslo:for-each>
291	<xslo:for-each select="marc:subfield">	291	<xslo:for-each select="marc:subfield">
292	<xslo:if test="contains('9', @code)">	292	<xslo:if test="contains('0', @code)">
293	<z:index name="Koha-Auth-Number:w">	293	<z:index name="Koha-Auth-Number:w">
294	<xslo:value-of select="."/>	294	<xslo:value-of select="."/>
295	</z:index>	295	</z:index>
Lines 305-311 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
305	</xslo:if>	305	</xslo:if>
306	</xslo:for-each>	306	</xslo:for-each>
307	<xslo:for-each select="marc:subfield">	307	<xslo:for-each select="marc:subfield">
308	<xslo:if test="contains('9', @code)">	308	<xslo:if test="contains('0', @code)">
309	<z:index name="Koha-Auth-Number:w">	309	<z:index name="Koha-Auth-Number:w">
310	<xslo:value-of select="."/>	310	<xslo:value-of select="."/>
311	</z:index>	311	</z:index>
Lines 328-334 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
328	</xslo:if>	328	</xslo:if>
329	</xslo:for-each>	329	</xslo:for-each>
330	<xslo:for-each select="marc:subfield">	330	<xslo:for-each select="marc:subfield">
331	<xslo:if test="contains('9', @code)">	331	<xslo:if test="contains('0', @code)">
332	<z:index name="Koha-Auth-Number:w">	332	<z:index name="Koha-Auth-Number:w">
333	<xslo:value-of select="."/>	333	<xslo:value-of select="."/>
334	</z:index>	334	</z:index>
Lines 351-357 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
351	</xslo:if>	351	</xslo:if>
352	</xslo:for-each>	352	</xslo:for-each>
353	<xslo:for-each select="marc:subfield">	353	<xslo:for-each select="marc:subfield">
354	<xslo:if test="contains('9', @code)">	354	<xslo:if test="contains('0', @code)">
355	<z:index name="Koha-Auth-Number:w">	355	<z:index name="Koha-Auth-Number:w">
356	<xslo:value-of select="."/>	356	<xslo:value-of select="."/>
357	</z:index>	357	</z:index>
Lines 374-380 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
374	</xslo:if>	374	</xslo:if>
375	</xslo:for-each>	375	</xslo:for-each>
376	<xslo:for-each select="marc:subfield">	376	<xslo:for-each select="marc:subfield">
377	<xslo:if test="contains('9', @code)">	377	<xslo:if test="contains('0', @code)">
378	<z:index name="Koha-Auth-Number:w">	378	<z:index name="Koha-Auth-Number:w">
379	<xslo:value-of select="."/>	379	<xslo:value-of select="."/>
380	</z:index>	380	</z:index>
Lines 404-410 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
404	</xslo:if>	404	</xslo:if>
405	</xslo:for-each>	405	</xslo:for-each>
406	<xslo:for-each select="marc:subfield">	406	<xslo:for-each select="marc:subfield">
407	<xslo:if test="contains('9', @code)">	407	<xslo:if test="contains('0', @code)">
408	<z:index name="Koha-Auth-Number:w">	408	<z:index name="Koha-Auth-Number:w">
409	<xslo:value-of select="."/>	409	<xslo:value-of select="."/>
410	</z:index>	410	</z:index>
Lines 413-419 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
413	</xslo:template>	413	</xslo:template>
414	<xslo:template mode="index_subfields" match="marc:datafield[@tag='648']">	414	<xslo:template mode="index_subfields" match="marc:datafield[@tag='648']">
415	<xslo:for-each select="marc:subfield">	415	<xslo:for-each select="marc:subfield">
416	<xslo:if test="contains('9', @code)">	416	<xslo:if test="contains('0', @code)">
417	<z:index name="Koha-Auth-Number:w">	417	<z:index name="Koha-Auth-Number:w">
418	<xslo:value-of select="."/>	418	<xslo:value-of select="."/>
419	</z:index>	419	</z:index>
Lines 422-428 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
422	</xslo:template>	422	</xslo:template>
423	<xslo:template mode="index_subfields" match="marc:datafield[@tag='650']">	423	<xslo:template mode="index_subfields" match="marc:datafield[@tag='650']">
424	<xslo:for-each select="marc:subfield">	424	<xslo:for-each select="marc:subfield">
425	<xslo:if test="contains('9', @code)">	425	<xslo:if test="contains('0', @code)">
426	<z:index name="Koha-Auth-Number:w">	426	<z:index name="Koha-Auth-Number:w">
427	<xslo:value-of select="."/>	427	<xslo:value-of select="."/>
428	</z:index>	428	</z:index>
Lines 431-437 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
431	</xslo:template>	431	</xslo:template>
432	<xslo:template mode="index_subfields" match="marc:datafield[@tag='651']">	432	<xslo:template mode="index_subfields" match="marc:datafield[@tag='651']">
433	<xslo:for-each select="marc:subfield">	433	<xslo:for-each select="marc:subfield">
434	<xslo:if test="contains('9', @code)">	434	<xslo:if test="contains('0', @code)">
435	<z:index name="Koha-Auth-Number:w">	435	<z:index name="Koha-Auth-Number:w">
436	<xslo:value-of select="."/>	436	<xslo:value-of select="."/>
437	</z:index>	437	</z:index>
Lines 440-446 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
440	</xslo:template>	440	</xslo:template>
441	<xslo:template mode="index_subfields" match="marc:datafield[@tag='652']">	441	<xslo:template mode="index_subfields" match="marc:datafield[@tag='652']">
442	<xslo:for-each select="marc:subfield">	442	<xslo:for-each select="marc:subfield">
443	<xslo:if test="contains('9', @code)">	443	<xslo:if test="contains('0', @code)">
444	<z:index name="Koha-Auth-Number:w">	444	<z:index name="Koha-Auth-Number:w">
445	<xslo:value-of select="."/>	445	<xslo:value-of select="."/>
446	</z:index>	446	</z:index>
Lines 449-455 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
449	</xslo:template>	449	</xslo:template>
450	<xslo:template mode="index_subfields" match="marc:datafield[@tag='653']">	450	<xslo:template mode="index_subfields" match="marc:datafield[@tag='653']">
451	<xslo:for-each select="marc:subfield">	451	<xslo:for-each select="marc:subfield">
452	<xslo:if test="contains('9', @code)">	452	<xslo:if test="contains('0', @code)">
453	<z:index name="Koha-Auth-Number:w">	453	<z:index name="Koha-Auth-Number:w">
454	<xslo:value-of select="."/>	454	<xslo:value-of select="."/>
455	</z:index>	455	</z:index>
Lines 458-464 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
458	</xslo:template>	458	</xslo:template>
459	<xslo:template mode="index_subfields" match="marc:datafield[@tag='654']">	459	<xslo:template mode="index_subfields" match="marc:datafield[@tag='654']">
460	<xslo:for-each select="marc:subfield">	460	<xslo:for-each select="marc:subfield">
461	<xslo:if test="contains('9', @code)">	461	<xslo:if test="contains('0', @code)">
462	<z:index name="Koha-Auth-Number:w">	462	<z:index name="Koha-Auth-Number:w">
463	<xslo:value-of select="."/>	463	<xslo:value-of select="."/>
464	</z:index>	464	</z:index>
Lines 467-473 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
467	</xslo:template>	467	</xslo:template>
468	<xslo:template mode="index_subfields" match="marc:datafield[@tag='655']">	468	<xslo:template mode="index_subfields" match="marc:datafield[@tag='655']">
469	<xslo:for-each select="marc:subfield">	469	<xslo:for-each select="marc:subfield">
470	<xslo:if test="contains('9', @code)">	470	<xslo:if test="contains('0', @code)">
471	<z:index name="Koha-Auth-Number:w">	471	<z:index name="Koha-Auth-Number:w">
472	<xslo:value-of select="."/>	472	<xslo:value-of select="."/>
473	</z:index>	473	</z:index>
Lines 476-482 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
476	</xslo:template>	476	</xslo:template>
477	<xslo:template mode="index_subfields" match="marc:datafield[@tag='656']">	477	<xslo:template mode="index_subfields" match="marc:datafield[@tag='656']">
478	<xslo:for-each select="marc:subfield">	478	<xslo:for-each select="marc:subfield">
479	<xslo:if test="contains('9', @code)">	479	<xslo:if test="contains('0', @code)">
480	<z:index name="Koha-Auth-Number:w">	480	<z:index name="Koha-Auth-Number:w">
481	<xslo:value-of select="."/>	481	<xslo:value-of select="."/>
482	</z:index>	482	</z:index>
Lines 485-491 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
485	</xslo:template>	485	</xslo:template>
486	<xslo:template mode="index_subfields" match="marc:datafield[@tag='657']">	486	<xslo:template mode="index_subfields" match="marc:datafield[@tag='657']">
487	<xslo:for-each select="marc:subfield">	487	<xslo:for-each select="marc:subfield">
488	<xslo:if test="contains('9', @code)">	488	<xslo:if test="contains('0', @code)">
489	<z:index name="Koha-Auth-Number:w">	489	<z:index name="Koha-Auth-Number:w">
490	<xslo:value-of select="."/>	490	<xslo:value-of select="."/>
491	</z:index>	491	</z:index>
Lines 494-500 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
494	</xslo:template>	494	</xslo:template>
495	<xslo:template mode="index_subfields" match="marc:datafield[@tag='690']">	495	<xslo:template mode="index_subfields" match="marc:datafield[@tag='690']">
496	<xslo:for-each select="marc:subfield">	496	<xslo:for-each select="marc:subfield">
497	<xslo:if test="contains('9', @code)">	497	<xslo:if test="contains('0', @code)">
498	<z:index name="Koha-Auth-Number:w">	498	<z:index name="Koha-Auth-Number:w">
499	<xslo:value-of select="."/>	499	<xslo:value-of select="."/>
500	</z:index>	500	</z:index>
Lines 503-509 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
503	</xslo:template>	503	</xslo:template>
504	<xslo:template mode="index_subfields" match="marc:datafield[@tag='700']">	504	<xslo:template mode="index_subfields" match="marc:datafield[@tag='700']">
505	<xslo:for-each select="marc:subfield">	505	<xslo:for-each select="marc:subfield">
506	<xslo:if test="contains('9', @code)">	506	<xslo:if test="contains('0', @code)">
507	<z:index name="Cross-Reference:w Koha-Auth-Number:w">	507	<z:index name="Cross-Reference:w Koha-Auth-Number:w">
508	<xslo:value-of select="."/>	508	<xslo:value-of select="."/>
509	</z:index>	509	</z:index>
Lines 568-574 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
568	</xslo:if>	568	</xslo:if>
569	</xslo:for-each>	569	</xslo:for-each>
570	<xslo:for-each select="marc:subfield">	570	<xslo:for-each select="marc:subfield">
571	<xslo:if test="contains('9', @code)">	571	<xslo:if test="contains('0', @code)">
572	<z:index name="Koha-Auth-Number:w">	572	<z:index name="Koha-Auth-Number:w">
573	<xslo:value-of select="."/>	573	<xslo:value-of select="."/>
574	</z:index>	574	</z:index>
Lines 591-597 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
591	</xslo:if>	591	</xslo:if>
592	</xslo:for-each>	592	</xslo:for-each>
593	<xslo:for-each select="marc:subfield">	593	<xslo:for-each select="marc:subfield">
594	<xslo:if test="contains('9', @code)">	594	<xslo:if test="contains('0', @code)">
595	<z:index name="Koha-Auth-Number:w">	595	<z:index name="Koha-Auth-Number:w">
596	<xslo:value-of select="."/>	596	<xslo:value-of select="."/>
597	</z:index>	597	</z:index>
Lines 621-627 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
621	</xslo:if>	621	</xslo:if>
622	</xslo:for-each>	622	</xslo:for-each>
623	<xslo:for-each select="marc:subfield">	623	<xslo:for-each select="marc:subfield">
624	<xslo:if test="contains('9', @code)">	624	<xslo:if test="contains('0', @code)">
625	<z:index name="Koha-Auth-Number:w">	625	<z:index name="Koha-Auth-Number:w">
626	<xslo:value-of select="."/>	626	<xslo:value-of select="."/>
627	</z:index>	627	</z:index>
Lines 683-689 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
683	</xslo:if>	683	</xslo:if>
684	</xslo:for-each>	684	</xslo:for-each>
685	<xslo:for-each select="marc:subfield">	685	<xslo:for-each select="marc:subfield">
686	<xslo:if test="contains('9', @code)">	686	<xslo:if test="contains('0', @code)">
687	<z:index name="Koha-Auth-Number:w">	687	<z:index name="Koha-Auth-Number:w">
688	<xslo:value-of select="."/>	688	<xslo:value-of select="."/>
689	</z:index>	689	</z:index>
Lines 706-712 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
706	</xslo:if>	706	</xslo:if>
707	</xslo:for-each>	707	</xslo:for-each>
708	<xslo:for-each select="marc:subfield">	708	<xslo:for-each select="marc:subfield">
709	<xslo:if test="contains('9', @code)">	709	<xslo:if test="contains('0', @code)">
710	<z:index name="Koha-Auth-Number:w">	710	<z:index name="Koha-Auth-Number:w">
711	<xslo:value-of select="."/>	711	<xslo:value-of select="."/>
712	</z:index>	712	</z:index>
Lines 722-728 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
722	</xslo:if>	722	</xslo:if>
723	</xslo:for-each>	723	</xslo:for-each>
724	<xslo:for-each select="marc:subfield">	724	<xslo:for-each select="marc:subfield">
725	<xslo:if test="contains('9', @code)">	725	<xslo:if test="contains('0', @code)">
726	<z:index name="Koha-Auth-Number:w">	726	<z:index name="Koha-Auth-Number:w">
727	<xslo:value-of select="."/>	727	<xslo:value-of select="."/>
728	</z:index>	728	</z:index>
Lines 738-744 definition file (probably something like {biblio,authority}-koha-indexdefs.xml) Link Here
738	</xslo:template>	738	</xslo:template>
739	<xslo:template mode="index_subfields" match="marc:datafield[@tag='830']">	739	<xslo:template mode="index_subfields" match="marc:datafield[@tag='830']">
740	<xslo:for-each select="marc:subfield">	740	<xslo:for-each select="marc:subfield">
741	<xslo:if test="contains('9', @code)">	741	<xslo:if test="contains('0', @code)">
742	<z:index name="Koha-Auth-Number:w">	742	<z:index name="Koha-Auth-Number:w">
743	<xslo:value-of select="."/>	743	<xslo:value-of select="."/>
744	</z:index>	744	</z:index>

Line 0 Link Here

(-)a/misc/maintenance/batchAuthorityLinking.pl (+210 lines)
		1	#!/usr/bin/perl
		2
		3	#-----------------------------------
		4	# Copyright 2019 Koha-Suomi Oy
		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 2 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
		22	use Modern::Perl;
		23	use Getopt::Long;
		24
		25	use C4::Context;
		26	use C4::Biblio;
		27	use C4::Record;
		28	use MARC::Field;
		29
		30	my ($help, $confirm, $verbose);
		31	my $schema = 'MARC21';
		32	my $chunks = 500;
		33
		34	GetOptions(
		35	'h\|help' => \$help,
		36	'v\|verbose:i' => \$verbose,
		37	'c\|confirm' => \$confirm,
		38	's\|schema:s' => \$schema,
		39	'chunks:i' => \$chunks,
		40	);
		41
		42	my $usage = << 'ENDUSAGE';
		43
		44	Changes authority linking subfield from $9 to $0
		45
		46	-h --help This nice help!
		47
		48	-v --verbose More chatty output.
		49
		50	-c --confirm Confirm that you want to mangle your bibliographic records
		51
		52	-s --schema Select MARC schema, MARC21 or NORMARC. Default is MARC21
		53
		54	--chunks Increase processed chunks
		55
		56
		57	EXAMPLE:
		58
		59	perl batchAuthorityLinking.pl -v -c
		60	perl batchAuthorityLinking.pl -v -c -f NORMARC
		61	perl batchAuthorityLinking.pl -v --chunks 1000
		62
		63	ENDUSAGE
		64
65	if ($help) {
66	print $usage;
67	exit 0;
68	}
69
70	our $marc21Authorityfields = {
71	'100' => 1,
72	'110' => 1,
73	'111' => 1,
74	'130' => 1,
75	'245' => 1,
76	'400' => 1,
77	'410' => 1,
78	'440' => 1,
79	'490' => 1,
80	'600' => 1,
81	'610' => 1,
82	'611' => 1,
83	'630' => 1,
84	'648' => 1,
85	'650' => 1,
86	'651' => 1,
87	'652' => 1,
88	'653' => 1,
89	'654' => 1,
90	'655' => 1,
91	'656' => 1,
92	'657' => 1,
93	'662' => 1,
94	'690' => 1,
95	'691' => 1,
96	'696' => 1,
97	'697' => 1,
98	'698' => 1,
99	'699' => 1,
100	'700' => 1,
101	'710' => 1,
102	'711' => 1,
103	'730' => 1,
104	'751' => 1,
105	'796' => 1,
106	'797' => 1,
107	'798' => 1,
108	'799' => 1,
109	'800' => 1,
110	'810' => 1,
111	'811' => 1,
112	'830' => 1,
113	'896' => 1,
114	'897' => 1,
115	'898' => 1,
116	'899' => 1
117	};
118
119	our $normarcAuthorityfields = {
120	'100' => 1,
121	'110' => 1,
122	'111' => 1,
123	'130' => 1,
124	'245' => 1,
125	'440' => 1,
126	'490' => 1,
127	'600' => 1,
128	'610' => 1,
129	'611' => 1,
130	'630' => 1,
131	'650' => 1,
132	'651' => 1,
133	'652' => 1,
134	'653' => 1,
135	'654' => 1,
136	'655' => 1,
137	'656' => 1,
138	'657' => 1,
139	'690' => 1,
140	'700' => 1,
141	'710' => 1,
142	'711' => 1,
143	'730' => 1,
144	'800' => 1,
145	'810' => 1,
146	'811' => 1,
147	'830' => 1
148	};
149
150	my $params = {
151	chunks => $chunks,
152	page => 1
153	};
154
155
156	my $pageCount = 1;
157	my $authorityfields = $schema eq 'NORMARC' ? $normarcAuthorityfields : $marc21Authorityfields;
158
159	while ($pageCount >= $params->{page}) {
160	my $biblios = biblios($params);
161	my $count = 0;
162	my $lastnumber = 0;
163	foreach my $biblio (@{$biblios}) {
164	my $record = C4::Record::marcxml2marc($biblio->{metadata});
165	foreach my $field ($record->fields) {
166	my @subfield_data;
167	if ($authorityfields->{$field->tag}) {
168	if ($field->subfields) {
169	for my $subfield ($field->subfields) {
170	if ($subfield->[0] eq "9") {
171	$subfield->[0] = "0";
172	print "Change $schema 9 field to 0 from ".$biblio->{biblionumber}."\n" if (defined $verbose);
173	}
174	push @subfield_data, $subfield->[0], $subfield->[1];
175	}
176	}
177	}
178	$field->replace_with(MARC::Field->new(
179	$field->tag(), $field->indicator(1), $field->indicator(2),
180	@subfield_data)
181	) if @subfield_data;
182	}
183	my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblio->{biblionumber} );
184	C4::Biblio::ModBiblio($record, $biblio->{biblionumber}, $frameworkcode) if $confirm;
185	$count++;
186	$lastnumber = $biblio->{biblionumber};
187	}
188	print "last processed biblio $lastnumber\n";
189	print "$count biblios processed!\n";
190	if ($count eq $params->{chunks}) {
191	$pageCount++;
192	$params->{page} = $pageCount;
193	} else {
194	$pageCount = 0;
195	}
196	}
197
198	sub biblios {
199	my ($params) = @_;
200	print "Starting to change offset $params->{page}!\n";
201	my $biblios = Koha::Biblio::Metadatas->search({format => 'marcxml', schema => $schema},
202	{
203	page => $params->{page},
204	rows => $params->{chunks}
205	}
206	)->unblessed;
207
208	return $biblios;
209
210	}

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Authorities.t (-7 / +50 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 7;	22	use Test::More tests => 8;
23	use MARC::Field;	23	use MARC::Field;
24	use MARC::File::XML;	24	use MARC::File::XML;
25	use MARC::Record;	25	use MARC::Record;
Lines 129-135 subtest 'Testing reporting_tag_xml in MergeRequest' => sub { Link Here
129	);	129	);
130	};	130	};
131		131
132	subtest 'Trivial tests for get_usage_count and linked_biblionumbers' => sub {	132	subtest 'Trivial tests for get_usage_count and linked_biblionumbers with UNIMARC' => sub {
133	plan tests => 5;	133	plan tests => 5;
134		134
135	# NOTE: We are not testing $searcher->simple_search_compat here. Suppose	135	# NOTE: We are not testing $searcher->simple_search_compat here. Suppose
Lines 137-142 subtest 'Trivial tests for get_usage_count and linked_biblionumbers' => sub { Link Here
137	# So we're just testing the 'wrapper' here.	137	# So we're just testing the 'wrapper' here.
138		138
139	my ( $mods, $koha_fields );	139	my ( $mods, $koha_fields );
		140	t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );
		141	t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
		142	$mods->{zebra} = Test::MockModule->new( 'Koha::SearchEngine::Zebra::Search' );
		143	$mods->{elastic} = Test::MockModule->new( 'Koha::SearchEngine::Elasticsearch::Search' );
		144	$mods->{biblio} = Test::MockModule->new( 'C4::Biblio' );
		145	$mods->{zebra}->mock( 'simple_search_compat', \&simple_search_compat );
		146	$mods->{elastic}->mock( 'simple_search_compat', \&simple_search_compat );
		147	$mods->{biblio}->mock( 'GetMarcFromKohaField', sub { return @$koha_fields; });
		148
		149	my $auth1 = $builder->build({ source => 'AuthHeader' });
		150	$auth1 = Koha::Authorities->find( $auth1->{authid} );
		151
		152	# Test error condition
		153	my $count;
		154	$search_compat_pars = [ 0, 'some_error' ];
		155	warning_like { $count = $auth1->get_usage_count }
		156	qr/some_error/, 'Catch warn of simple_search_compat';
		157	is( $count, undef, 'Undef returned when error encountered' );
		158
		159	# Simple test with some results; one result discarded in the 2nd test
		160	$search_compat_pars = [ 1 ];
		161	$koha_fields = [ '001', '' ];
		162	is( $auth1->get_usage_count, 3, 'Three results expected (Zebra)' );
		163	cmp_deeply( [ $auth1->linked_biblionumbers ], [ 1001, 3003 ],
		164	'linked_biblionumbers should ignore record without biblionumber' );
		165
		166	# And a simple test with Elastic
		167	t::lib::Mocks::mock_preference('SearchEngine', 'Elasticsearch');
		168	cmp_deeply( [ $auth1->linked_biblionumbers ], [ 2001 ],
		169	'linked_biblionumbers with Elasticsearch' );
		170	t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
		171	};
		172
		173	subtest 'Trivial tests for get_usage_count and linked_biblionumbers with MARC21' => sub {
		174	plan tests => 5;
		175
		176	# NOTE: We are not testing $searcher->simple_search_compat here. Suppose
		177	# that should be done in t/db../Koha/SearchEngine?
		178	# So we're just testing the 'wrapper' here.
		179
		180	my ( $mods, $koha_fields );
		181	t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
140	t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');	182	t::lib::Mocks::mock_preference('SearchEngine', 'Zebra');
141	$mods->{zebra} = Test::MockModule->new( 'Koha::SearchEngine::Zebra::Search' );	183	$mods->{zebra} = Test::MockModule->new( 'Koha::SearchEngine::Zebra::Search' );
142	$mods->{elastic} = Test::MockModule->new( 'Koha::SearchEngine::Elasticsearch::Search' );	184	$mods->{elastic} = Test::MockModule->new( 'Koha::SearchEngine::Elasticsearch::Search' );
Lines 200-222 unimarc,*,ind1:auth2,ind2:auth1\|); Link Here
200	};	242	};
201		243
202	sub simple_search_compat {	244	sub simple_search_compat {
		245	my $authsubfield = Koha::Authorities->authority_linking_subfield;
203	if( $search_compat_pars->[0] == 0 ) {	246	if( $search_compat_pars->[0] == 0 ) {
204	return ( $search_compat_pars->[1], [], 0 );	247	return ( $search_compat_pars->[1], [], 0 );
205	} elsif( $search_compat_pars->[0] == 1 ) {	248	} elsif( $search_compat_pars->[0] == 1 ) {
206	my $records = C4::Context->preference('SearchEngine') eq 'Zebra'	249	my $records = C4::Context->preference('SearchEngine') eq 'Zebra'
207	? few_marcxml_records()	250	? few_marcxml_records($authsubfield)
208	: few_marc_records();	251	: few_marc_records();
209	return ( undef, $records, scalar @$records );	252	return ( undef, $records, scalar @$records );
210	}	253	}
211	}	254	}
212		255
213	sub few_marcxml_records {	256	sub few_marcxml_records {
		257	my ($authsubfield) = @_;
214	return [	258	return [
215	q\|<?xml version="1.0" encoding="UTF-8"?>	259	q\|<?xml version="1.0" encoding="UTF-8"?>
216	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">	260	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
217	<controlfield tag="001">1001</controlfield>	261	<controlfield tag="001">1001</controlfield>
218	<datafield tag="110" ind1=" " ind2=" ">	262	<datafield tag="110" ind1=" " ind2=" ">
219	<subfield code="9">102</subfield>	263	<subfield code="$authsubfield">102</subfield>
220	<subfield code="a">My Corporation</subfield>	264	<subfield code="a">My Corporation</subfield>
221	</datafield>	265	</datafield>
222	</record>\|,	266	</record>\|,
Lines 224-230 q\|<?xml version="1.0" encoding="UTF-8"?> Link Here
224	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">	268	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
225	<!-- No biblionumber here -->	269	<!-- No biblionumber here -->
226	<datafield tag="610" ind1=" " ind2=" ">	270	<datafield tag="610" ind1=" " ind2=" ">
227	<subfield code="9">112</subfield>	271	<subfield code="$authsubfield">112</subfield>
228	<subfield code="a">Another Corporation</subfield>	272	<subfield code="a">Another Corporation</subfield>
229	</datafield>	273	</datafield>
230	</record>\|,	274	</record>\|,
Lines 232-238 q\|<?xml version="1.0" encoding="UTF-8"?> Link Here
232	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">	276	<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.loc.gov/MARC21/slim" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd">
233	<controlfield tag="001">3003</controlfield>	277	<controlfield tag="001">3003</controlfield>
234	<datafield tag="110" ind1=" " ind2=" ">	278	<datafield tag="110" ind1=" " ind2=" ">
235	<subfield code="9">102</subfield>	279	<subfield code="$authsubfield">102</subfield>
236	<subfield code="a">My Corporation</subfield>	280	<subfield code="a">My Corporation</subfield>
237	</datafield>	281	</datafield>
238	</record>\|	282	</record>\|
239	-