Attachment 35249 Details for Bug 11944 – Bug 11944: Fix suggestion at the OPAC for perl v5.10

[patch] Bug 11944: Fix suggestion at the OPAC for perl v5.10

Bug-11944-Fix-suggestion-at-the-OPAC-for-perl-v510.patch (text/plain), 1.53 KB, created by Jonathan Druart on 2015-01-14 15:45:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2015-01-14 15:45:14 UTC

Size: 1.53 KB

patch

obsolete

>From a5ee0f3d70651fbdbcec1ed8cb47b0aed9ec752f Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Mon, 18 Aug 2014 17:33:32 +0200
>Subject: [PATCH] Bug 11944: Fix suggestion at the OPAC for perl v5.10
>
>Without this patch and using Perl v5.10, on adding a suggestion at the
>OPAC, the script explodes with the following error:
>"cannot decode string with wide characters".
>
>With this patch, all is fine using Perl v5.10 and v5.18.
>
>Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
>---
> opac/opac-suggestions.pl | 4 +++-
> 1 file changed, 3 insertions(+), 1 deletion(-)
>
>diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl
>index c4b1359..701e431 100755
>--- a/opac/opac-suggestions.pl
>+++ b/opac/opac-suggestions.pl
>@@ -19,6 +19,7 @@ use strict;
> use warnings;
> 
> use CGI qw ( -utf8 );
>+use Encode qw( encode );
> use C4::Auth;    # get_template_and_user
> use C4::Members;
> use C4::Branch;
>@@ -91,7 +92,8 @@ if ( $op eq "add_confirm" ) {
> 	else {
> 		my $scrubber = C4::Scrubber->new();
> 		foreach my $suggest (keys %$suggestion){
>-		    $suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest});
>+            # Don't know why the encode is needed for Perl v5.10 here
>+            $suggestion->{$suggest} = Encode::encode("utf8", $scrubber->scrub($suggestion->{$suggest}) );
> 		}
>         $suggestion->{suggesteddate} = dt_from_string;
>         $suggestion->{branchcode} = $input->param('branchcode') || C4::Context->userenv->{"branch"};
>-- 
>2.1.0

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