X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=blobdiff_plain;f=crolist2marc.pl;h=39eb02885cb43f6a7ead227c9586fa1e18523c0a;hp=b3670fb6308e10e08a0549f0739dbf59a1ce3e83;hb=aa91fb3e8dfa676159100b20c0374cca84ccd886;hpb=66917084e6cdee5882224dbcdb1bcee7942bc0e6

diff --git a/crolist2marc.pl b/crolist2marc.pl
index b3670fb..39eb028 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -48,31 +48,31 @@ sub csv_file {
 	print STDERR "\n";
 }
 
-csv_file( 'TEKTAG.csv', sub {
+csv_file( 'tsv/TEKTAG.csv', sub {
 	my $line = shift;
 
-	my ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $textkey, $textres ) = split(/,/,$_);
+	my ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $textkey, $textres ) = split(/\t/,$_);
 
 	my $text = $textkey . $textres; # FIXME fix CAPITAL letters in $textkey
 
 	return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
 });
 
-csv_file( 'LONTAG.csv', sub {
+csv_file( 'tsv/LONTAG.csv', sub {
 	my $line = shift;
 
-	my ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text ) = split(/;/,$_, 7);
+	my ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text ) = split(/\t/,$_, 7);
 
-	$text =~ s/;+$//;
-	$text =~ s/;/\n/g; # join OPIS[1-11]
+	$text =~ s/\t+$//;
+	$text =~ s/\t/\n/g; # join OPIS[1-11]
 
 	return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
 });
 
-csv_file( 'IDNTAG.csv', sub {
+csv_file( 'tsv/IDNTAG.csv', sub {
 	my $line = shift;
 
-	my ( $idsl, $tag, $STSL, $KZVS, $BIBRAZ, $HIRAZ, $KPS, $OKO ) = split(/,/,$_);
+	my ( $idsl, $tag, $STSL, $KZVS, $BIBRAZ, $HIRAZ, $KPS, $OKO ) = split(/\t/,$_);
 
 	my @leader;
 	$leader[5] = $STSL;
@@ -89,10 +89,10 @@ csv_file( 'IDNTAG.csv', sub {
 	return;
 });
 
-csv_file( 'OBRTAG.csv', sub {
+csv_file( 'tsv/OBRTAG.csv', sub {
 	my $line = shift;
 
-	my ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $CODINF ) = split(/,/,$_);
+	my ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $CODINF ) = split(/\t/,$_);
 	return ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $CODINF );
 });