Bug 170075 - Mid-air collision pages should be titled as such. Patch by gerv; r=bbaetz.

This commit is contained in:
gerv%gerv.net 2002-09-22 20:28:25 +00:00
Родитель 42b7fa026d
Коммит e931ee5476
1 изменённых файлов: 15 добавлений и 1 удалений

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

@ -120,9 +120,23 @@ foreach my $field ("dependson", "blocked") {
###################################################################### ######################################################################
print "Content-type: text/html\n\n"; print "Content-type: text/html\n\n";
$vars->{'title'} = "Bug processed";
# Set the title if we can see a mid-air coming. This test may have false
# negatives, but never false positives, and should catch the majority of cases.
# It only works at all in the single bug case.
if (defined($::FORM{'id'})) {
SendSQL("SELECT delta_ts FROM bugs WHERE bug_id = $::FORM{'id'}");
my $delta_ts = FetchOneColumn();
if (defined $::FORM{'delta_ts'} && $delta_ts &&
$::FORM{'delta_ts'} ne $delta_ts)
{
$vars->{'title'} = "Mid-air collision!";
}
}
# Start displaying the response page. # Start displaying the response page.
$vars->{'title'} = "Bug processed";
$template->process("global/header.html.tmpl", $vars) $template->process("global/header.html.tmpl", $vars)
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());