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.169 -r1.170
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl 10 Oct 2002 06:07:25 -0000 1.169
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 23 Oct 2002 12:38:38 -0000 1.170
@@ -618,12 +618,12 @@
set member_segment_id [rel_segments_new \
$community_id \
dotlrn_member_rel \
- "Members of $community_name" \
+ "[_ dotlrn.Members_of] $community_name" \
]
set admin_segment_id [rel_segments_new \
$community_id \
dotlrn_admin_rel \
- "Admins of $community_name" \
+ "[_ dotlrn.Admins_of] $community_name" \
]
rel_segments_grant_permission -community_id $community_id
}
@@ -1060,7 +1060,8 @@
if {$complain_if_invalid_p && !$valid_p} {
ns_log notice "The name $community_key is already in use either by an active or archived group. \n Please go back and select a different name."
ad_return_complaint 1 \
- "The name $community_key is already in use either by an active or archived group. \n Please go back and select a different name."
+ [_ [ad_conn locale] dotlrn.community_name_already_in_use "" [list community_key $community_key]]
+
ad_script_abort
} else {
return $valid_p
@@ -1184,7 +1185,7 @@
append chunk "\[ "
if {[member_pending_p -community_id $sc_id -user_id $user_id]} {
- append chunk "Pending Approval"
+ append chunk "[_ dotlrn.Pending_Approval]"
} elseif {[needs_approval_p -community_id $sc_id]} {
append chunk ">Request Membership\n"
@@ -2041,3 +2042,4 @@
}
}
+