Index: openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml,v
diff -u -r1.89 -r1.90
--- openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml	15 Apr 2011 10:29:16 -0000	1.89
+++ openacs-4/packages/acs-subsite/catalog/acs-subsite.en_US.ISO-8859-1.xml	15 Apr 2011 11:43:48 -0000	1.90
@@ -28,15 +28,19 @@
   <msg key="Add">Add</msg>
   <msg key="Add_a_group_of_this_type">Add a group of this type</msg>
   <msg key="Add_a_permissible_relationship_type">Add a permissible relationship type</msg>
+  <msg key="Add_an_attribute">Add an attribute</msg>
   <msg key="Add_another_hostname_URL_pair">Add another hostname/URL pair</msg>
   <msg key="Add_application">Add application</msg>
   <msg key="Add_Applications">Add Applications</msg>
   <msg key="add_folder">add folder</msg>
+  <msg key="Add_group_type">Add group type</msg>
   <msg key="Add_multiple_applications">Add multiple applications</msg>
   <msg key="Add_new_app">Add new application</msg>
   <msg key="Add_Pair">Add Pair</msg>
   <msg key="Add_permissible_relationship_type">Add permissible relationship type</msg>
+  <msg key="Add_relationship_for_group__group_type">Add a relationship type for %group_type%</msg>
   <msg key="Add_this_user">Add this user</msg>
+  <msg key="Add_type">Add type</msg>
   <msg key="Add_User">Add User</msg>
   <msg key="Add_users">Add users</msg>
   <msg key="Additional_Information">Additional Information</msg>
@@ -131,13 +135,16 @@
   <msg key="Date_of_birth">Date of birth</msg>
   <msg key="Default_allowed_relationship_types">Default allowed relationship types</msg>
   <msg key="default_context">default context</msg>
+  <msg key="Default_join_policy">Default join policy</msg>
   <msg key="Define_a_new_group_type">Define a new group type</msg>
   <msg key="Define_a_new_relationship_type">Define a new relationship type</msg>
   <msg key="Delete">Delete</msg>
   <msg key="delete">delete</msg>
   <msg key="Delete_selected_app">Delete selected applications</msg>
   <msg key="Delete_this_application">Delete this application</msg>
+  <msg key="Delete_this_group_type">Delete this group type</msg>
   <msg key="Description">Description</msg>
+  <msg key="Details_for__group_type_pretty_name">Details for %group_type_pretty_name%</msg>
   <msg key="DevAdmin">DevAdmin</msg>
   <description key="DevAdmin">Can we please have a description about the purpose of this key?</description>
 
@@ -148,6 +155,7 @@
   <msg key="Domain">Domain</msg>
   <msg key="E_mail">E-mail</msg>
   <msg key="Edit">Edit</msg>
+  <msg key="edit">edit</msg>
   <msg key="Edit_application_name_and_path">Edit application name and path</msg>
   <msg key="edit_asm">Edit Selected Questionnaire</msg>
   <msg key="Edit_caption">Edit Caption</msg>
@@ -215,6 +223,8 @@
   <msg key="go_upload_your_portrait">go upload your portrait</msg>
   <msg key="Grant">Grant</msg>
   <msg key="Grant_Permission">Grant Permission</msg>
+  <msg key="Group_type">Group type</msg>
+  <msg key="Group_type_administration">Group type administration</msg>
   <msg key="Group_Types">Group Types</msg>
   <msg key="Groups">Groups</msg>
   <msg key="Groups_of_this_type">Groups of this type</msg>
@@ -450,6 +460,8 @@
   <msg key="Please_select">-- Please select --</msg>
   <msg key="Portrait">Portrait</msg>
   <msg key="Powered_by_OpenACS">Powered by &lt;a href=&quot;http://openacs.org&quot; title=&quot;The OpenACS Project Homepage&quot;&gt;OpenACS&lt;/a&gt;</msg>
+  <msg key="Pretty_name">Pretty name</msg>
+  <msg key="Pretty_plural">Pretty plural</msg>
   <msg key="Privacy">Privacy</msg>
   <msg key="Problem_auth_no_memb">There was a problem authenticating the account.  Most likely, the database contains users with no member_state.</msg>
   <msg key="Profile">Profile</msg>
Index: openacs-4/packages/acs-subsite/catalog/acs-subsite.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/catalog/acs-subsite.es_ES.ISO-8859-1.xml,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/acs-subsite/catalog/acs-subsite.es_ES.ISO-8859-1.xml	15 Apr 2011 10:29:16 -0000	1.37
+++ openacs-4/packages/acs-subsite/catalog/acs-subsite.es_ES.ISO-8859-1.xml	15 Apr 2011 11:43:48 -0000	1.38
@@ -17,16 +17,20 @@
   <msg key="Action">Acci�n</msg>
   <msg key="Add">A�adir</msg>
   <msg key="Add_a_group_of_this_type">A�adir un grupo de este tipo</msg>
-  <msg key="Add_a_permissible_relationship_type">A�adir un tipo de relaci�n admisible</msg>
+  <msg key="Add_a_permissible_relationship_type">A�adir un tipo de relaci�n</msg>
+  <msg key="Add_an_attribute">A�adir un atributo</msg>
   <msg key="Add_another_hostname_URL_pair">A�adir otra pareja hostname/URL</msg>
   <msg key="Add_application">A�adir aplicaci�n</msg>
   <msg key="Add_Applications">A�adir Aplicaciones</msg>
   <msg key="add_folder">A�adir carpeta</msg>
+  <msg key="Add_group_type">Crear un tipo de grupo</msg>
   <msg key="Add_multiple_applications">A�adir m�ltiples aplicaciones</msg>
   <msg key="Add_new_app">A�adir una nueva aplicaci�n</msg>
   <msg key="Add_Pair">A�adir Pareja</msg>
   <msg key="Add_permissible_relationship_type">A�adir el tipo de relacion admisible</msg>
+  <msg key="Add_relationship_for_group__group_type">A�adir un tipo de relaci�n para %group_type%</msg>
   <msg key="Add_this_user">A�adir este usuario</msg>
+  <msg key="Add_type">Crear tipo</msg>
   <msg key="Add_User">A�adir Usuario</msg>
   <msg key="Add_users">A�adir usuarios</msg>
   <msg key="Additional_Information">Informaci�n Adicional</msg>
@@ -112,13 +116,16 @@
   <msg key="Date_of_birth">Fecha de nacimiento</msg>
   <msg key="Default_allowed_relationship_types">Tipos de relaciones permitidas por defecto</msg>
   <msg key="default_context">contexto por defecto</msg>
+  <msg key="Default_join_policy">Pol�tica de alta</msg>
   <msg key="Define_a_new_group_type">Definir un nuevo tipo de grupo</msg>
   <msg key="Define_a_new_relationship_type">Define un nuevo tipo de relaci�n</msg>
   <msg key="Delete">Borrar</msg>
   <msg key="delete">Borrar</msg>
   <msg key="Delete_selected_app">Borrar aplicaciones seleccionadas</msg>
   <msg key="Delete_this_application">Borrar esta aplicaci�n</msg>
+  <msg key="Delete_this_group_type">Borrar este tipo de grupo</msg>
   <msg key="Description">Descripci�n</msg>
+  <msg key="Details_for__group_type_pretty_name">Detalles de %group_type_pretty_name%</msg>
   <msg key="DevAdmin">Administraci�n de desarrolladores</msg>
   <msg key="Developers_Admin">Administraci�n de desarrolladores</msg>
   <msg key="Direct_Permissions">Permisos directos</msg>
@@ -127,6 +134,7 @@
   <msg key="Domain">Dominio</msg>
   <msg key="E_mail">Email</msg>
   <msg key="Edit">Editar</msg>
+  <msg key="edit">editar</msg>
   <msg key="Edit_application_name_and_path">Editar nombre de la aplicaci�n y la ruta</msg>
   <msg key="edit_asm">Editar el Cuestionario Seleccionado</msg>
   <msg key="Edit_caption">Editar Leyenda</msg>
@@ -182,6 +190,8 @@
   <msg key="go_upload_your_portrait">subir su foto</msg>
   <msg key="Grant">Otorgar</msg>
   <msg key="Grant_Permission">Autorizar</msg>
+  <msg key="Group_type">Tipo de grupo</msg>
+  <msg key="Group_type_administration">Administraci�n de tipos de grupos</msg>
   <msg key="Group_Types">Tipos de Grupo</msg>
   <msg key="Groups">Grupos</msg>
   <msg key="Groups_of_this_type">Grupos de este tipo</msg>
@@ -377,6 +387,8 @@
   <msg key="Please_select">-- Por favor selecciona --</msg>
   <msg key="Portrait">Foto</msg>
   <msg key="Powered_by_OpenACS">Powered by &lt;a href=&quot;http://openacs.org&quot; title=&quot;The OpenACS Project Homepage&quot;&gt;OpenACS&lt;/a&gt;</msg>
+  <msg key="Pretty_name">Nombre</msg>
+  <msg key="Pretty_plural">Nombre en plural</msg>
   <msg key="Privacy">Privacidad</msg>
   <msg key="Problem_auth_no_memb">Hubo un problema autenticando la cuenta. Probablemente la base de datos contiene usuarios sin member_state</msg>
   <msg key="Profile">Perfil</msg>
Index: openacs-4/packages/acs-subsite/www/admin/group-types/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/index.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/group-types/index.adp	30 Aug 2003 15:37:49 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/group-types/index.adp	15 Apr 2011 11:43:48 -0000	1.5
@@ -1,24 +1,26 @@
 <master>
+<property name="doc(title)">@doc.title@</property>
 <property name="context">@context;noquote@</property>
-<property name="title">Group type administration</property>
 
-Currently, the system is able to handle the following types of groups: 
+<h1>@doc.title@</h1>
 
+<p>#acs-subsite.Currently_the_system_is#:</p>
+
 <ul>
 
   <if @group_types:rowcount@ eq 0>
-    <li>(none)</li>
+    <li>#acs-subsite.none#</li>
   </if>
   <else>
   
   <multiple name="group_types">
-    <li> @group_types.indent;noquote@<a href="one?group_type=@group_types.group_type@">@group_types.pretty_plural@</a> (number of groups defined: @group_types.number_groups@)
+    <li> @group_types.indent;noquote@<a href="one?group_type=@group_types.group_type@">@group_types.pretty_plural@</a> (#acs-subsite.number_of_groups_defined#: @group_types.number_groups@)
     </li>
   </multiple>
 
   </else>
 
-  <p>
-  <li><a href="new">Define a new group type</a>
 </ul>
 
+  <p><a href="new" class="button">#acs-subsite.Define_a_new_group_type#</a></p>
+
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 -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 -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 @@
 <master>
 <property name="context">@context;noquote@</property>
-<property name="title">Add group type</property>
+<property name="doc(title)">@doc.title@</property>
 <property name="focus">group_type.object_type</property>
 
+<h1>@doc.title@</h1>
+
 <formtemplate id="group_type"></formtemplate>
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 -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 -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 @@
 <master>
 <property name="context">@context;noquote@</property>
-<property name="title">Group Type "@group_type_pretty_name;noquote@"</property>
+<property name="doc(title)">@doc.title@</property>
 				   
-<h4>Groups of this type</h4>
+<h1>@doc.title@</h1>
 
+<h2>#acs-subsite.Groups_of_this_type#</h2>
+
 <ul>
   <if @groups:rowcount@ eq 0>
-    <li>(none)</li>
+    <li>(#acs-subsite.none#)</li>
   </if>
   <else>
     <multiple name="groups">
       <if @groups.rownum@ gt 25>
-        <li> <a href="groups-display?group_type=@group_type_enc@">View all groups of this type</a> </li>
+        <li> <a href="groups-display?group_type=@group_type_enc@">#acs-subsite.View_all_groups_of_this_type#</a> </li>
       </if>
       <else>
         <li> <a href="../groups/one?group_id=@groups.group_id@">@groups.group_name@</a> </li>
       </else>
     </multiple>
   </else>
-
-  <p><li> <a href=../parties/new?party_type=@group_type_enc@&add_with_rel_type=composition_rel&return_url=@return_url_enc@>Add a group of this type</a>
 </ul>
+<ul>
+  <li><a href="@add_group_url@">#acs-subsite.Add_a_group_of_this_type#</a></li>
+</ul>
 
-<h4>Attributes of this type of group</h4>
+<h2>#acs-subsite.Attributes_of_this_type_of_group#</h2>
 
 <ul>
   <multiple name="attributes">
     <if @attributes.ancestor_type@ eq @group_type_enc@>
-      <li> <a href="../attributes/one?attribute_id=@attributes.attribute_id@&return_url=@return_url_enc@">@attributes.pretty_name@</a> 
-    </if><else>
-      <li> @attributes.pretty_name@ (via <a href=one?group_type=@attributes.ancestor_type@>@attributes.ancestor_pretty_name@</a>) 
+      <li><a href="@attributes.one_attribute_url@">@attributes.pretty_name@</a></li>
+    </if>
+    <else>
+      <li>@attributes.pretty_name@ (via <a href="one?group_type=@attributes.ancestor_type@">@attributes.ancestor_pretty_name@</a>)</li>
     </else>
-    </li>
   </multiple>
 
   <if @attributes:rowcount@ eq 0>
-    <li>(none)</li>
+    <li>#acs-subsite.none#</li>
   </if>
-
+</ul>
+<ul>
   <if @dynamic_p@ eq "t"> 
-      <p><li> <a href="../attributes/add?object_type=@group_type_enc@&return_url=@return_url_enc@">Add an attribute</a>
-  </if><else>
-      <p><li> Attributes can only be added by programmers since this object type is not dynamically created
+      <li><a href="@add_attribute_url@">#acs-subsite.Add_an_attribute#</a></li>
+  </if>
+  <else>
+      <li>#acs-subsite.Attributes_can_only_be_added_by_programmers#</li>
   </else>
-
 </ul>
 
 
-<h4>Default allowed relationship types</h4>
+<h2>#acs-subsite.Default_allowed_relationship_types#</h2>
 
-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.
+<p>#acs-subsite.You_can_specify_the_default_types_of#</p>
 
 <ul>
 
   <if @allowed_relations:rowcount@ eq 0>
-    <li>(none)</li>
-  </if></else>
+    <li>#acs-subsite.none#</li>
+  </if>
+  <else>
     <multiple name="allowed_relations">
-      <li> <a href=../rel-types/one?rel_type=@allowed_relations.rel_type@>@allowed_relations.pretty_name@</a> (<a href=rel-type-remove?group_rel_type_id=@allowed_relations.group_rel_type_id@>remove</a>)
+      <li><a href="../rel-types/one?rel_type=@allowed_relations.rel_type@">@allowed_relations.pretty_name@</a> (<a href="rel-type-remove?group_rel_type_id=@allowed_relations.group_rel_type_id@">#acs-subsite.remove#</a>)</li>
     </multiple>
   </else>
-
-  <p><li> <a href="rel-type-add?group_type=@group_type_enc@">Add a permissible relationship type</a> </li>
 </ul>
+<ul>
+  <li><a href="rel-type-add?group_type=@group_type_enc@">#acs-subsite.Add_a_permissible_relationship_type#</a></li>
+</ul>
 
 
+<h2>#acs-subsite.Administration#</h2>
 
-<h4>Administration</h4>
-
 <ul>
   <if @dynamic_p@ eq "t"> 
 
-      <li> Default join policy: @default_join_policy@
-           (<a href=change-join-policy?group_type=@group_type_enc@>edit</a>)
-
-      <li> <a href=delete?group_type=@group_type_enc@>Delete this group type</a>
-  </if><else>
-      <li> This group type can only be administered by programmers
+      <li>#acs-subsite.Default_join_policy#: @default_join_policy@
+           (<a href="change-join-policy?group_type=@group_type_enc@">#acs-subsite.edit#</a>)
+        </li>
+      <li> <a href="delete?group_type=@group_type_enc@">#acs-subsite.Delete_this_group_type#</a>
+      </li>
+  </if>
+  <else>
+      <li>#acs-subsite.This_group_type_can_only_be_administered_by_programmers#</li>
   </else>
 
 </ul>
-
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
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 -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 @@
 <master>
 <property name="context">@context;noquote@</property>
-<property name="title">Add permissible relationship type</property>
-				   
+<property name="doc(title)">@doc.title@</property>
+				  
+
+<h1>#acs-subsite.Add_relationship_for_group__group_type#</h1>
+
 <if @primary_rels:rowcount@ eq "0">
-  There are no other relationship types that you can add. You can
-  <a href=../rel-types/new?return_url=@return_url_enc@>create a new relationship type</a> if you like.
+  <p>There are no other relationship types that you can add. You can <a href=../rel-types/new?return_url=@return_url_enc@>create a new relationship type</a> if you like.</p>
 </if>
 <else>
-<form method=get action=rel-type-add-2>
-@export_vars;noquote@
+<form method="get" action="rel-type-add-2">
+<div>@export_vars;noquote@</div>
 
-Select relation type:
+<div>
+  <label for="rel_type">#acs-subsite.Select_relation_type#
 
-<select name="rel_type">
-  <option value="" selected> -- Please select --
-<multiple name="primary_rels">
-  <option value="@primary_rels.rel_type@"> @primary_rels.indent@ @primary_rels.pretty_name@
-</multiple>
-</select>
+  <select name="rel_type" id="rel_type">
+  <option value="" selected> #acs-subsite.Please_select#</option>
+  <multiple name="primary_rels">
+    <option value="@primary_rels.rel_type@"> @primary_rels.indent;noquote@ @primary_rels.pretty_name@</option>
+  </multiple>
+  </select>
+  </label>
+  <input type="submit" value="OK">
+</div>
 
-<center>
-<input type=submit>
-</center>
-
 </form>
 
-<ul>
+<p>
+  <a href="../rel-types/new?return_url=@return_url_enc@" class="button">#acs-subsite.create_a_new_relationship_type#</a>
+</p>
 
-  <li> <a href=../rel-types/new?return_url=@return_url_enc@>create a new relationship type</a> </li>
-
-</ul>
-
 </else>
 
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 -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