From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Sep 2013 11:58:52 +0000 (+0200)
Subject: CROASCII (YUS|HRN) B1.002:1982
X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=commitdiff_plain;h=d919adf8f94e3ec21ff20ff2d26d48dc4476531a;hp=3a66d36447654ed85fe2d08dce5e8cea15a1f04d

CROASCII (YUS|HRN) B1.002:1982
---

diff --git a/crolist2marc.pl b/crolist2marc.pl
index a233047..56a54f2 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -5,6 +5,7 @@ use autodie;
 
 use MARC::Record;
 use Data::Dump qw(dump);
+use utf8;
 
 my $data;
 
@@ -25,10 +26,13 @@ while(<$fh>) {
 
 	$sfi =~ s/^\$// || die "can't fix subfield [$sfi]";
 
+	my $text = $textkey . $textres; # FIXME fix CAPITAL letters in $textkey
+	$text =~ tr/^~]}\|[{@`/ČčĆćĐ𩹮ž/; # CROASCII (YUS|HRN) B1.002:1982
+
 	$data->{$idsl}->{$tag}->[ $tagno ]->[ 0 ] = $i1;
 	$data->{$idsl}->{$tag}->[ $tagno ]->[ 1 ] = $i2;
 	$data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 2 ] = $sfi;
-	$data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 3 ] = $textkey . $textres;
+	$data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 3 ] = $text;
 
 #	last if $lines++ > 5000;
 }