[Koha-cvs] koha/C4 Biblio.pm

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	paul poulain <tipaul>	07/03/30 12:00:43

Modified files:
	C4             : Biblio.pm 

Log message:
	why the hell do we need to explicitly utf8 decode this string ? I really don't know, but it seems it's mandatory, otherwise, tag descriptions are not properly encoded...

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.193&r2=1.194

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.193
retrieving revision 1.194
diff -u -b -r1.193 -r1.194
--- Biblio.pm	29 Mar 2007 16:45:53 -0000	1.193
+++ Biblio.pm	30 Mar 2007 12:00:42 -0000	1.194
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.193 $' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.194 $' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -1237,6 +1237,11 @@
     {
         $res->{$tag}->{lib} =
           ( $forlibrarian or !$libopac ) ? $liblibrarian : $libopac;
+          # why the hell do we need to explicitly decode utf8 ? 
+          # that's a good question, but we must do it...
+          use utf8;
+          utf8::decode($res->{$tag}->{lib});
+#           warn "$liblibrarian";
         $res->{$tab}->{tab}        = "";            # XXX
         $res->{$tag}->{mandatory}  = $mandatory;
         $res->{$tag}->{repeatable} = $repeatable;
@@ -3482,8 +3487,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.193 2007/03/29 16:45:53 tipaul Exp $
+# $Id: Biblio.pm,v 1.194 2007/03/30 12:00:42 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.194  2007/03/30 12:00:42  tipaul
+# why the hell do we need to explicitly utf8 decode this string ? I really don't know, but it seems it's mandatory, otherwise, tag descriptions are not properly encoded...
+#
 # Revision 1.193  2007/03/29 16:45:53  tipaul
 # Code cleaning of Biblio.pm (continued)
 #