From bc124d87f4237e485c15634bae578c56db121e9f Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 6 Aug 2003 12:37:32 +0000
Subject: [PATCH] fixing bug in char decoding

---
 acqui.simple/addbiblio.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 5ad1c3080e..084f5aafc4 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -212,7 +212,7 @@ sub build_tabs ($$$$) {
 					if ($tag<10) {
 						my $value=$field->data();
 						my $subfield="@";
-						push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth))
+						push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth))
 								unless ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 						$i++;
 					} else {
@@ -222,7 +222,7 @@ sub build_tabs ($$$$) {
 							my $value=$subfields[$subfieldcount][1];
 							next if subfield_is_koha_internal_p($subfield);
 							next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
-							push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
+							push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
 							$i++;
 						}
 					}
-- 
2.39.5