projects
/
crolist2marc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3a66d36
)
CROASCII (YUS|HRN) B1.002:1982
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 12 Sep 2013 11:58:52 +0000
(13:58 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 12 Sep 2013 11:58:52 +0000
(13:58 +0200)
crolist2marc.pl
patch
|
blob
|
history
diff --git
a/crolist2marc.pl
b/crolist2marc.pl
index
a233047
..
56a54f2
100755
(executable)
--- a/
crolist2marc.pl
+++ b/
crolist2marc.pl
@@
-5,6
+5,7
@@
use autodie;
use MARC::Record;
use Data::Dump qw(dump);
use MARC::Record;
use Data::Dump qw(dump);
+use utf8;
my $data;
my $data;
@@
-25,10
+26,13
@@
while(<$fh>) {
$sfi =~ s/^\$// || die "can't fix subfield [$sfi]";
$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 ]->[ 0 ] = $i1;
$data->{$idsl}->{$tag}->[ $tagno ]->[ 1 ] = $i2;
$data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 2 ] = $sfi;
- $data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 3 ] = $text
key . $textres
;
+ $data->{$idsl}->{$tag}->[ $tagno ]->[ ( $sfino * 2 ) + 3 ] = $text;
# last if $lines++ > 5000;
}
# last if $lines++ > 5000;
}