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",