Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.196 -r1.197
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Oct 2006 12:53:55 -0000	1.196
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Dec 2006 22:45:22 -0000	1.197
@@ -1234,15 +1234,18 @@
                                   -default 0]
 
         foreach sc_id [get_subcomm_list -community_id $community_id] {
+
+	    set url [get_community_url $sc_id]
+	    set subgroup_name [get_community_name $sc_id]
+
             if {[has_subcommunity_p -community_id $sc_id] \
                     && [member_p $sc_id $user_id]} {
                 # Shows the subcomms of this subcomm ONLY IF I'm a
                 # member of the current comm
-                set url [get_community_url $sc_id]
-                append chunk "$pretext <a href=$url>[get_community_name $sc_id]</a>\n"
+                append chunk "$pretext <a href=\"$url\" title=\"[_ dotlrn.goto_subgroup_name]\">$subgroup_name</a>\n"
 
                 if {$show_drop_link_p} {
-                    append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
+                    append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\" title=\"[_ dotlrn.Drop_from_subgroup_name]\">[_ dotlrn.Drop]</a>)\n"
                 }
 
                 append chunk "<ul>\n[get_subcomm_chunk -community_id $sc_id -user_id $user_id -only_member_p $only_member_p]</ul>\n"
@@ -1258,8 +1261,6 @@
                     continue
                 }
 
-                set url [get_community_url $sc_id]
-
                 # We will use the parent_url in our register link because before the user has
                 # registered they can't read the subgroup, and they can't read the subgroup because
                 # they haven't joined it yet.   The semantics enforced by using the parent group's
@@ -1268,25 +1269,25 @@
                 # illicit registrations if the group is closed.
                 set parent_url [get_community_url $community_id]
 
-                append chunk "$pretext <a href=$url>[get_community_name $sc_id]</a>\n"
+                append chunk "$pretext <a href=\"$url\" title=\"[_ dotlrn.goto_subgroup_name]\">$subgroup_name</a>\n"
 
                 if {![member_p $sc_id $user_id] && [not_closed_p -community_id $sc_id]} {
                       append chunk "<nobr>"
 
                       if {[member_pending_p -community_id $sc_id -user_id $user_id]} {
                           append chunk "[_ dotlrn.Pending_Approval]"
                       } elseif {[needs_approval_p -community_id $sc_id]} {
-                          append chunk "<a href=\"${parent_url}${join_target}?[export_vars {{community_id $sc_id} {referer {[ad_conn url]}}}]\">[_ dotlrn.Request_Membership]</a>\n"
+                          append chunk "<a href=\"${parent_url}${join_target}?[export_vars {{community_id $sc_id} {referer {[ad_conn url]}}}]\" title=\"[_ dotlrn.Request_Membership_for_subgroup_name]\">[_ dotlrn.Request_Membership]</a>\n"
                       } else {
-                          append chunk "(<a href=\"${parent_url}${join_target}\?[export_vars {{community_id $sc_id} {referer {[ad_conn url]}}}]\">[_ dotlrn.Join]</a>)\n"
+                          append chunk "(<a href=\"${parent_url}${join_target}\?[export_vars {{community_id $sc_id} {referer {[ad_conn url]}}}]\" title=\"[_ dotlrn.Join_subgroup_name]\">[_ dotlrn.Join]</a>)\n"
                       }
 
                       append chunk "\n"
                 }  elseif {[member_p $sc_id $user_id]} {
 
                     # User is a member.
                     if {$show_drop_link_p} {
-                        append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\">[_ dotlrn.Drop]</a>)\n"
+                        append chunk "(<a href=\"${url}${drop_target}?referer=[ad_conn url]\" title=\"[_ dotlrn.Drop_from_subgroup_name]\">[_ dotlrn.Drop]</a>)\n"
                     }
                 }
             }