From 91906ecaf434dda8b186f611b51c70a07d7662f6 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Mon, 23 Sep 2002 03:28:25 +0000
Subject: Bug 170075 - Mid-air collision pages should be titled as such. Patch
 by gerv; r=bbaetz.

---
 process_bug.cgi | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'process_bug.cgi')

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());
 
-- 
cgit v1.2.3-24-g4f1b