From: dave%intrec.com <>
Date: Fri, 29 Sep 2000 12:29:09 +0000 (+0000)
Subject: Fix for bug 44076: Editparams falsely detecting text field changes and
X-Git-Tag: bugzilla-2.12~152
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4c3068ee06914665fc630d2fa7a8215e6bc60eaf;p=thirdparty%2Fbugzilla.git

Fix for bug 44076: Editparams falsely detecting text field changes and
NS4Mac putting a single linefeed in empty fields.
---

diff --git a/doeditparams.cgi b/doeditparams.cgi
index cc7b661071..148946fefc 100755
--- a/doeditparams.cgi
+++ b/doeditparams.cgi
@@ -51,7 +51,8 @@ foreach my $i (@::param_list) {
     if (exists $::FORM{"reset-$i"}) {
         $::FORM{$i} = $::param_default{$i};
     }
-    $::FORM{$i} =~ s/\r\n/\n/;     # Get rid of windows-style line endings.
+    $::FORM{$i} =~ s/\r\n/\n/g;   # Get rid of windows-style line endings.
+    $::FORM{$i} =~ s/^\n$//;      # assume single linefeed is an empty string
     if ($::FORM{$i} ne Param($i)) {
         if (defined $::param_checker{$i}) {
             my $ref = $::param_checker{$i};
@@ -64,6 +65,8 @@ foreach my $i (@::param_list) {
             }
         }
         print "Changed $i.<br>\n";
+#      print "Old: '" . url_quote(Param($i)) . "'<BR>\n";
+#      print "New: '" . url_quote($::FORM{$i}) . "'<BR>\n";
         $::param{$i} = $::FORM{$i}
     }
 }