[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

www lon-capa-cvs@mail.lon-capa.org
Wed, 12 Feb 2003 01:59:35 -0000


www		Tue Feb 11 20:59:35 2003 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Attempt to make help links more distiguishable from functionality links
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.76 loncom/interface/loncommon.pm:1.77
--- loncom/interface/loncommon.pm:1.76	Mon Feb  3 13:03:52 2003
+++ loncom/interface/loncommon.pm	Tue Feb 11 20:59:34 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.76 2003/02/03 18:03:52 harris41 Exp $
+# $Id: loncommon.pm,v 1.77 2003/02/12 01:59:34 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -538,14 +538,16 @@
     # Add the text
     if ($text ne "")
     {
-	$template .= "<a href=\"$link\">$text</a> ";
+	$template .= 
+  "<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".
+  "<td bgcolor='#5555FF'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</a>";
     }
 
     # Add the graphic
     $template .= <<"ENDTEMPLATE";
-<a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a>
+ <a href="$link"><image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Help: $topic)" /></a>
 ENDTEMPLATE
-
+    if ($text ne '') { $template.='</font></td></tr></table>' };
     return $template;
 
 }