From 93721040da669cbbf5ab5903ddb1e8e240daa021 Mon Sep 17 00:00:00 2001
From: Denis Barbier <barbier>
Date: Wed, 28 Aug 2002 23:23:02 +0000
Subject: Do not replace accented letters by HTML entities wnen encoding is set
 to iso-8859-1 and iso-8859-15; previously only iso-8859-1 was checked.

CVS version numbers

copypage.pl: 1.18 -> 1.19
---
 copypage.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'copypage.pl')

diff --git a/copypage.pl b/copypage.pl
index d91ea335a3f..ba7d4f6740e 100755
--- a/copypage.pl
+++ b/copypage.pl
@@ -50,14 +50,14 @@ if ($#ARGV == -1)
 }
 
 # Check destination character encoding
-my $charset = 'iso-8859-1';
+my $recode = 0;
 if (open WMLRC, "$language/.wmlrc")
 {
 	while (<WMLRC>)
 	{
-		if (/^-D CHARSET=(.*)$/)
+		if (s/^-D CHARSET=//)
 		{
-			$charset = lc($1);
+			$recode = 1 unless /^iso-8859-15?$/i;
 			last;
 		}
 	}
@@ -89,7 +89,7 @@ foreach $page (@ARGV)
 	# Check if valid source
 	if ($page =~ /wml$/)
 	{
-		&copy($page, $charset ne 'iso-8859-1');
+		&copy($page, $recode);
 	}
 	else
 	{
-- 
cgit v1.2.3