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

1 files changed, 18 insertions, 1 deletions

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);
 
   }