minor improvment : loads only the 1st sentence. Thus, avoid lllooonnnggg descriptions

diff --git a/marc/fill_usmarc.pl b/marc/fill_usmarc.pl
index 2cec9da..e2bbc25 100755 (executable)
--- 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/\<a href.*\<\/a\>//g;
-           $reqsubfield->execute(
+               my @temp = split /\./,$description;
+               $description = $temp[0];
+               $reqsubfield->execute(
                                  $tag,
                                  $subfield,
                                  $description?$description:"Unknown",