coar 97/06/11 03:20:07
Modified: . bugdb.cgi Log: Added ability to edit the synopsis, originator, and release fields. This is useful when handling PRs that come into the DB from mail as "pending" and don't have the right attributes. No user-visible changes. Revision Changes Path 1.7 +53 -1 apache-site/bugdb.cgi Index: bugdb.cgi =================================================================== RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.6 retrieving revision 1.7 diff -C3 -r1.6 -r1.7 *** bugdb.cgi 1997/06/06 12:01:35 1.6 --- bugdb.cgi 1997/06/11 10:20:05 1.7 *************** *** 36,41 **** --- 36,48 ---- # 3/2/95 Dan Kegel - Fixed small bug in timestamp; : was confusing browsers. # 8/24/96 Brian behlendorf - Extensive hacking for Apache # 5/1/1997 (let's be Y2K-safe, now! ;-) Enhancements for Apache + # 6/6/1997 Ken Coar - Added form widgets for searching header or content + # fields; edit notification now has GNATS' preferred subject format; + # added PR# to <TITLE> when editing; added ability to annotate w/o + # changing state. + # 6/11/1997 Ken Coar - Added ability to edit the synopsis, release, and + # originator - very useful for pulling "pending" PRs into the + # mainstream db. ### End Modifcation log ### Environment variables *************** *** 174,180 **** ### Main menu } elsif ($PATH_INFO eq "") { &main_menu(); ! print "<HR><SMALL>Version: 6 June 1997<BR>Authors: ", "<A HREF=\"http://alumni.caltech.edu/~dank\">Dan Kegel</A> ", "[EMAIL PROTECTED] & ", "<A HREF=\"http://alumni.caltech.edu/~huyle/\">Huy Le</A> ", --- 181,187 ---- ### Main menu } elsif ($PATH_INFO eq "") { &main_menu(); ! print "<HR><SMALL>Version: 11 June 1997<BR>Authors: ", "<A HREF=\"http://alumni.caltech.edu/~dank\">Dan Kegel</A> ", "[EMAIL PROTECTED] & ", "<A HREF=\"http://alumni.caltech.edu/~huyle/\">Huy Le</A> ", *************** *** 560,565 **** --- 567,603 ---- $fieldvalues{'State'} = $input{'State'}; } + if ($input{"Synopsis"} && ($input{"Synopsis"} ne $fieldvalues{'Synopsis'})) { + $change_msg .= + "Synopsis-Changed-From: $fieldvalues{'Synopsis'} + Synopsis-Changed-To: $input{'Synopsis'} + Synopsis-Changed-By: $input{'Editor'} + Synopsis-Changed-When: $date + "; + $to_old = $to_subm = 1; + $fieldvalues{'Synopsis'} = $input{'Synopsis'}; + } + + if ($input{"Originator"} && ($input{"Originator"} ne $fieldvalues{'Originator'})) { + $change_msg .= + "Originator-Changed-From-To: $fieldvalues{'Originator'}-$input{'Originator'} + Originator-Changed-By: $input{'Editor'} + Originator-Changed-When: $date + "; + $to_old = $to_subm = 1; + $fieldvalues{'Originator'} = $input{'Originator'}; + } + + if ($input{"Release"} ne $fieldvalues{'Release'}) { + $change_msg .= + "Release-Changed-From-To: $fieldvalues{'Release'}-$input{'Release'} + Release-Changed-By: $input{'Editor'} + Release-Changed-When: $date + "; + $to_old = $to_subm = 1; + $fieldvalues{'Release'} = $input{'Release'}; + } + if ($input{"Class"} ne $fieldvalues{'Class'}) { $change_msg .= "Class-Changed-From-To: $fieldvalues{'Class'}-$input{'Class'} Class-Changed-By: $input{'Editor'} *************** *** 724,729 **** --- 762,769 ---- local($oldsyn) = $fieldvalues{"Synopsis"}; local($oldstate) = $fieldvalues{"State"}; local($oldresp) = $fieldvalues{"Responsible"}; + local($oldrel) = $fieldvalues{"Release"}; + local($oldorig) = $fieldvalues{"Originator"}; local($oldclass) = $fieldvalues{"Class"}; local($oldsev) = $fieldvalues{"Severity"}; $oldresp =~ s/\s*\(.*$//; # Get rid of comment in responsible party name *************** *** 756,761 **** --- 796,809 ---- print "</SELECT><BR>\n"; print " + <dt>New synopsis: + <dd><INPUT TYPE=\"text\" NAME=\"Synopsis\" SIZE=80>\n"; + + print " + <dt>Originator: + <dd><INPUT TYPE=\"text\" NAME=\"Originator\" VALUE=\"$oldorig\" SIZE=20>\n"; + + print " <dt>Class: <dd><SELECT NAME=\"Class\">\n"; for (sort (@nClass)) { *************** *** 764,769 **** --- 812,821 ---- print "<OPTION$sel> $_\n"; } print "</SELECT><BR>\n"; + + print " + <dt>Release: + <dd><INPUT TYPE=\"text\" NAME=\"Release\" VALUE=\"$oldrel\" SIZE=20>\n"; print " <dt>Severity: