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

1 files changed, 15 insertions, 1 deletions

diff --git a/process_bug.cgi b/process_bug.cgi
index 3468a9790..7325d4765 100755
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -120,9 +120,23 @@ foreach my $field ("dependson", "blocked") {
 ######################################################################
 
 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.
-$vars->{'title'} = "Bug processed";
 $template->process("global/header.html.tmpl", $vars)
   || ThrowTemplateError($template->error());