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

This commit is contained in:
tipaul 2002-10-11 13:35:10 +00:00
parent 484df09804
commit 4ebff7b4a0

View file

@ -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",