Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-relationships-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-relationships-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-kernel/sql/postgresql/acs-relationships-create.sql	17 Apr 2001 23:41:36 -0000	1.7
+++ openacs-4/packages/acs-kernel/sql/postgresql/acs-relationships-create.sql	28 Aug 2001 23:51:53 -0000	1.8
@@ -81,61 +81,6 @@
  </blockquote>
 ';
 
--- create or replace package acs_rel_type
--- as
--- 
---   procedure create_role (
---     role	  in acs_rel_roles.role%TYPE,
---     pretty_name   in acs_rel_roles.pretty_name%TYPE default null,
---     pretty_plural in acs_rel_roles.pretty_plural%TYPE default null
---   );
--- 
---   procedure drop_role (
---     role	in acs_rel_roles.role%TYPE
---   );
--- 
---   function role_pretty_name (
---     role	in acs_rel_roles.role%TYPE
---   ) return acs_rel_roles.pretty_name%TYPE;
--- 
---   function role_pretty_plural (
---     role	in acs_rel_roles.role%TYPE
---   ) return acs_rel_roles.pretty_plural%TYPE;
--- 
---   procedure create_type (
---     rel_type		in acs_rel_types.rel_type%TYPE,
---     pretty_name		in acs_object_types.pretty_name%TYPE,
---     pretty_plural	in acs_object_types.pretty_plural%TYPE,
---     supertype		in acs_object_types.supertype%TYPE
--- 			   default 'relationship',
---     table_name		in acs_object_types.table_name%TYPE,
---     id_column		in acs_object_types.id_column%TYPE,
---     package_name	in acs_object_types.package_name%TYPE,
---     abstract_p		in acs_object_types.abstract_p%TYPE default 'f',
---     type_extension_table in acs_object_types.type_extension_table%TYPE
--- 			    default null,
---     name_method		in acs_object_types.name_method%TYPE default null,
---     object_type_one	in acs_rel_types.object_type_one%TYPE,
---     role_one		in acs_rel_types.role_one%TYPE default null,
---     min_n_rels_one	in acs_rel_types.min_n_rels_one%TYPE,
---     max_n_rels_one	in acs_rel_types.max_n_rels_one%TYPE,
---     object_type_two	in acs_rel_types.object_type_two%TYPE,
---     role_two		in acs_rel_types.role_two%TYPE default null,
---     min_n_rels_two	in acs_rel_types.min_n_rels_two%TYPE,
---     max_n_rels_two	in acs_rel_types.max_n_rels_two%TYPE
---   );
--- 
---   procedure drop_type (
---     rel_type		in acs_rel_types.rel_type%TYPE,
---     cascade_p		in char default 'f'
---   );
--- 
--- end acs_rel_type;
-
--- show errors
-
--- create or replace package body acs_rel_type
--- procedure create_role
 create function acs_rel_type__create_role (varchar,varchar,varchar)
 returns integer as '
 declare
@@ -151,7 +96,16 @@
     return 0; 
 end;' language 'plpgsql';
 
+create function acs_rel_type__create_role (varchar)
+returns integer as '
+declare
+  create_role__role                   alias for $1;  
+begin
+    perform acs_rel_type__create_role(create_role__role, NULL, NULL);
+    return 0; 
+end;' language 'plpgsql';
 
+
 -- procedure drop_role
 create function acs_rel_type__drop_role (varchar)
 returns integer as '
