[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.8,1.9

[Paul POULAIN]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv20198

Modified Files:
	fill_usmarc.pl 
Log Message:
minor improvment : loads only the 1st sentence. Thus, avoid  lllooonnnggg descriptions

Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** fill_usmarc.pl	9 Oct 2002 16:00:26 -0000	1.8
--- fill_usmarc.pl	11 Oct 2002 13:35:10 -0000	1.9
***************
*** 46,50 ****
  	    }
  		$description  =~ s/\<a href.*\<\/a\>//g;
! 	    $reqsubfield->execute(
  				  $tag,
  				  $subfield,
--- 46,52 ----
  	    }
  		$description  =~ s/\<a href.*\<\/a\>//g;
! 		my @temp = split /\./,$description;
! 		$description = $temp[0];
! 	 	$reqsubfield->execute(
  				  $tag,
  				  $subfield,