Lines 87-95
$marcxml_utf8 =~ s/\n//g;
Link Here
|
87 |
my $error; my $marc; my $marcxml; my $dcxml; # some scalars to store values |
87 |
my $error; my $marc; my $marcxml; my $dcxml; # some scalars to store values |
88 |
## MARC to MARCXML |
88 |
## MARC to MARCXML |
89 |
print "\n1. Checking conversion of simple ISO-2709 (MARC21) records to MARCXML\n"; |
89 |
print "\n1. Checking conversion of simple ISO-2709 (MARC21) records to MARCXML\n"; |
90 |
ok (($error,$marcxml) = marc2marcxml($marc21_marc8,'UTF-8','MARC21'), 'marc2marcxml - from MARC-8 to UTF-8 (MARC21)'); |
90 |
ok (($error,$marcxml) = marc2marcxml($marc21_marc8,'UTF-8','MARC21'), 'marc2marcxml - from MARC-8 to UTF-8 (MARC21)'); |
91 |
ok (!$error, 'no errors in conversion'); |
91 |
ok (!$error, 'no errors in conversion'); |
92 |
$marcxml =~ s/\n//g; |
92 |
$marcxml =~ s/\n//g; |
93 |
$marcxml =~ s/v\/ s/v\/s/g; # FIXME: bug in new_from_xml_record!! |
93 |
$marcxml =~ s/v\/ s/v\/s/g; # FIXME: bug in new_from_xml_record!! |
94 |
is ($marcxml,$marcxml_utf8, 'record matches antitype'); |
94 |
is ($marcxml,$marcxml_utf8, 'record matches antitype'); |
95 |
|
95 |
|