From 4ebff7b4a05b9faac0f477e17fb3844f884c481a Mon Sep 17 00:00:00 2001
From: tipaul <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/\<a href.*\<\/a\>//g;
-	    $reqsubfield->execute(
+		my @temp = split /\./,$description;
+		$description = $temp[0];
+	 	$reqsubfield->execute(
 				  $tag,
 				  $subfield,
 				  $description?$description:"Unknown",