/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.114 by yngves, Sun Oct 27 21:45:04 2002 UTC revision 1.115 by yngves, Sun Oct 27 22:33:18 2002 UTC
# Line 35  $site_banner_background $site_banner_for Line 35  $site_banner_background $site_banner_for
35  $site_button_foreground $site_button_background $site_stylesheet  $site_button_foreground $site_button_background $site_stylesheet
36  $include_audit_trail $popup_menu_becomes_obnoxious  $include_audit_trail $popup_menu_becomes_obnoxious
37  $scrolling_menu_default_size $site_background  $scrolling_menu_default_size $site_background
38  $use_temp_db_prefs_cookie $global_cookie_expires $global_cookie_path  $site_required_field_color $use_temp_db_prefs_cookie
39  $textwidth $site_allow_remote_debug $attachment_delimiter  $global_cookie_expires $global_cookie_path $textwidth
40  %mark_urls $gnats_info_top %site_pr_submission_address $VERSION);  $site_allow_remote_debug $attachment_delimiter %mark_urls
41    $gnats_info_top %site_pr_submission_address $VERSION);
42    
43  # dynamic configuration switches, set during initial gnatsd  # dynamic configuration switches, set during initial gnatsd
44  # communication and general setup  # communication and general setup
# Line 176  $scrolling_menu_default_size = 3; Line 177  $scrolling_menu_default_size = 3;
177  #$site_background = '#c0c0c0';  #$site_background = '#c0c0c0';
178  $site_background = undef;  $site_background = undef;
179    
180    # Color to use for marking the names of required fields on the Create
181    # PR page.
182    $site_required_field_color = '#ff0000';
183    
184  # control the mark_urls routine, which "htmlifies" PRs for view_pr.  # control the mark_urls routine, which "htmlifies" PRs for view_pr.
185  # it adds a lot of usability, but can be slow for huge (100K+) fields.  # it adds a lot of usability, but can be slow for huge (100K+) fields.
186  # urls = make links clickable  # urls = make links clickable
# Line 244  my $SENDINCLUDE  = 1;   # whether the se Line 249  my $SENDINCLUDE  = 1;   # whether the se
249  my $REASONCHANGE = 2;   # whether change to a field requires reason  my $REASONCHANGE = 2;   # whether change to a field requires reason
250  my $READONLY  = 4;      # if set, can't be edited  my $READONLY  = 4;      # if set, can't be edited
251  my $AUDITINCLUDE = 8;   # if set, save changes in Audit-Trail  my $AUDITINCLUDE = 8;   # if set, save changes in Audit-Trail
252    my $SENDREQUIRED = 16;  # whether the send command _must_ include this field
253    
254  # The possible values of a server reply type.  $REPLY_CONT means that there  # The possible values of a server reply type.  $REPLY_CONT means that there
255  # are more reply lines that will follow; $REPLY_END Is the final line.  # are more reply lines that will follow; $REPLY_END Is the final line.
# Line 671  sub init_fieldinfo Line 677  sub init_fieldinfo
677    foreach $field (client_cmd ("list InitialInputFields")) {    foreach $field (client_cmd ("list InitialInputFields")) {
678      $fielddata{$field}{flags} |= $SENDINCLUDE;      $fielddata{$field}{flags} |= $SENDINCLUDE;
679    }    }
680      foreach $field (client_cmd ("list InitialRequiredFields")) {
681        $fielddata{$field}{flags} |= $SENDREQUIRED;
682      }
683    if ($debug)    if ($debug)
684    {    {
685      foreach $field (@fieldnames) {      foreach $field (@fieldnames) {
# Line 1060  sub sendpr Line 1069  sub sendpr
1069      # at the top of a given field.      # at the top of a given field.
1070      my $intro = cb("sendpr_intro_$_", $field_number) || '';      my $intro = cb("sendpr_intro_$_", $field_number) || '';
1071    
1072      print "<tr><td valign=\"top\" width=\"20%\"><b>$_:</b><br /><small>\n",      print "<tr><td valign=\"top\" width=\"20%\">";
1073        fieldinfo ($_, 'flags') & $SENDREQUIRED ?
1074              print "<font color=\"$site_required_field_color\"><b>$_</b></font>" : print "<b>$_</b>";
1075        print "<br /><small>\n",
1076            fieldinfo($_, 'desc'),            fieldinfo($_, 'desc'),
1077            "</small></td><td>\n", $intro, "\n";            "</small></td><td>\n", $intro, "\n";
1078    

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26