View | Details | Raw Unified | Return to bug 3598
Collapse All | Expand All

(-)a/cataloguing/z3950_search.pl (-1 / +20 lines)
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
- 

Return to bug 3598