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

(-)a/C4/Breeding.pm (+1 lines)
Lines 93-98 sub ImportBreeding { Link Here
93
        my ($marcrecord, $charset_result, $charset_errors);
93
        my ($marcrecord, $charset_result, $charset_errors);
94
        ($marcrecord, $charset_result, $charset_errors) = 
94
        ($marcrecord, $charset_result, $charset_errors) = 
95
            MarcToUTF8Record($marcarray[$i]."\x1D", C4::Context->preference("marcflavour"), $encoding);
95
            MarcToUTF8Record($marcarray[$i]."\x1D", C4::Context->preference("marcflavour"), $encoding);
96
            SetUTF8Flag($marcrecord);
96
        
97
        
97
#         warn "$i : $marcarray[$i]";
98
#         warn "$i : $marcarray[$i]";
98
        # FIXME - currently this does nothing 
99
        # FIXME - currently this does nothing 
(-)a/C4/ImportBatch.pm (+1 lines)
Lines 330-335 sub BatchStageMarcRecords { Link Here
330
        }
330
        }
331
        my ($marc_record, $charset_guessed, $char_errors) =
331
        my ($marc_record, $charset_guessed, $char_errors) =
332
            MarcToUTF8Record($marc_blob, C4::Context->preference("marcflavour"), $encoding);
332
            MarcToUTF8Record($marc_blob, C4::Context->preference("marcflavour"), $encoding);
333
        SetUTF8Flag($marc_record);
333
334
334
        $encoding = $charset_guessed unless $encoding;
335
        $encoding = $charset_guessed unless $encoding;
335
336
(-)a/acqui/z3950_search.pl (+1 lines)
Lines 273-278 warn "query ".$query if $DEBUG; Link Here
273
                        my ($charset_result, $charset_errors);
273
                        my ($charset_result, $charset_errors);
274
                        ($marcrecord, $charset_result, $charset_errors) = 
274
                        ($marcrecord, $charset_result, $charset_errors) = 
275
                          MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
275
                          MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
276
                        SetUTF8Flag($marcrecord);
276
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
277
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
277
## In HEAD i change everything to UTF-8
278
## In HEAD i change everything to UTF-8
278
# In rel2_2 i am not sure what encoding is so no character conversion is done here
279
# In rel2_2 i am not sure what encoding is so no character conversion is done here
(-)a/cataloguing/z3950_search.pl (-1 / +1 lines)
Lines 241-246 warn "query ".$query if $DEBUG; Link Here
241
                        my ($charset_result, $charset_errors);
241
                        my ($charset_result, $charset_errors);
242
                        ($marcrecord, $charset_result, $charset_errors) = 
242
                        ($marcrecord, $charset_result, $charset_errors) = 
243
                          MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
243
                          MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
244
                        SetUTF8Flag($marcrecord);
244
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
245
####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
245
## In HEAD i change everything to UTF-8
246
## In HEAD i change everything to UTF-8
246
# In rel2_2 i am not sure what encoding is so no character conversion is done here
247
# In rel2_2 i am not sure what encoding is so no character conversion is done here
247
- 

Return to bug 6536