[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,