force the use of Link, since this is my design that all links use this.

This will quiet some of my tests.

webtools/tinderbox2/src/bin/regenerate.cgi

@@ -7,8 +7,8 @@
 #		 columns from being shown on the default pages.
 
 
-# $Revision: 1.11 $ 
-# $Date: 2002-05-02 01:40:42 $ 
+# $Revision: 1.12 $ 
+# $Date: 2002-12-09 18:17:00 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/bin/regenerate.cgi,v $ 
 # $Name:  $ 
@@ -60,13 +60,18 @@ use FileStructure;
 
     my ($tree) = $form{'tree'};
 
-    $url = (
-            FileStructure::get_filename($tree, 'tree_URL').
-            '/'.
-            $FileStructure::DEFAULT_HTML_PAGE
-            );
+    my ($url) = (
+               FileStructure::get_filename($tree, 'tree_URL').
+                 '/'.
+                 $FileStructure::DEFAULT_HTML_PAGE
+                 );
 
-    $out = <<EOF;
+    my ($link) = HTMLPopUp::Link(
+                                 "linktxt"=>"Tinderbox page",
+                                 "href"=>$url,
+                                 );
+
+    my ($out) = <<EOF;
 Content-type: text/html
 
 <TITLE>tinderbox</TITLE>
@@ -78,7 +83,7 @@ Content-type: text/html
 <FONT SIZE="+2">
 Regenerating HTML now.<br>
 Please refresh the page when the redirect is complete.<br>
-Sending you back to the regenerated <A HREF="$url">Tinderbox page</A>.
+Sending you back to the regenerated $link.<br>
 </FONT>
 </TD></TR></TABLE>
 </CENTER>