#!/usr/bin/perl

use Modern::Perl;
use CGI;
use Encode qw( encode );
use Test::More tests => 1;

use C4::Biblio;

my ( $biblionumbertagfield, $biblionumbertagsubfield ) = C4::Biblio::GetMarcFromKohaField( "biblio.biblionumber", '' );
my $leader = '00203nam a2200097   4500';
my $input  = CGI->new;
$input->param( -name => 'biblionumber',                                        -value => '42' );
$input->param( -name => 'tag_000_indicator1_570367553534',                     -value => '' );
$input->param( -name => 'tag_000_indicator2_570367553534',                     -value => '' );
$input->param( -name => 'tag_000_code_00_570367_810561',                       -value => '' );
$input->param( -name => 'tag_000_subfield_00_570367_810561',                   -value => $leader );
$input->param( -name => 'tag_010_indicator1_493056',                           -value => '' );
$input->param( -name => 'tag_010_indicator2_493056',                           -value => '' );
$input->param( -name => 'tag_010_code_a_493056_296409',                        -value => 'a' );
$input->param( -name => 'tag_010_subfield_a_493056_296409',                    -value => Encode::encode( 'utf-8', "first isbn é" ) );
$input->param( -name => 'tag_100_indicator2_588794844868',                     -value => '' );
$input->param( -name => 'tag_100_code_a_588794_15537',                         -value => 'a' );
$input->param( -name => 'tag_100_subfield_a_588794_15537',                     -value => '20160112d        u||y0frey5050    ba' );
$input->param( -name => 'tag_200_indicator1_593269251146',                     -value => '' );
$input->param( -name => 'tag_200_indicator2_593269251146',                     -value => '' );
$input->param( -name => 'tag_200_code_a_593269_944056',                        -value => 'a' );
$input->param( -name => 'tag_200_subfield_a_593269_944056',                    -value => 'first title' );                                  # 2 200$a in the same field
$input->param( -name => 'tag_200_code_a_593269_94405618065',                   -value => 'a' );
$input->param( -name => 'tag_200_subfield_a_593269_94405618065',               -value => 'second title' );
$input->param( -name => 'tag_200_code_b_593269_250538',                        -value => 'b' );
$input->param( -name => 'tag_200_subfield_b_593269_250538',                    -value => 'DVD' );
$input->param( -name => 'tag_200_code_f_593269_445603',                        -value => 'f' );


my $record = C4::Biblio::TransformHtmlToMarc($input, 1);

my @all_fields = $record->fields;
isnt($all_fields[0]->tag, 999, 'First tag should not be 999');
