import NUMTAG data

[crolist2marc] / crolist2marc.pl

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;