Index: openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql 20 Apr 2001 02:03:49 -0000 1.6 +++ openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql 2 Jul 2002 21:16:06 -0000 1.7 @@ -14,8 +14,7 @@ -- PACKAGE BODY -- ------------------ --- create or replace package body rel_segment --- function new +-- rel_segment__new -- full version create function rel_segment__new (integer,varchar,timestamp,integer,varchar,varchar,varchar,varchar,integer,varchar,integer) returns integer as ' declare @@ -45,7 +44,19 @@ end;' language 'plpgsql'; +-- rel_segment__new -- overloaded version for specifying only non-default values +create function rel_segment__new (varchar,integer,varchar) +returns integer as ' +declare + new__segment_name alias for $1; + new__group_id alias for $2; + new__rel_type alias for $3; +begin + return rel_segment__new(null, ''rel_segment'', now(), null, null, null, null new__segment_name, new__group_id, new_rel_type, null); +end;' language 'plpgsql'; + + -- procedure delete create function rel_segment__delete (integer) returns integer as '