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"
             ]
         }