|
Lines 207-212
warn "query ".$query if $DEBUG;
Link Here
|
| 207 |
my ($charset_result, $charset_errors); |
207 |
my ($charset_result, $charset_errors); |
| 208 |
($marcrecord, $charset_result, $charset_errors) = |
208 |
($marcrecord, $charset_result, $charset_errors) = |
| 209 |
MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]); |
209 |
MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]); |
|
|
210 |
|
| 211 |
# We clean the ISBN |
| 212 |
my ($bibliotag,$bibliosubf)=GetMarcFromKohaField('biblioitems.isbn',''); |
| 213 |
|
| 214 |
if ($bibliotag<10){ |
| 215 |
$isbn = $marcrecord->field($bibliotag)->data; |
| 216 |
}else{ |
| 217 |
$isbn = $marcrecord->subfield($bibliotag,$bibliosubf); |
| 218 |
} |
| 219 |
|
| 220 |
$isbn = C4::Koha::_isbn_cleanup($isbn); |
| 221 |
|
| 222 |
if($marcrecord->field($bibliotag)){ |
| 223 |
if($bibliotag < 10){ |
| 224 |
$marcrecord->field($bibliotag)->update($isbn) |
| 225 |
}else{ |
| 226 |
$marcrecord->field($bibliotag)->update($bibliosubf => $isbn); |
| 227 |
} |
| 228 |
} |
| 229 |
|
| 210 |
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc |
230 |
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc |
| 211 |
## In HEAD i change everything to UTF-8 |
231 |
## In HEAD i change everything to UTF-8 |
| 212 |
# In rel2_2 i am not sure what encoding is so no character conversion is done here |
232 |
# In rel2_2 i am not sure what encoding is so no character conversion is done here |
| 213 |
- |
|
|