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


git-svn-id: svn://10.0.0.236/trunk@105134 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/webtools/bugzilla/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);
 
   }