From bc124d87f4237e485c15634bae578c56db121e9f Mon Sep 17 00:00:00 2001 From: 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