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