diff options
author | myk%mozilla.org <> | 2002-01-30 22:14:10 +0000 |
---|---|---|
committer | myk%mozilla.org <> | 2002-01-30 22:14:10 +0000 |
commit | 429456196dd7ce8ef7e0876b7e57cdc394a228ba (patch) | |
tree | 9822db1683ca3910e53f3a4b3e3d7501ae8f8b42 /bug_form.pl | |
parent | 9704bcdf20dfc01b491d4a7c76f469c9a6190685 (diff) | |
download | bugs-429456196dd7ce8ef7e0876b7e57cdc394a228ba.tar bugs-429456196dd7ce8ef7e0876b7e57cdc394a228ba.tar.gz bugs-429456196dd7ce8ef7e0876b7e57cdc394a228ba.tar.bz2 bugs-429456196dd7ce8ef7e0876b7e57cdc394a228ba.tar.xz bugs-429456196dd7ce8ef7e0876b7e57cdc394a228ba.zip |
Fix for bug 104521: Removes old attachment interface in favor of new attachment tracker.
Patch by Myk Melez <myk@mozilla.org>.
r=bbaetz,kiko
Diffstat (limited to 'bug_form.pl')
-rw-r--r-- | bug_form.pl | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/bug_form.pl b/bug_form.pl index 97491772d..76c7cc242 100644 --- a/bug_form.pl +++ b/bug_form.pl @@ -25,6 +25,9 @@ use strict; use RelationSet; +# Use the Attachment module to display attachments for the bug. +use Attachment; + # Shut up misguided -w warnings about "used only once". For some reason, # "use vars" chokes on me when I try it here. @@ -324,28 +327,10 @@ if (@::legal_keywords) { }; } -# 2001-05-16 myk@mozilla.org: use the attachment tracker to display attachments -# if this installation has enabled use of the attachment tracker. -if (Param('useattachmenttracker')) { - print "</table>\n"; - use Attachment; - &Attachment::list($id); -} else { - print "<tr><td align=right><B>Attachments:</b></td>\n"; - SendSQL("select attach_id, creation_ts, mimetype, description from attachments where bug_id = $id"); - while (MoreSQLData()) { - my ($attachid, $date, $mimetype, $desc) = (FetchSQLData()); - if ($date =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { - $date = "$3/$4/$2 $5:$6"; - } - my $link = "showattachment.cgi?attach_id=$attachid"; - $desc = value_quote($desc); - $mimetype = html_quote($mimetype); - print qq{<td><a href="$link">$date</a></td><td colspan=6>$desc ($mimetype)</td></tr><tr><td></td>}; - } - print "<td colspan=7><a href=\"createattachment.cgi?id=$id\">Create a new attachment</a> (proposed patch, testcase, etc.)</td></tr></table>\n"; -} +print "</TABLE>\n"; +# Display attachments for this bug (if any). +&Attachment::list($id); sub EmitDependList { my ($desc, $myfield, $targetfield) = (@_); |