diff options
author | justdave%syndicomm.com <> | 2001-10-11 09:17:56 +0000 |
---|---|---|
committer | justdave%syndicomm.com <> | 2001-10-11 09:17:56 +0000 |
commit | 7279d56bac905f63a3091caeeb40299897340c44 (patch) | |
tree | 4d60b178a294559a63a142b4e57ae85fccc4e324 /attachment.cgi | |
parent | 5f1c5bfa51412d1a742bb72830b59aea25aca948 (diff) | |
download | bugs-7279d56bac905f63a3091caeeb40299897340c44.tar bugs-7279d56bac905f63a3091caeeb40299897340c44.tar.gz bugs-7279d56bac905f63a3091caeeb40299897340c44.tar.bz2 bugs-7279d56bac905f63a3091caeeb40299897340c44.tar.xz bugs-7279d56bac905f63a3091caeeb40299897340c44.zip |
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
Diffstat (limited to 'attachment.cgi')
-rwxr-xr-x | attachment.cgi | 19 |
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); } |