Index: openacs-4/packages/acs-subsite/www/admin/rel-types/roles/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/roles/new.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/rel-types/roles/new.tcl	18 Sep 2002 12:16:43 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/roles/new.tcl	22 Jul 2005 02:33:22 -0000	1.5
@@ -52,9 +52,7 @@
     }
 
     db_transaction {
-	db_exec_plsql create_role {
-	    begin acs_rel_type.create_role(role => :role, pretty_name => :pretty_name, pretty_plural => :pretty_plural); end;
-	}
+        rel_types::create_role -pretty_name $pretty_name -pretty_plural $pretty_plural -role $role
     }
     ad_returnredirect $return_url
     ad_script_abort