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 |
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 |
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. |
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) { |
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 |
|
|