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

(bug #3598) normalize isbn 

This patch normalize isbn's of notices imported via z39.50
This commit is contained in:
Nahuel ANGELINETTI 2009-09-10 14:52:01 +02:00 committed by Henri-Damien LAURENT
parent af42c93b91
commit 10aa6096fc
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cataloguing/z3950_search.pl
View File

@ -225,6 +225,26 @@ warn "query ".$query if $DEBUG;
my ($charset_result, $charset_errors);
($marcrecord, $charset_result, $charset_errors) =
MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
# We clean the ISBN
my ($bibliotag,$bibliosubf)=GetMarcFromKohaField('biblioitems.isbn','');
if ($bibliotag<10){
$isbn = $marcrecord->field($bibliotag)->data;
}else{
$isbn = $marcrecord->subfield($bibliotag,$bibliosubf);
}
$isbn = C4::Koha::_isbn_cleanup($isbn);
if($marcrecord->field($bibliotag)){
if($bibliotag < 10){
$marcrecord->field($bibliotag)->update($isbn)
}else{
$marcrecord->field($bibliotag)->update($bibliosubf => $isbn);
}
}
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
## In HEAD i change everything to UTF-8
# In rel2_2 i am not sure what encoding is so no character conversion is done here