|
Lines 33-46
sub run_tests {
Link Here
|
| 33 |
|
33 |
|
| 34 |
my ( $tags, $subfields ); |
34 |
my ( $tags, $subfields ); |
| 35 |
if ( $marc_flavour eq 'UNIMARC' ) { |
35 |
if ( $marc_flavour eq 'UNIMARC' ) { |
| 36 |
$tags= [ '001', '600', '200', '200' ]; |
36 |
$tags= [ '001', '600', '200', '200', '400' ]; |
| 37 |
$subfields = [ '', 'a', 'a', 'c' ]; |
37 |
$subfields = [ '', 'a', 'a', 'c', 'a' ]; |
| 38 |
} else { |
38 |
} else { |
| 39 |
$tags= [ '001', '100', '245', '245' ]; |
39 |
$tags= [ '001', '100', '245', '245', '400' ]; |
| 40 |
$subfields = [ '', 'a', 'a', 'c' ]; |
40 |
$subfields = [ '', 'a', 'a', 'c', 'a' ]; |
| 41 |
} |
41 |
} |
| 42 |
my $values = [ '12345', 'author', 'title', 'resp' ]; |
42 |
my $values = [ '12345', 'author', 'title', 'resp', '' ]; |
| 43 |
my $ind = [ ' ', '00', ' 9', ' ' ]; |
43 |
my $ind = [ ' ', '00', ' 9', ' ', ' ' ]; |
| 44 |
|
44 |
|
| 45 |
my $xml = TransformHtmlToXml( $tags, $subfields, $values, $ind, undef, $marc_flavour ); |
45 |
my $xml = TransformHtmlToXml( $tags, $subfields, $values, $ind, undef, $marc_flavour ); |
| 46 |
my $xmlh = XML::Simple->new->XMLin( $xml ); |
46 |
my $xmlh = XML::Simple->new->XMLin( $xml ); |
| 47 |
- |
|
|