From ccdb1185e1c5bbf7dc54e08c8af9a9866a05d24d Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Sat, 13 Jul 2002 20:33:33 +0000
Subject: Encode HTML Entities correctly

---
 Echolot/Stats.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index adf5626..519b982 100644
--- a/Echolot/Stats.pm
+++ b/Echolot/Stats.pm
@@ -1,7 +1,7 @@
 package Echolot::Stats;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Stats.pm,v 1.17 2002/07/13 19:58:27 weasel Exp $
+# $Id: Stats.pm,v 1.18 2002/07/13 20:33:33 weasel Exp $
 #
 
 =pod
@@ -269,10 +269,10 @@ sub write_file($$;$) {
 
 	return 1 unless defined $html_template;
 	
-	$output =~ s/"/&quot;/;
-	$output =~ s/</&lt;/;
-	$output =~ s/>/&gt;/;
-	$output =~ s/&/&amp;/;
+	$output =~ s/&/&amp;/g;
+	$output =~ s/"/&quot;/g;
+	$output =~ s/</&lt;/g;
+	$output =~ s/>/&gt;/g;
 	my $template =  HTML::Template->new(
 		filename => $html_template,
 		strict => 0,
-- 
cgit v1.2.3