X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=blobdiff_plain;f=crolist2marc.pl;h=50ae051afa6e8034de29a01d3559f564265bb6da;hp=20db8e09ce3fb9bd2251b6714df2fe64dac77d82;hb=f38a1bfdcec11795747621e5f29e6cdeef5dce7b;hpb=98affe08c0b1d68d84962b40046f95ed2c85e746

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;