From 7177a6528abc8a97aade6d5ab0e578c668752dab Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Thu, 8 Oct 2009 11:44:31 +0200
Subject: [PATCH] Bug Fixing : C4::Charset source_encoding always set to
 iso-8859-1

---
 C4/Charset.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/C4/Charset.pm b/C4/Charset.pm
index bffd374ff7..655d6c70da 100644
--- a/C4/Charset.pm
+++ b/C4/Charset.pm
@@ -139,7 +139,6 @@ sub MarcToUTF8Record {
     my $marc = shift;
     my $marc_flavour = shift;
     my $source_encoding = shift;
-
     my $marc_record;
     my $marc_blob_is_utf8 = 0;
     if (ref($marc) eq 'MARC::Record') {
@@ -216,7 +215,7 @@ sub MarcToUTF8Record {
             @errors = _marc_iso5426_to_utf8($marc_record, $marc_flavour);
         } else {
             # assume any other character encoding is for Text::Iconv
-            @errors = _marc_to_utf8_via_text_iconv($marc_record, $marc_flavour, 'iso-8859-1');
+            @errors = _marc_to_utf8_via_text_iconv($marc_record, $marc_flavour, $source_encoding);
         }
 
         if (@errors) {
-- 
2.39.5