Attachment 29991 Details for Bug 11944 – Bug 11944: FIX Error on editing an authority

[patch] Bug 11944: FIX Error on editing an authority

Bug-11944-FIX-Error-on-editing-an-authority.patch (text/plain), 1.75 KB, created by Dobrica Pavlinusic on 2014-07-23 16:13:50 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Dobrica Pavlinusic

Created: 2014-07-23 16:13:50 UTC

Size: 1.75 KB

patch

obsolete

>From c9226023eefdd807ceffa67e4f4bf5f82ffbcf40 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Mon, 7 Apr 2014 13:58:38 +0200
>Subject: [PATCH] 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>
>---
> C4/AuthoritiesMarc.pm |    2 ++
> C4/Biblio.pm          |    8 +++-----
> 2 files changed, 5 insertions(+), 5 deletions(-)
>
>diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
>index 95fe33a..8fea994 100644
>--- a/C4/AuthoritiesMarc.pm
>+++ b/C4/AuthoritiesMarc.pm
>@@ -277,6 +277,8 @@ sub SearchAuthorities {
>             next;
>         }
> 
>+        SetUTF8Flag( $authrecord );
>+
>         my $authid=$authrecord->field('001')->data();
>         my %newline;
>         $newline{authid} = $authid;
>diff --git a/C4/Biblio.pm b/C4/Biblio.pm
>index 04895f6..45cfbc5 100644
>--- a/C4/Biblio.pm
>+++ b/C4/Biblio.pm
>@@ -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;
>@@ -2484,11 +2484,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
>         }
>     }
> 
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 11944: 26364 | 26365 | 26366 | 26367 | 26368 | 26369 | 26370 | 26371 | 26372 | 26407 | 26408 | 26409 | 26737 | 26738 | 26739 | 26740 | 26741 | 26742 | 26743 | 26744 | 26745 | 26746 | 26747 | 26748 | 26794 | 26857 | 26858 | 26859 | 26860 | 26861 | 26862 | 26863 | 26864 | 26865 | 26866 | 26867 | 26868 | 26869 | 26870 | 26871 | 26895 | 26921 | 27021 | 27080 | 27094 | 27158 | 27159 | 27161 | 27193 | 27194 | 27195 | 27196 | 27198 | 27199 | 27200 | 27201 | 27202 | 27203 | 27204 | 27205 | 27206 | 27207 | 27208 | 27209 | 27210 | 27211 | 27212 | 27213 | 27214 | 27215 | 27216 | 27585 | 27586 | 27587 | 27588 | 27589 | 27590 | 27591 | 27592 | 27593 | 27594 | 27595 | 27596 | 27597 | 27598 | 27599 | 27600 | 27601 | 27602 | 27603 | 27880 | 27881 | 27882 | 27883 | 27884 | 27885 | 27886 | 27887 | 27888 | 27889 | 27890 | 27891 | 27892 | 27893 | 27894 | 27895 | 27896 | 27897 | 27898 | 28046 | 28047 | 28048 | 28049 | 28050 | 28051 | 28052 | 28053 | 28054 | 28055 | 28056 | 28057 | 28058 | 28059 | 28060 | 28061 | 28062 | 28063 | 28064 | 28065 | 28066 | 28097 | 28245 | 28246 | 28247 | 28248 | 28249 | 28250 | 28251 | 28252 | 28253 | 28732 | 29981 | 29982 | 29983 | 29984 | 29985 | 29986 | 29987 | 29988 | 29989 | 29990 | 29991 | 29992 | 29993 | 29994 | 29995 | 29996 | 29997 | 29998 | 29999 | 30000 | 30001 | 30002 | 30003 | 30004 | 30005 | 30006 | 30012 | 30016 | 30945 | 31299 | 35223 | 35224 | 35225 | 35226 | 35227 | 35228 | 35229 | 35230 | 35231 | 35232 | 35233 | 35234 | 35235 | 35236 | 35237 | 35238 | 35239 | 35240 | 35241 | 35242 | 35243 | 35244 | 35245 | 35246 | 35247 | 35248 | 35249 | 35250 | 35251 | 35252 | 35253