Landing fix for bug 153811: default severity should be parametrized.

r,a=myk.
This commit is contained in:
kiko%async.com.br 2004-09-24 20:41:30 +00:00
Родитель 744bc2b079
Коммит d1ab62e597
2 изменённых файлов: 19 добавлений и 1 удалений

Просмотреть файл

@ -66,6 +66,16 @@ sub check_priority {
return "";
}
sub check_severity {
my ($value) = (@_);
&::GetVersionTable();
if (lsearch(\@::legal_severity, $value) < 0) {
return "Must be a legal severity value: one of " .
join(", ", @::legal_severity);
}
return "";
}
sub check_platform {
my ($value) = (@_);
&::GetVersionTable();
@ -760,6 +770,14 @@ You will get this message once a day until you\'ve dealt with these bugs!
checker => \&check_priority
},
{
name => 'defaultseverity',
desc => 'This is the severity that newly entered bugs are set to.',
type => 't',
default => 'normal',
checker => \&check_severity
},
{
name => 'defaultplatform',
desc => 'This is the platform that is preselected on the bug '.

Просмотреть файл

@ -327,7 +327,7 @@ $vars->{'priority'} = \@legal_priority;
$default{'priority'} = formvalue('priority', Param('defaultpriority'));
$vars->{'bug_severity'} = \@legal_severity;
$default{'bug_severity'} = formvalue('bug_severity', 'normal');
$default{'bug_severity'} = formvalue('bug_severity', Param('defaultseverity'));
$vars->{'rep_platform'} = \@legal_platform;
$default{'rep_platform'} = pickplatform();