gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(bug #2829) fix some mistakes extracting editor segment 

This patch fix how to extract the editor segment, and improve ISBN10/13 support.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Nahuel ANGELINETTI 2009-08-19 15:22:24 +02:00 committed by Galen Charlton
parent 0f3e4ae601
commit b93b407f64
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
cataloguing/value_builder/unimarc_field_010.pl
View File

@ -92,19 +92,24 @@ sub plugin {
my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE isbn LIKE ? OR isbn LIKE ? LIMIT 1');
if (length ($isbn) == 13){
$isbn = substr(3, length($isbn));
$isbn = substr($isbn, 3, length($isbn)-3);
}
if(length($isbn) <= 10){
if(length($isbn) <=10){
$len = 5;
$len = 1 if ( substr( $isbn, 0, 1 ) <= 7 );
$len = 2 if ( substr( $isbn, 0, 2 ) <= 94 );
$len = 3 if ( substr( $isbn, 0, 3 ) <= 995 );
$len = 4 if ( substr( $isbn, 0, 4 ) <= 9989 );
if ( substr( $isbn, 0, 1 ) <= 7 ){
$len = 1;
}elsif ( substr( $isbn, 0, 2 ) <= 94 ){
$len = 2;
}elsif ( substr( $isbn, 0, 3 ) <= 995 ){
$len = 3;
}elsif ( substr( $isbn, 0, 4 ) <= 9989 ){
$len = 4 ;
}
my $x = substr( $isbn, $len );
my $seg2 = "";
my $seg3 = "";
if ( substr( $x, 0, 2 ) <= 19 ) {
$seg2 = substr( $x, 0, 2 );
@ -128,10 +133,14 @@ sub plugin {
while($len--){
$seg2 = "_".$seg2;
}
$seg2 .= "%";
$seg3 = "978" . $seg2; #support of ISBN13
$sth->execute($seg2, $seg3);
$len = 10 -length($seg2);
while($len--){
$seg2 .= "_";
}
$sth->execute($seg2, "978$seg2");
}
if( (my $publishercode) = $sth->fetchrow )