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"),
).
+ "
\n".
+ HTMLPopUp::Link(
+ "linktxt"=>"Show current status",
+ "href"=>$status_page_url,
+ ).
"
\n\n". HTMLPopUp::Link( "linktxt"=>"Add to Notice Board",