From: terry%netscape.com <>
Date: Sun, 11 Apr 1999 00:42:24 +0000 (+0000)
Subject: Fixed bug 4928 -- wasn't encoding multi-line value fields properly,
X-Git-Tag: bugzilla-2.4~12
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=310ce18f525d6f65ca6df35377d00f3d212c40ea;p=thirdparty%2Fbugzilla.git

Fixed bug 4928 -- wasn't encoding multi-line value fields properly,
which busted modern browsers (like, Mozilla itself).
---

diff --git a/CGI.pl b/CGI.pl
index 890a8edf76..e580c1baae 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -186,19 +186,11 @@ sub value_quote {
     $var =~ s/</\&lt;/g;
     $var =~ s/>/\&gt;/g;
     $var =~ s/"/\&quot;/g;
+    $var =~ s/\n/\&#010;/g;
+    $var =~ s/\r/\&#013;/g;
     return $var;
 }
 
-sub value_unquote {
-    my ($var) = (@_);
-    $var =~ s/\&quot/\"/g;
-    $var =~ s/\&lt/</g;
-    $var =~ s/\&gt/>/g;
-    $var =~ s/\&amp/\&/g;
-    return $var;
-}
-
-
 sub navigation_header {
     if (defined $::COOKIE{"BUGLIST"} && $::COOKIE{"BUGLIST"} ne "") {
 	my @bugs = split(/:/, $::COOKIE{"BUGLIST"});