From 4106e035be8ac9886aafccbd5284c3ede7cb34c4 Mon Sep 17 00:00:00 2001 From: =?utf-8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= Date: Tue, 7 Jun 2011 14:03:08 -0400 Subject: [PATCH] Converts all the serialseq variables to UTF-8. Corrects a problem when an UTF-8 character is used in the serial numbering formula. The encoding became incorrect when concatenating the number in the subscriptionhistory table. --- serials/serials-edit.pl | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl index aaa0574..b486c04 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -196,6 +196,11 @@ $template->param( subscriptions => \@subscriptionloop ); if ( $op and $op eq 'serialchangestatus' ) { + # Convert serialseqs to UTF-8 to prevent encoding problems + foreach my $seq (@serialseqs) { + utf8::decode($seq) unless utf8::is_utf8($seq); + } + my $newserial; for ( my $i = 0 ; $i <= $#serialids ; $i++ ) { -- 1.5.6.5