httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Rodent of Unusual Size <c...@hyperreal.com>
Subject cvs commit: apache-site bugdb.cgi
Date Wed, 11 Jun 1997 10:20:08 GMT
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> ",
    	    "dank\@alumni.caltech.edu &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> ",
    	    "dank\@alumni.caltech.edu &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:
  
  
  

Mime
View raw message