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] &amp; ",
        "<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] &amp; ",
        "<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:
  
  
  

Reply via email to