Index: openacs-4/packages/dotlrn-static/catalog/dotlrn-static.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/catalog/dotlrn-static.en_US.ISO-8859-1.xml,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-static/catalog/dotlrn-static.en_US.ISO-8859-1.xml	10 Nov 2002 20:18:04 -0000	1.1
+++ openacs-4/packages/dotlrn-static/catalog/dotlrn-static.en_US.ISO-8859-1.xml	11 Dec 2002 14:08:09 -0000	1.2
@@ -1,6 +1,9 @@
 <?xml version="1.0"?>
-<!-- Generated by lang::catalog::export_package_to_files on 2002 October 29 19:17 -->
+<!-- Generated by lang::catalog::export_package_to_files on 2002 December 05 21:34 -->
 <message_catalog package_key="dotlrn-static" locale="en_US" charset="ISO-8859-1">
 
+  <msg key="class_info_portlet_pretty_name">%class_instances_pretty_name% Info</msg>
+  <msg key="community_info_portlet_pretty_name">%clubs_pretty_name% Info</msg>
   <msg key="Static_HTML_Data">Static (HTML) Data</msg>
+  <msg key="subcommunity_info_portlet_pretty_name">%subcommunities_pretty_name% Info</msg>
 </message_catalog>
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.30 -r1.31
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	12 Nov 2002 09:44:34 -0000	1.30
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	11 Dec 2002 14:08:09 -0000	1.31
@@ -186,24 +186,33 @@
             return
         } elseif {[string equal $type "dotlrn_club"]} {
             # 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 content_id [static_portal_content::new \
                                 -package_id $package_id \
-                                -content "[dotlrn::parameter -name clubs_pretty_name] Info" \
-                                -pretty_name "[dotlrn::parameter -name clubs_pretty_name] Info"
+                                -content "$pretty_name" \
+                                -pretty_name "$pretty_name"
             ]
         } elseif {[string equal $type "dotlrn_community"]} {
             # 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 content_id [static_portal_content::new \
                                 -package_id $package_id \
-                                -content  "[dotlrn::parameter -name subcommunities_pretty_name] Info" \
-                                -pretty_name "[dotlrn::parameter -name subcommunities_pretty_name] Info"
+                                -content  "$pretty_name" \
+                                -pretty_name "$pretty_name"
             ]            
         } else {
             # 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 content_id [static_portal_content::new \
                 -package_id $package_id \
-                -content "[dotlrn::parameter -name class_instances_pretty_name] Info" \
-                -pretty_name "[dotlrn::parameter -name class_instances_pretty_name] Info"
+                -content "$pretty_name" \
+                -pretty_name "$pretty_name"
             ]
         }