diff options
| author | terry%netscape.com <> | 1998-09-16 06:49:23 +0200 |
|---|---|---|
| committer | terry%netscape.com <> | 1998-09-16 06:49:23 +0200 |
| commit | 4727e6c09f88e63f02e6c8f359862d0c0942ed36 (patch) | |
| tree | 3dec365d9db2c17d4c4ab9eb5297650d09ab24ec /bug_form.pl | |
| parent | d8a4482db94592c936565841ab1a6703fca27d2d (diff) | |
| download | bugzilla-4727e6c09f88e63f02e6c8f359862d0c0942ed36.tar.gz bugzilla-4727e6c09f88e63f02e6c8f359862d0c0942ed36.tar.xz | |
Everything has been ported to now run under Perl.
Diffstat (limited to 'bug_form.pl')
| -rw-r--r-- | bug_form.pl | 239 |
1 files changed, 239 insertions, 0 deletions
diff --git a/bug_form.pl b/bug_form.pl new file mode 100644 index 000000000..ed6aead8a --- /dev/null +++ b/bug_form.pl @@ -0,0 +1,239 @@ +# -*- Mode: perl; indent-tabs-mode: nil -*- +# +# The contents of this file are subject to the Mozilla Public License +# Version 1.0 (the "License"); you may not use this file except in +# compliance with the License. You may obtain a copy of the License at +# http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS IS" +# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the +# License for the specific language governing rights and limitations +# under the License. +# +# The Original Code is the Bugzilla Bug Tracking System. +# +# The Initial Developer of the Original Code is Netscape Communications +# Corporation. Portions created by Netscape are Copyright (C) 1998 +# Netscape Communications Corporation. All Rights Reserved. +# +# Contributor(s): Terry Weissman <terry@mozilla.org> + +use diagnostics; +use strict; + +my $query = " +select + bug_id, + product, + version, + rep_platform, + op_sys, + bug_status, + resolution, + priority, + bug_severity, + component, + assigned_to, + reporter, + bug_file_loc, + short_desc, + date_format(creation_ts,'Y-m-d') +from bugs +where bug_id = $::FORM{'id'}"; + +SendSQL($query); +my %bug; +my @row; +if (@row = FetchSQLData()) { + my $count = 0; + foreach my $field ("bug_id", "product", "version", "rep_platform", + "op_sys", "bug_status", "resolution", "priority", + "bug_severity", "component", "assigned_to", "reporter", + "bug_file_loc", "short_desc", "creation_ts") { + $bug{$field} = shift @row; + if (!defined $bug{$field}) { + $bug{$field} = ""; + } + $count++; + } +} else { + my $maintainer = Param("maintainer"); + print "<TITLE>Bug Splat Error</TITLE>\n"; + print "<H1>Query Error</H1>Somehow something went wrong. Possibly if\n"; + print "you mail this page to $maintainer, he will be able to fix\n"; + print "things.<HR>\n"; + print "Bug $::FORM{'id'} not found<H2>Query Text</H2><PRE>$query<PRE>\n"; + exit 0 +} + +$bug{'assigned_to'} = DBID_to_name($bug{'assigned_to'}); +$bug{'reporter'} = DBID_to_name($bug{'reporter'}); +$bug{'long_desc'} = GetLongDescription($::FORM{'id'}); + + +GetVersionTable(); + +# +# These should be read from the database ... +# + +my $resolution_popup = make_options(\@::legal_resolution_no_dup, + $bug{'resolution'}); +my $platform_popup = make_options(\@::legal_platform, $bug{'rep_platform'}); +my $priority_popup = make_options(\@::legal_priority, $bug{'priority'}); +my $sev_popup = make_options(\@::legal_severity, $bug{'bug_severity'}); + + +my $component_popup = make_options($::components{$bug{'product'}}, + $bug{'component'}); + +my $cc_element = '<INPUT NAME=cc SIZE=30 VALUE="' . + ShowCcList($::FORM{'id'}) . '">'; + + +my $URL = $bug{'bug_file_loc'}; + +if (defined $URL && $URL ne "none" && $URL ne "NULL" && $URL ne "") { + $URL = "<B><A HREF=\"$URL\">URL:</A></B>"; +} else { + $URL = "<B>URL:</B>"; +} + +print " +<HEAD><TITLE>Bug $::FORM{'id'} -- " . html_quote($bug{'short_desc'}) . + "</TITLE></HEAD><BODY> +<FORM NAME=changeform METHOD=POST ACTION=\"process_bug.cgi\"> +<INPUT TYPE=HIDDEN NAME=\"id\" VALUE=$::FORM{'id'}> +<INPUT TYPE=HIDDEN NAME=\"was_assigned_to\" VALUE=\"$bug{'assigned_to'}\"> + <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0><TR> + <TD ALIGN=RIGHT><B>Bug#:</B></TD><TD>$bug{'bug_id'}</TD> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></TD> + <TD><SELECT NAME=rep_platform>$platform_popup</SELECT></TD> + <TD ALIGN=RIGHT><B>Version:</B></TD> + <TD><SELECT NAME=version>" . + make_options($::versions{$bug{'product'}}, $bug{'version'}) . + "</SELECT></TD> + </TR><TR> + <TD ALIGN=RIGHT><B>Product:</B></TD> + <TD><SELECT NAME=product>" . + make_options(\@::legal_product, $bug{'product'}) . + "</SELECT></TD> + <TD ALIGN=RIGHT><B>OS:</B></TD><TD>$bug{'op_sys'}</TD> + <TD ALIGN=RIGHT><B>Reporter:</B></TD><TD>$bug{'reporter'}</TD> + </TR><TR> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html\">Status:</A></B></TD> + <TD>$bug{'bug_status'}</TD> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Priority:</A></B></TD> + <TD><SELECT NAME=priority>$priority_popup</SELECT></TD> + <TD ALIGN=RIGHT><B>Cc:</B></TD> + <TD> $cc_element </TD> + </TR><TR> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html\">Resolution:</A></B></TD> + <TD>$bug{'resolution'}</TD> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#severity\">Severity:</A></B></TD> + <TD><SELECT NAME=bug_severity>$sev_popup</SELECT></TD> + <TD ALIGN=RIGHT><B>Component:</B></TD> + <TD><SELECT NAME=component>$component_popup</SELECT></TD> + </TR><TR> + <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#assigned_to\">Assigned To: + </A></B></TD> + <TD>$bug{'assigned_to'}</TD> + </TR><TR> + <TD ALIGN=\"RIGHT\">$URL + <TD COLSPAN=6> + <INPUT NAME=bug_file_loc VALUE=\"$bug{'bug_file_loc'}\" SIZE=60></TD> + </TR><TR> + <TD ALIGN=\"RIGHT\"><B>Summary:</B> + <TD COLSPAN=6> + <INPUT NAME=short_desc VALUE=\"" . + value_quote($bug{'short_desc'}) . + "\" SIZE=60></TD> + </TR> +</TABLE> +<br> +<B>Additional Comments:</B> +<BR> +<TEXTAREA WRAP=HARD NAME=comment ROWS=5 COLS=80></TEXTAREA><BR> +<br> +<INPUT TYPE=radio NAME=knob VALUE=none CHECKED> + Leave as <b>$bug{'bug_status'} $bug{'resolution'}</b><br>"; + +# knum is which knob number we're generating, in javascript terms. + +my $knum = 1; + +my $status = $bug{'bug_status'}; + +if ($status eq "NEW" || $status eq "ASSIGNED" || $status eq "REOPENED") { + if ($status ne "ASSIGNED") { + print "<INPUT TYPE=radio NAME=knob VALUE=accept>"; + print "Accept bug (change status to <b>ASSIGNED</b>)<br>"; + $knum++; + } + if ($bug{'resolution'} ne "") { + print "<INPUT TYPE=radio NAME=knob VALUE=clearresolution>\n"; + print "Clear the resolution (remove the current resolution of\n"; + print "<b>$bug{'resolution'}</b>)<br>\n"; + $knum++; + } + print "<INPUT TYPE=radio NAME=knob VALUE=resolve> + Resolve bug, changing <A HREF=\"bug_status.html\">resolution</A> to + <SELECT NAME=resolution + ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\"> + $resolution_popup</SELECT><br>\n"; + $knum++; + print "<INPUT TYPE=radio NAME=knob VALUE=duplicate> + Resolve bug, mark it as duplicate of bug # + <INPUT NAME=dup_id SIZE=6 ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\"><br>\n"; + $knum++; + my $assign_element = "<INPUT NAME=assigned_to SIZE=32 ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\" VALUE=$bug{'assigned_to'}>"; + + print "<INPUT TYPE=radio NAME=knob VALUE=reassign> + <A HREF=\"bug_status.html#assigned_to\">Reassign</A> bug to + $assign_element + <br>\n"; + $knum++; + print "<INPUT TYPE=radio NAME=knob VALUE=reassignbycomponent> + Reassign bug to owner of selected component<br>\n"; + $knum++; +} else { + print "<INPUT TYPE=radio NAME=knob VALUE=reopen> Reopen bug<br>\n"; + $knum++; + if ($status eq "RESOLVED") { + print "<INPUT TYPE=radio NAME=knob VALUE=verify> + Mark bug as <b>VERIFIED</b><br>\n"; + $knum++; + } + if ($status ne "CLOSED") { + print "<INPUT TYPE=radio NAME=knob VALUE=close> + Mark bug as <b>CLOSED</b><br>\n"; + $knum++; + } +} + +print " +<INPUT TYPE=\"submit\" VALUE=\"Commit\"> +<INPUT TYPE=\"reset\" VALUE=\"Reset\"> +<INPUT TYPE=hidden name=form_name VALUE=process_bug> +<BR> +<FONT size=\"+1\"><B> + <A HREF=\"show_activity.cgi?id=$::FORM{'id'}\">View Bug Activity</A> + <A HREF=\"long_list.cgi?buglist=$::FORM{'id'}\">Format For Printing</A> +</B></FONT><BR> +</FORM> +<table><tr><td align=left><B>Description:</B></td><td width=100%> </td> +<td align=right>Opened: $bug{'creation_ts'}</td></tr></table> +<HR> +<PRE> +" . html_quote($bug{'long_desc'}) . " +</PRE> +<HR>\n"; + +# To add back option of editing the long description, insert after the above +# long_list.cgi line: +# <A HREF=\"edit_desc.cgi?id=$::FORM{'id'}\">Edit Long Description</A> + + +navigation_header(); + +print "</BODY>\n"; |