use Modern::Perl;

return {

    bug_number  => "38142",

    description => "LanguageToReportOnMerge",

    up          => sub {

        my ($args) = @_;

        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(

            q{

            INSERT IGNORE INTO systempreferences (variable, value, options, explanation, type) VALUES

           ('LanguageToReportOnMerge','','','If set, the authority field having the given language code in its $7 subfield will be reported to the bibliographic record if it exists, rather than the first field. The code can be in a short, 2 characters long form (example: ba for latin) or in a long, 8 characters long form, with the short form in position 5 and 6 starting from 1 (example: ba0yba0y for latin). A list of available codes can be found here: https://documentation.abes.fr/sudoc/formats/unmb/DonneesCodees/CodesZone104.htm#$d','Free');

        }

        );

        say $out "Added new syspref 'LanguageToReportOnMerge'";

    }

};

('LanguageToReportOnMerge','',NULL,'If set, the authority field having the given language code in its $7 subfield will be reported to the bibliographic record if it exists, rather than the first field. The code can be in a short, 2 characters long form (example: ba for latin) or in a long, 8 characters long form, with the short form in position 5 and 6 starting from 1 (example: ba0yba0y for latin). A list of available codes can be found here: https://documentation.abes.fr/sudoc/formats/unmb/DonneesCodees/CodesZone104.htm#$d','Free'),

        -

            - "If set, the authority field having the given language code in its $7 subfield will be reported to the bibliographic record if it exists, rather than the first field. The code can be in a short, 2 characters long form (example: ba for latin) or in a long, 8 characters long form, with the short form in position 5 and 6 starting from 1 (example: ba0yba0y for latin). A list of available codes can be found here: https://documentation.abes.fr/sudoc/formats/unmb/DonneesCodees/CodesZone104.htm#$d"

            - pref: LanguageToReportOnMerge

subtest 'Test merge A1 to B1 (choosing language)' => sub {

    plan tests => 4;

    t::lib::Mocks::mock_preference( 'LanguageToReportOnMerge', '' );

    my $auth1 = MARC::Record->new;

    $auth1->append_fields(

        MARC::Field->new( '109', '0', '0', 'a' => 'language da', '7' => 'da' ),

        MARC::Field->new( '109', '0', '0', 'a' => 'language ba', '7' => 'ba' ),

    );

    my $authid1 = AddAuthority( $auth1, undef, $authtype1 );

    my $marc = MARC::Record->new;

    $marc->append_fields(

        MARC::Field->new( '003', 'some_003' ),

        MARC::Field->new( '245', '', '', a => 'My title' ),

        MARC::Field->new( '609', '', '', a => 'language ba', '7' => 'ba', 9 => $authid1 ),

    );

    my ($biblionumber) = C4::Biblio::AddBiblio( $marc, '' );

    @linkedrecords = ($biblionumber);

    C4::AuthoritiesMarc::merge( { mergefrom => $authid1, MARCfrom => $auth1, mergeto => $authid1, MARCto => $auth1 } );

    my $biblio = Koha::Biblios->find($biblionumber)->metadata->record;

    is(

        $biblio->subfield( '609', 'a' ), 'language da',

        'When LanguageToReportOnMerge is not set, the first authority field is used'

    );

    t::lib::Mocks::mock_preference( 'LanguageToReportOnMerge', 'ba' );

    C4::AuthoritiesMarc::merge( { mergefrom => $authid1, MARCfrom => $auth1, mergeto => $authid1, MARCto => $auth1 } );

    $biblio = Koha::Biblios->find($biblionumber)->metadata->record;

    is(

        $biblio->subfield( '609', 'a' ), 'language ba',

        'When LanguageToReportOnMerge is set, the field with the matching language is reported'

    );

    t::lib::Mocks::mock_preference( 'LanguageToReportOnMerge', 'xx' );

    C4::AuthoritiesMarc::merge( { mergefrom => $authid1, MARCfrom => $auth1, mergeto => $authid1, MARCto => $auth1 } );

    $biblio = Koha::Biblios->find($biblionumber)->metadata->record;

    is(

        $biblio->subfield( '609', 'a' ), 'language da',

        'When LanguageToReportOnMerge is set to a value that does not exist in the authority, the first authority field is used'

    );

    # Long form of lang code

    t::lib::Mocks::mock_preference( 'LanguageToReportOnMerge', 'ba' );

    my $auth2 = MARC::Record->new;

    $auth2->append_fields(

        MARC::Field->new( '109', '0', '0', 'a' => 'language da (long form)', '7' => 'ba0yda0y' ),

        MARC::Field->new( '109', '0', '0', 'a' => 'language ba (long form)', '7' => 'ba0yba0y' ),

    );

    my $authid2 = AddAuthority( $auth2, undef, $authtype1 );

    $marc = MARC::Record->new;

    $marc->append_fields(

        MARC::Field->new( '003', 'some_003' ),

        MARC::Field->new( '245', '', '', a => 'My title' ),

        MARC::Field->new( '609', '', '', a => 'language ba', '7' => 'ba', 9 => $authid2 ),

    );

    my ($biblionumber2) = C4::Biblio::AddBiblio( $marc, '' );

    @linkedrecords = ($biblionumber2);

    C4::AuthoritiesMarc::merge( { mergefrom => $authid2, MARCfrom => $auth2, mergeto => $authid2, MARCto => $auth2 } );

    my $biblio2 = Koha::Biblios->find($biblionumber2)->metadata->record;

    is(

        $biblio2->subfield( '609', 'a' ), 'language ba (long form)',

        'When LanguageToReportOnMerge is set, the field with the matching language in its long form is reported'

    );

};