From 4ebff7b4a05b9faac0f477e17fb3844f884c481a Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 11 Oct 2002 13:35:10 +0000 Subject: [PATCH] minor improvment : loads only the 1st sentence. Thus, avoid lllooonnnggg descriptions --- marc/fill_usmarc.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/marc/fill_usmarc.pl b/marc/fill_usmarc.pl index 2cec9da7a9..e2bbc251a0 100755 --- a/marc/fill_usmarc.pl +++ b/marc/fill_usmarc.pl @@ -45,7 +45,9 @@ foreach $tag (sort keys %$fields) { $description=$fields->{$tag}->{"subfields"}->{$subfield}->{"name"}; } $description =~ s/\//g; - $reqsubfield->execute( + my @temp = split /\./,$description; + $description = $temp[0]; + $reqsubfield->execute( $tag, $subfield, $description?$description:"Unknown", -- 2.39.5