From 22c7490c4dafeeceda935e9416a29b54d9bfa03e Mon Sep 17 00:00:00 2001
From: "kestes%walrus.com"
 <kestes%walrus.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 3 Dec 2001 19:50:00 +0000
Subject: [PATCH] add link back to the current status page from which ever
 status page you are looking at.

git-svn-id: svn://10.0.0.236/trunk@109537 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/tinderbox2/src/bin/tinder.cgi | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/mozilla/webtools/tinderbox2/src/bin/tinder.cgi b/mozilla/webtools/tinderbox2/src/bin/tinder.cgi
index aaf3d7b116c..6ec5e5cdc25 100755
--- a/mozilla/webtools/tinderbox2/src/bin/tinder.cgi
+++ b/mozilla/webtools/tinderbox2/src/bin/tinder.cgi
@@ -2,8 +2,8 @@
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 
-# $Revision: 1.18 $ 
-# $Date: 2001-10-18 16:19:59 $ 
+# $Revision: 1.19 $ 
+# $Date: 2001-12-03 19:50:00 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/bin/tinder.cgi,v $ 
 # $Name: not supported by cvs2svn $ 
@@ -286,6 +286,8 @@ sub HTML_status_page {
 
   my ($times_vec, $tree, ) = @_;
 
+  my ($status_page_url) = (FileStructure::get_filename($tree, 'tree_URL').
+                           "/status.html");
 
   my ($out) = '';
 
@@ -368,6 +370,11 @@ sub HTML_status_page {
                              "start-time=$next_date\&".
                              "display-hours=$display_8hours"),
                    ).
+   "<br>\n".
+    HTMLPopUp::Link(
+                    "linktxt"=>"Show current status", 
+                    "href"=>$status_page_url,
+                   ).
    "<br><p>\n\n".
     HTMLPopUp::Link(
                     "linktxt"=>"Add to Notice Board",