projects
/
crolist2marc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
98affe0
)
import NUMTAG data
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 13 Sep 2013 16:49:59 +0000
(18:49 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 13 Sep 2013 16:49:59 +0000
(18:49 +0200)
crolist2marc.pl
patch
|
blob
|
history
diff --git
a/crolist2marc.pl
b/crolist2marc.pl
index
20db8e0
..
50ae051
100755
(executable)
--- a/
crolist2marc.pl
+++ b/
crolist2marc.pl
@@
-91,6
+91,16
@@
csv_file( 'tsv/TEKTAG.csv', sub {
return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
});
return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
});
+csv_file( 'tsv/NUMTAG.csv', sub {
+ my $line = shift;
+
+ my ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $LTAG, $LTAGNO, $LID, $LSFI, $TXKEY, $TXRES, $VC, $STOPW ) = split(/\t/,$_);
+
+ my $text = vc_casefix( $VC, $TXKEY, $TXRES );
+
+ return ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $text );
+});
+
csv_file( 'tsv/LONTAG.csv', sub {
my $line = shift;
csv_file( 'tsv/LONTAG.csv', sub {
my $line = shift;