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

[droeschl]

droeschl		Thu Feb 19 18:01:37 2009 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  Added mt calls.
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.201 loncom/interface/lonhtmlcommon.pm:1.202
--- loncom/interface/lonhtmlcommon.pm:1.201	Wed Feb 18 19:28:45 2009
+++ loncom/interface/lonhtmlcommon.pm	Thu Feb 19 18:01:37 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.201 2009/02/18 19:28:45 droeschl Exp $
+# $Id: lonhtmlcommon.pm,v 1.202 2009/02/19 18:01:37 droeschl Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2091,15 +2091,15 @@
                             $img->("", {
                                 class => "LC_noBorder LC_middle",
                                 src   => "/res/adm/pages/$$link{icon}",
-                                alt   => defined($$link{alttext}) ?
-                                $$link{alttext} : $$link{linktext}
+                                alt   => mt(defined($$link{alttext}) ?
+                                $$link{alttext} : $$link{linktext})
                             }), {
                             href  => $$link{url},
-                            title => $$link{linktitle}
+                            title => mt($$link{linktitle})
                             }).
-                        $a->($$link{linktext}, {
+                        $a->(mt($$link{linktext}), {
                             href  => $$link{url},
-                            title => $$link{linktitle},
+                            title => mt($$link{linktitle}),
                             class => "LC_menubuttons_link"
                             }).
                          (defined($$link{help}) ? 
@@ -2115,7 +2115,7 @@
         # <div><h3>title</h3><ul><li>...</li>...</ul></div>
         # the category won't be added if there aren't any links
         push @categories, 
-            $div->($h3->($$category{categorytitle}, {class=>"LC_hcell"}).
+            $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
             $ul->(join('' ,@links),  {class =>"LC_ListStyleNormal" }),
             {class=>"LC_ContentBoxSpecial"}) if scalar(@links);
     }