[Koha-cvs] koha/intranet/modules/C4/Interface/CGI Output.pm [rel_TG]

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_TG
Changes by:	Tumer Garip <tgarip1957>	07/03/11 20:34:56

Modified files:
	intranet/modules/C4/Interface/CGI: Output.pm 

Log message:
	Stop "wide character in print" warnings from HTML::Template

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/intranet/modules/C4/Interface/CGI/Output.pm?cvsroot=koha&only_with_tag=rel_TG&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: Output.pm
===================================================================
RCS file: /sources/koha/koha/intranet/modules/C4/Interface/CGI/Attic/Output.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- Output.pm	10 Mar 2007 01:40:35 -0000	1.1.2.1
+++ Output.pm	11 Mar 2007 20:34:55 -0000	1.1.2.2
@@ -1,6 +1,6 @@
 package C4::Interface::CGI::Output;
 
-# $Id: Output.pm,v 1.1.2.1 2007/03/10 01:40:35 tgarip1957 Exp $
+# $Id: Output.pm,v 1.1.2.2 2007/03/11 20:34:55 tgarip1957 Exp $
 
 #package to work around problems in HTTP headers
 # Note: This is just a utility module; it should not be instantiated.
@@ -73,7 +73,7 @@
 
     my($query, $cookie, $html) = @_;
 $html=~s/()//g;##Remove Windows BOM
-$html=Encode::encode_utf8($html); ### Stop "Wide character in print" warnings
+$html=Encode::encode_utf8($html) if $ENV{MOD_PERL}; ### Stop "Wide character in print" warnings from HTML::Template
     print $query->header(
 	-type   => "text/html",
 	-charset=>"UTF-8",