5 use Encode qw( encode );
6 use Test::More tests => 2;
10 use Koha::MarcSubfieldStructures;
11 use C4::Biblio qw( GetMarcFromKohaField TransformHtmlToMarc );
13 our ( $biblionumbertagfield, $biblionumbertagsubfield );
14 my $schema = Koha::Database->new->schema;
15 $schema->storage->txn_begin;
17 # Move field for biblionumber to imaginary 399
18 Koha::MarcSubfieldStructures->search({ frameworkcode => '', kohafield => 'biblio.biblionumber' })->delete;
19 Koha::MarcSubfieldStructures->search({ frameworkcode => '', tagfield => '399', tagsubfield => 'a' })->delete;
20 Koha::MarcSubfieldStructure->new({ frameworkcode => '', tagfield => '399', tagsubfield => 'a', kohafield => "biblio.biblionumber" })->store;
21 Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
22 ( $biblionumbertagfield, $biblionumbertagsubfield ) = C4::Biblio::GetMarcFromKohaField( "biblio.biblionumber" );
24 subtest 'Biblio record' => sub {
26 my $leader = '00203nam a2200097 4500';
28 $input->param( -name => 'biblionumber', -value => '42' );
29 $input->param( -name => 'tag_000_indicator1_570367553534', -value => '' );
30 $input->param( -name => 'tag_000_indicator2_570367553534', -value => '' );
31 $input->param( -name => 'tag_000_code_00_570367_810561', -value => '' );
32 $input->param( -name => 'tag_000_subfield_00_570367_810561', -value => $leader );
33 $input->param( -name => 'tag_010_indicator1_493056', -value => '' );
34 $input->param( -name => 'tag_010_indicator2_493056', -value => '' );
35 $input->param( -name => 'tag_010_code_a_493056_296409', -value => 'a' );
36 $input->param( -name => 'tag_010_subfield_a_493056_296409', -value => Encode::encode( 'utf-8', "first isbn é" ) );
37 $input->param( -name => 'tag_010_indicator1_49305613979', -value => '' );
38 $input->param( -name => 'tag_010_indicator2_49305613979', -value => '' );
39 $input->param( -name => 'tag_010_code_a_493056_29640913979', -value => 'a' );
40 $input->param( -name => 'tag_010_subfield_a_493056_29640913979', -value => Encode::encode( 'utf-8', "second isbn à" ) ); # 2 010 fields
41 $input->param( -name => 'tag_100_indicator1_588794844868', -value => '' );
42 $input->param( -name => 'tag_100_indicator2_588794844868', -value => '' );
43 $input->param( -name => 'tag_100_code_a_588794_15537', -value => 'a' );
44 $input->param( -name => 'tag_100_subfield_a_588794_15537', -value => '20160112d u||y0frey5050 ba' );
45 $input->param( -name => 'tag_200_indicator1_593269251146', -value => '' );
46 $input->param( -name => 'tag_200_indicator2_593269251146', -value => '' );
47 $input->param( -name => 'tag_200_code_a_593269_944056', -value => 'a' );
48 $input->param( -name => 'tag_200_subfield_a_593269_944056', -value => 'first title' ); # 2 200$a in the same field
49 $input->param( -name => 'tag_200_code_a_593269_94405618065', -value => 'a' );
50 $input->param( -name => 'tag_200_subfield_a_593269_94405618065', -value => 'second title' );
51 $input->param( -name => 'tag_200_code_b_593269_250538', -value => 'b' );
52 $input->param( -name => 'tag_200_subfield_b_593269_250538', -value => 'DVD' );
53 $input->param( -name => 'tag_200_code_f_593269_445603', -value => 'f' );
54 $input->param( -name => 'tag_200_subfield_f_593269_445603', -value => 'author' );
55 $input->param( -name => 'tag_200_code_h_593269_616594', -value => 'h' ); # Empty field
56 $input->param( -name => 'tag_200_subfield_h_593269_616594', -value => '' );
58 # Add a field 390 before our 399
59 $input->param( -name => "tag_390_indicator1_123", -value => "" );
60 $input->param( -name => "tag_390_indicator2_123", -value => "" );
61 $input->param( -name => "tag_390_code_a_123", -value => 'a' );
62 $input->param( -name => "tag_390_subfield_a_123", -value => '390a' );
64 # Our imaginary biblionumber field in 399
65 $input->param( -name => "tag_${biblionumbertagfield}_indicator1_588794844868", -value => "" );
66 $input->param( -name => "tag_${biblionumbertagfield}_indicator2_588794844868", -value => "" );
67 $input->param( -name => "tag_${biblionumbertagfield}_code_${biblionumbertagsubfield}_588794_784323", -value => $biblionumbertagsubfield );
68 $input->param( -name => "tag_${biblionumbertagfield}_subfield_${biblionumbertagsubfield}_588794_784323", -value => $biblionumbertagfield );
70 # A field (490) after 399
71 $input->param( -name => "tag_490_indicator1_1123", -value => "" );
72 $input->param( -name => "tag_490_indicator2_1123", -value => "" );
73 $input->param( -name => "tag_490_code_b_1123", -value => 'b' );
74 $input->param( -name => "tag_490_subfield_b_1123", -value => '490b' );
76 # A field (900) after 490
77 $input->param( -name => "tag_900_indicator1_1123", -value => "" );
78 $input->param( -name => "tag_900_indicator2_1123", -value => "" );
79 $input->param( -name => "tag_900_code_a_1123", -value => 'a' );
80 $input->param( -name => "tag_900_subfield_a_1123", -value => "This string has bad \x{1B}characters in it" );
82 my $record = C4::Biblio::TransformHtmlToMarc($input, 1);
84 my @all_fields = $record->fields;
85 is( @all_fields, 8, 'The record should have been created with 8 fields' );
86 # biblionumber + 2x010 + 100 + 200 + 390 + 490
87 my @fields_010 = $record->field('010');
88 is( @fields_010, 2, 'The record should have been created with 2 010' );
89 my @fields_100 = $record->field('100');
90 is( @fields_100, 1, 'The record should have been created with 1 100' );
91 my @fields_200 = $record->field('200');
92 is( @fields_200, 1, 'The record should have been created with 1 200' );
94 is_deeply( $fields_010[0]->subfields(), [ 'a', 'first isbn é' ], 'The first isbn should be correct' );
95 is_deeply( $fields_010[1]->subfields(), [ 'a', 'second isbn à' ], 'The second isbn should be correct' );
97 my @subfields_200_a = $record->subfield( 200, 'a' );
98 is( @subfields_200_a, 2, 'The record should have been created with 2 200$a' );
99 is_deeply( \@subfields_200_a, [ 'first title', 'second title' ], 'The 2 titles should have been kept in the correct order' );
101 my @fields_900 = $record->field('900');
102 is( @fields_900, 1, 'The record should have been created with 1 900' );
104 $fields_900[0]->subfields(), [ 'a', 'This string has bad characters in it' ],
105 'Field 900 had its non-XML characters stripped'
108 my @subfields_biblionumber = $record->subfield( $biblionumbertagfield, $biblionumbertagsubfield );
109 is( @subfields_biblionumber, 1, 'The record should contain only one biblionumber field' );
111 is( $record->leader, $leader, 'The leader should have been kept' );
113 # Check the order of some fields
114 is( $all_fields[0]->tag, '010', 'First field expected 010' );
115 is( $all_fields[1]->tag, '010', 'Second field also 010' );
116 is( $all_fields[2]->tag, '100', 'Third field is 100' );
117 is( $all_fields[3]->tag, '200', 'Fourth field is 200' );
118 is( $all_fields[4]->tag, '390', 'Fifth field is 390' );
119 is( $all_fields[5]->subfield('a'), 42, 'Sixth field contains bibnumber' );
120 is( $all_fields[6]->tag, '490', 'Last field is 490' );
122 my $new_record = eval { MARC::Record::new_from_xml( $record->as_xml(), 'UTF-8' ); };
123 my $record_error = $@;
124 ok( !$record_error, 'No errors parsing MARCXML generated by TransformHtmlToMarc' );
128 subtest 'Add authority record' => sub {
131 my $input = CGI->new;
132 $input->param( -name => 'tag_200_indicator1_906288', -value => '' );
133 $input->param( -name => 'tag_200_indicator2_906288', -value => '' );
134 $input->param( -name => 'tag_200_code_a_906288_722171', -value => 'a' );
135 $input->param( -name => 'tag_200_subfield_a_906288_722171', -value => 'a 200$a' );
136 $input->param( -name => 'tag_200_code_b_906288_611549', -value => 'b' );
137 $input->param( -name => 'tag_200_subfield_b_906288_611549', -value => 'a 200$b' );
138 $input->param( -name => "tag_${biblionumbertagfield}_indicator1_198510", -value => "" );
139 $input->param( -name => "tag_${biblionumbertagfield}_indicator2_198510", -value => "" );
140 $input->param( -name => "tag_${biblionumbertagfield}_code_${biblionumbertagsubfield}_198510_886205", -value => $biblionumbertagsubfield );
141 $input->param( -name => "tag_${biblionumbertagfield}_subfield_${biblionumbertagsubfield}_198510_886205", -value => "a biblionumber which is not a biblionumber" );
143 my $record = C4::Biblio::TransformHtmlToMarc($input, 0);
145 my @subfields_biblionumber = $record->subfield( $biblionumbertagfield, $biblionumbertagsubfield );
146 is( @subfields_biblionumber, 1, 'The record should contain the field which are mapped to biblio.biblionumber' );
149 Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
150 $schema->storage->txn_rollback;