[Koha-patches] [PATCH] (bug #3598) normalize isbn
Nahuel ANGELINETTI
nahuel.angelinetti at biblibre.com
Thu Sep 10 14:52:35 CEST 2009
This patch normalize isbn's of notices imported via z39.50
---
cataloguing/z3950_search.pl | 20 ++++++++++++++++++++
1 files changed, 20 insertions(+), 0 deletions(-)
diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index df2fab1..53d48a6 100755
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -207,6 +207,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
--
1.6.0.4
More information about the Koha-patches
mailing list