capitolize the </a> so it matches the openening character.

webtools/tinderbox2/src/lib/HTMLPopUp/MozillaClick.pm

@@ -6,8 +6,8 @@
 # portable to all browsers.
 
 
-# $Revision: 1.2 $ 
-# $Date: 2003-02-03 13:43:31 $ 
+# $Revision: 1.3 $ 
+# $Date: 2003-04-20 20:25:36 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp/MozillaClick.pm,v $ 
 # $Name:  $ 
@@ -361,7 +361,7 @@ sub Link {
                    "");
     }
     
-    $out .= "<A $name $href $popup>$linktxt</a>";
+    $out .= "<A $name $href $popup>$linktxt</A>";
     
     return $out;
 }

webtools/tinderbox2/src/lib/HTMLPopUp/None.pm

@@ -3,8 +3,8 @@
 # HTMLPopUp::None.pm - the implementation of the header and link
 # command which will be used if no popup menus are desired.
 
-# $Revision: 1.8 $ 
-# $Date: 2003-01-19 17:20:08 $ 
+# $Revision: 1.9 $ 
+# $Date: 2003-04-20 20:25:37 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp/None.pm,v $ 
 # $Name:  $ 
@@ -110,13 +110,15 @@ EOF
 # call the function like this 
 #
 # Link(
-#	  "statuslinetxt"=>"", 
-#	  "windowtxt"=>"", 
-#	  "linktxt"=>"", 
-#	  "name"=>"", 
-#	  "href"=>"",
+#	  "linktxt"=>"text to usually show ", 
+#         "alt_linktxt" => Alternative text to display if there 
+#                           is no popup library installed and the text 
+#                           should be different from the normal linktxt
+#	  "name"=>"so that  other links can point here", 
+#	  "href"=>"where this link will go to",
+#	  "windowtxt"=>"the contents of the popup window", 
 #
-# (arguments with defaults)
+# (These are deprecated: arguments with defaults)
 #
 #	  "windowtitle"=>"", 
 #	  "windowheight"=>"", 
@@ -135,8 +137,9 @@ sub Link {
     $name = "name=\"$args{'name'}\"";
   }
 
-  $out .= "<a $name href=\"$args{'href'}\">";
-  $out .= "$args{'linktxt'}</a>\n";
+  $out .= "<A $name href=\"$args{'href'}\">";
+  $out .= ($args{'alt_linktxt'}) || ($args{'linktxt'});
+  $out .= "</A>\n";
 
   return $out;
 }

webtools/tinderbox2/src/lib/HTMLPopUp/OverLib.pm

@@ -7,8 +7,8 @@
 # Contributed by dominik.stadler@gmx.at 
 
 
-# $Revision: 1.3 $
-# $Date: 2003-04-13 20:44:35 $
+# $Revision: 1.4 $
+# $Date: 2003-04-20 20:25:37 $
 # $Author: kestes%walrus.com $
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp/OverLib.pm,v $
 # $Name:  $
@@ -1520,7 +1520,7 @@ sub Link {
       $href .= "HREF=\"javascript:void(0);\"";
   }
   
-    $out .= "<A $name $href $popup>$linktxt</a>";
+    $out .= "<A $name $href $popup>$linktxt</A>";
     
     return $out;
 }

webtools/tinderbox2/src/lib/HTMLPopUp/PortableLayers.pm

@@ -4,8 +4,8 @@
 # windows using javascript layers written by Elena Dykhno.
 
 
-# $Revision: 1.4 $ 
-# $Date: 2002-05-02 23:15:48 $ 
+# $Revision: 1.5 $ 
+# $Date: 2003-04-20 20:25:37 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp/PortableLayers.pm,v $ 
 # $Name:  $ 
@@ -284,7 +284,7 @@ sub Link {
 
   }
 
-  $out .= ">$args{'linktxt'}</a>";
+  $out .= ">$args{'linktxt'}</A>";
 
   return $out;
 }