Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v diff -u -r1.31 -r1.31.2.1 --- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 11 Dec 2002 14:08:09 -0000 1.31 +++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 11 Feb 2004 16:06:51 -0000 1.31.2.1 @@ -188,7 +188,7 @@ # for clubs # Used by en_US messages below set clubs_pretty_name [dotlrn::parameter -name clubs_pretty_name] - set pretty_name [_ dotlrn-static.community_info_portlet_pretty_name] + set pretty_name "#dotlrn-static.community_info_portlet_pretty_name#" set content_id [static_portal_content::new \ -package_id $package_id \ -content "$pretty_name" \ @@ -198,7 +198,7 @@ # for subgroups # Used by en_US messages below set subcommunities_pretty_name [dotlrn::parameter -name subcommunities_pretty_name] - set pretty_name [_ dotlrn-static.subcommunity_info_portlet_pretty_name] + set pretty_name "#dotlrn-static.subcommunity_info_portlet_pretty_name#" set content_id [static_portal_content::new \ -package_id $package_id \ -content "$pretty_name" \ @@ -208,7 +208,7 @@ # for class instances # Used by en_US messages below set class_instances_pretty_name [dotlrn::parameter -name class_instances_pretty_name] - set pretty_name [_ dotlrn-static.class_info_portlet_pretty_name] + set pretty_name "#dotlrn-static.class_info_portlet_pretty_name#" set content_id [static_portal_content::new \ -package_id $package_id \ -content "$pretty_name" \ Index: openacs-4/packages/static-portlet/www/element.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/element.tcl,v diff -u -r1.10 -r1.10.2.1 --- openacs-4/packages/static-portlet/www/element.tcl 22 Oct 2003 14:32:10 -0000 1.10 +++ openacs-4/packages/static-portlet/www/element.tcl 11 Feb 2004 16:06:51 -0000 1.10.2.1 @@ -36,6 +36,7 @@ where content_id = :content_id } +set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name] set org_pretty_name $pretty_name set pretty_name [lang::util::localize $org_pretty_name] Index: openacs-4/packages/static-portlet/www/static-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/static-admin-portlet.tcl,v diff -u -r1.18 -r1.18.2.1 --- openacs-4/packages/static-portlet/www/static-admin-portlet.tcl 21 Oct 2003 14:18:40 -0000 1.18 +++ openacs-4/packages/static-portlet/www/static-admin-portlet.tcl 11 Feb 2004 16:06:51 -0000 1.18.2.1 @@ -58,6 +58,7 @@ from static_portal_content where package_id = :package_id } { + set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name] set pretty_name [lang::util::localize $pretty_name] } Index: openacs-4/packages/static-portlet/www/static-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/static-portlet.tcl,v diff -u -r1.6 -r1.6.6.1 --- openacs-4/packages/static-portlet/www/static-portlet.tcl 9 Aug 2002 18:39:33 -0000 1.6 +++ openacs-4/packages/static-portlet/www/static-portlet.tcl 11 Feb 2004 16:06:51 -0000 1.6.6.1 @@ -34,3 +34,7 @@ from static_portal_content where content_id = :content_id }] + +# The pretty_name can be a message catalog key +set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name] +set pretty_name [lang::util::localize $pretty_name]