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 -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