From 7279d56bac905f63a3091caeeb40299897340c44 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Thu, 11 Oct 2001 09:17:56 +0000
Subject: Fix for bug 97784: comments in attachment update form are now
 properly word-wrapped.  This is a server-side implementation to do the
 word-wrapping, which will probably eventually be used in the main comments
 area on the bug form as well. Patch by Myk Melez <myk@mozilla.org> r= gerv,
 justdave

---
 attachment.cgi | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'attachment.cgi')

diff --git a/attachment.cgi b/attachment.cgi
index 9308b1d73..8fcac0b88 100755
--- a/attachment.cgi
+++ b/attachment.cgi
@@ -478,17 +478,34 @@ sub update
   # add the comment to the bug.
   if ( $::FORM{'comment'} )
   {
+    use Text::Wrap;
+    $Text::Wrap::columns = 80;
+    $Text::Wrap::huge = 'wrap';
+
     # Append a string to the comment to let users know that the comment came from
     # the "edit attachment" screen.
     my $comment = qq|(From update of attachment $::FORM{'id'})\n| . $::FORM{'comment'};
 
+    my $wrappedcomment = "";
+    foreach my $line (split(/\r\n|\r|\n/, $comment))
+    {
+      if ( $line =~ /^>/ )
+      {
+        $wrappedcomment .= $line . "\n";
+      }
+      else
+      {
+        $wrappedcomment .= wrap('', '', $line) . "\n";
+      }
+    }
+
     # Get the user's login name since the AppendComment function needs it.
     my $who = DBID_to_name($::userid);
     # Mention $::userid again so Perl doesn't give me a warning about it.
     my $neverused = $::userid;
 
     # Append the comment to the list of comments in the database.
-    AppendComment($bugid, $who, $comment);
+    AppendComment($bugid, $who, $wrappedcomment);
 
   }
 
-- 
cgit v1.2.3-24-g4f1b