+@doc.title@
@context;noquote@
-Group type administration
-Currently, the system is able to handle the following types of groups:
+@doc.title@
+#acs-subsite.Currently_the_system_is#:
+
+ #acs-subsite.Define_a_new_group_type#
+
Index: openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl 17 May 2003 09:59:47 -0000 1.3
+++ openacs-4/packages/acs-subsite/www/admin/group-types/index.tcl 15 Apr 2011 11:43:48 -0000 1.4
@@ -13,7 +13,8 @@
group_types:multirow
}
-set context [list "Group types"]
+set doc(title) [_ acs-subsite.Group_type_administration]
+set context [list [_ acs-subsite.Group_Types]]
# we may want to move the inner count to get the number of groups of
# each type to its own pl/sql function. That way, we execute the
Index: openacs-4/packages/acs-subsite/www/admin/group-types/new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/new.adp,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/group-types/new.adp 22 May 2003 14:08:19 -0000 1.3
+++ openacs-4/packages/acs-subsite/www/admin/group-types/new.adp 15 Apr 2011 11:43:48 -0000 1.4
@@ -1,6 +1,8 @@
@context;noquote@
-Add group type
+@doc.title@
group_type.object_type
+@doc.title@
+
Index: openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl 22 Jul 2005 19:38:06 -0000 1.4
+++ openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl 15 Apr 2011 11:43:48 -0000 1.5
@@ -16,13 +16,14 @@
context:onevalue
}
-set context [list [list "[ad_conn package_url]admin/group-types/" "Group types"] "Add type"]
+set doc(title) [_ acs-subsite.Add_group_type]
+set context [list [list "[ad_conn package_url]admin/group-types/" [_ acs-subsite.Group_Types]] [_ acs-subsite.Add_type]]
template::form create group_type
template::element create group_type object_type \
-datatype "text" \
- -label "Group type" \
+ -label "[_ acs-subsite.Group_type]" \
-html { size 30 maxlength 30 }
set supertype_options [db_list_of_lists "select_group_supertypes" {
@@ -38,16 +39,16 @@
-datatype "text" \
-widget select \
-options $supertype_options_i18n \
- -label "Supertype"
+ -label "[_ acs-subsite.Supertype]"
template::element create group_type pretty_name \
-datatype "text" \
- -label "Pretty name" \
+ -label "[_ acs-subsite.Pretty_name]" \
-html { size 50 maxlength 100 }
template::element create group_type pretty_plural \
-datatype "text" \
- -label "Pretty plural" \
+ -label "[_ acs-subsite.Pretty_plural]" \
-html { size 50 maxlength 100 }
set approval_policy_options {
Index: openacs-4/packages/acs-subsite/www/admin/group-types/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/one.adp,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/group-types/one.adp 22 May 2003 14:08:19 -0000 1.5
+++ openacs-4/packages/acs-subsite/www/admin/group-types/one.adp 15 Apr 2011 11:43:48 -0000 1.6
@@ -1,85 +1,89 @@
@context;noquote@
-Group Type "@group_type_pretty_name;noquote@"
+@doc.title@
-Groups of this type
+@doc.title@
+#acs-subsite.Groups_of_this_type#
+
+
-Attributes of this type of group
+#acs-subsite.Attributes_of_this_type_of_group#
+
-Default allowed relationship types
+#acs-subsite.Default_allowed_relationship_types#
-You can specify the default types of relationships that can be used
-for groups of this type. Note that each group can later change its
-allowed relationship types.
+#acs-subsite.You_can_specify_the_default_types_of#
+
+#acs-subsite.Administration#
-Administration
-
-
Index: openacs-4/packages/acs-subsite/www/admin/group-types/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/one.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/group-types/one.tcl 17 May 2003 09:59:47 -0000 1.4
+++ openacs-4/packages/acs-subsite/www/admin/group-types/one.tcl 15 Apr 2011 11:43:48 -0000 1.5
@@ -29,8 +29,6 @@
set package_id [ad_conn package_id]
-set context [list [list "[ad_conn package_url]admin/group-types/" "Group types"] "One type"]
-
if { ![db_0or1row select_pretty_name {
select t.pretty_name as group_type_pretty_name, t.dynamic_p,
nvl(gt.default_join_policy, 'open') as default_join_policy
@@ -42,6 +40,10 @@
return
}
+set doc(title) [_ acs-subsite.Details_for__group_type_pretty_name]
+
+set context [list [list "[ad_conn package_url]admin/group-types/" [_ acs-subsite.Group_Types]] $group_type_pretty_name]
+
# Pull out the first 25 groups of this type. If there are more, we'll
# offer a link to display them all. Alphabetize the first 25 groups
@@ -63,7 +65,7 @@
}
# Select out all the attributes for groups of this type
-db_multirow attributes attributes_select {
+db_multirow -extend {one_attribute_url} attributes attributes_select {
select a.attribute_id, a.pretty_name,
a.ancestor_type, t.pretty_name as ancestor_pretty_name
from acs_object_type_attributes a,
@@ -74,9 +76,13 @@
where a.object_type = :group_type
and t.object_type = a.ancestor_type
order by type_level
+} {
+
+ set one_attribute_url [export_vars -url -base "../attributes/one" {attribute_id {return_url $return_url_enc}}]
}
+
# Select out all the allowed relationship types
db_multirow allowed_relations relations_select {
select t.pretty_name, g.rel_type, g.group_rel_type_id
@@ -89,4 +95,11 @@
# See if we need to offer a link to add a rel type
set more_relation_types_p [rel_types::additional_rel_types_p -group_type $group_type]
+set add_group_url [export_vars -url -base "../parties/new" {{party_type $group_type} {add_with_rel_type composition_rel} {return_url $return_url_enc}}]
+
+set add_attribute_url [export_vars -url -base "../attributes/add" {{object_type $group_type} {return_url $return_url_enc}}]
+
+
+
+
ad_return_template
Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.adp,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.adp 22 May 2003 14:08:19 -0000 1.4
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.adp 15 Apr 2011 11:43:48 -0000 1.5
@@ -1,35 +1,35 @@
@context;noquote@
-Add permissible relationship type
-
+@doc.title@
+
+
+#acs-subsite.Add_relationship_for_group__group_type#
+
- There are no other relationship types that you can add. You can
- create a new relationship type if you like.
+ There are no other relationship types that you can add. You can create a new relationship type if you like.
-
-
-
Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl 6 Sep 2002 21:49:58 -0000 1.3
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl 15 Apr 2011 11:43:48 -0000 1.4
@@ -19,9 +19,11 @@
}
set return_url_enc [ad_urlencode "[ad_conn url]?[ad_conn query]"]
-set context [list [list "[ad_conn package_url]admin/group-types/" "Group types"] [list one?[ad_export_vars {group_type}] "One type"] "Add relation type"]
+set doc(title) [_ acs-subsite.Add_a_permissible_relationship_type]
+set context [list [list "[ad_conn package_url]admin/group-types/" [_ acs-subsite.Group_Types]] [list one?[ad_export_vars {group_type}] $group_type] $doc(title)]
+
# Select out all the relationship types that are not currently
# specified for this group type. Note that we use acs_object_types so
# that we can probably indent subtypes. We use acs_rel_types to ensure