Patch for gnatsweb.pl

[Robert Lupton the Good]

(This is my "patch.4")

This patch:
        1/ Allows the sendpr_intro_$lc_fieldname callback to modify
        the lists of fields for that field

        2/ Provides a callback (submitnewpr) for the user when the
        PR is being submitted.

I use this to add "<default>" to the list of possible Responsible
people, and then remove it if it's still there.  This means that my
users have the option of overriding the default Responsible Person
when the submit a PR.


                                        R

*** gnatsweb.pl Wed Sep 11 14:12:31 2002
--- /u/dss/cgi-bin/gnatsweb-v4.pl       Thu Sep 12 08:58:55 2002
***************
*** 1057,1063 ****
  
      # The "intro" provides a way for the site callback to print something
      # at the top of a given field.
!     my $intro = cb("sendpr_intro_$lc_fieldname", $field_number) || '';
  
      print "<tr><td valign=\"top\" width=\"20%\"><b>$_:</b><br><small>\n",
            fieldinfo($_, 'desc'),
--- 1057,1063 ----
  
      # The "intro" provides a way for the site callback to print something
      # at the top of a given field.
!     my $intro = cb("sendpr_intro_$lc_fieldname", $field_number, @values) || 
'';
  
      print "<tr><td valign=\"top\" width=\"20%\"><b>$_:</b><br><small>\n",
            fieldinfo($_, 'desc'),
***************
*** 1183,1188 ****
--- 1183,1190 ----
        $val = unparse_multienum(address@hidden, $key);
      }
      $fields{$key} = $val;
+ 
+     cb("submitnewpr", $key, \%fields);
    }
  
    # Make sure the pr is valid.