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
This commit is contained in:
justdave%syndicomm.com 2001-10-11 02:17:58 +00:00
Родитель bdb0c855fa
Коммит cba6d3584a
2 изменённых файлов: 20 добавлений и 3 удалений

Просмотреть файл

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

Просмотреть файл

@ -26,7 +26,7 @@
<td width="25%">
<small>
<b>Description:</b><br>
<textarea rows="3" cols="25" name="description">[% description %]</textarea><br>
<textarea rows="3" cols="25" name="description" wrap="soft">[% description %]</textarea><br>
<b>MIME Type:</b><br>
<input type="text" size="20" name="mimetype" value="[% mimetype %]"><br>
@ -44,7 +44,7 @@
<div id="smallCommentFrame">
<b>Comment (on the bug):</b><br>
<textarea name="comment" rows="5" cols="25"></textarea><br>
<textarea name="comment" rows="5" cols="25" wrap="soft"></textarea><br>
</div>
<input type="submit" value="Submit">