Index: openacs-4/packages/contacts/www/admin/role-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/role-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/admin/role-ae.tcl	18 May 2005 16:45:50 -0000	1.1
+++ openacs-4/packages/contacts/www/admin/role-ae.tcl	4 Jun 2005 12:36:45 -0000	1.2
@@ -39,19 +39,15 @@
 	-html {maxlength 100}
 
 if { [template::form is_valid role_form] } {
-    set role [util_text_to_url -text $pretty_name -replacement "_" -existing_urls [db_list get_roles { select role from acs_rel_roles }]]
     if { [db_string role_exists_with_same_names_p {
 	select count(r.role) from acs_rel_roles r where r.pretty_name = :pretty_name or r.pretty_plural = :pretty_plural
     }] } {
 	ad_return_complaint 1 "<li> The role you entered \"$pretty_name\" or the plural \"$pretty_plural\" already exists."
 	return
     }
 
-    db_transaction {
-	db_exec_plsql create_role {
-	    select acs_rel_type__create_role(:role, :pretty_name, :pretty_plural)
-	}
-    }
+    rel_types::create_role -pretty_name $pretty_name -pretty_plural $pretty_plural
+
     ad_returnredirect $return_url
     ad_script_abort
 }