From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 13 Sep 2013 16:49:59 +0000 (+0200)
Subject: import NUMTAG data
X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=commitdiff_plain;h=f38a1bfdcec11795747621e5f29e6cdeef5dce7b

import NUMTAG data
---

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 20db8e0..50ae051 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -91,6 +91,16 @@ csv_file( 'tsv/TEKTAG.csv', sub {
 	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;