gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 11944: FIX Error on editing an authority 

Signed-off-by: Paola Rossi <paola.rossi@cineca.it>
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Dobrica Pavlinusic <dpavlin@rot13.org>

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Jonathan Druart 2014-04-07 13:58:38 +02:00 committed by Tomas Cohen Arazi
parent 75f0cc5771
commit df74fe9be8
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C4/AuthoritiesMarc.pm
View File

@ -277,6 +277,8 @@ sub SearchAuthorities {
next;
}
SetUTF8Flag( $authrecord );
my $authid=$authrecord->field('001')->data();
my %newline;
$newline{authid} = $authid;

8
C4/Biblio.pm
View File

@ -23,7 +23,7 @@ use strict;
use warnings;
use Carp;
use Encode qw( decode );
use Encode qw( decode is_utf8 );
use MARC::Record;
use MARC::File::USMARC;
use MARC::File::XML;
@ -2470,11 +2470,9 @@ sub TransformHtmlToMarc {
foreach my $param_name ( keys %$cgi_params ) {
if ( $param_name =~ /^tag_/ ) {
my $param_value = $cgi_params->{$param_name};
if ( $param_value = Encode::decode('UTF-8', $param_value) ) {
$cgi_params->{$param_name} = $param_value;
unless ( Encode::is_utf8( $param_value ) ) {
$cgi_params->{$param_name} = Encode::decode('UTF-8', $param_value );
}
# FIXME - need to do something if string is not valid UTF-8
}
}