--
-- acs_mail_multipart__new/7
--
create or replace function acs_mail_multipart__new(
  integer,
  character varying,
  character varying,
  timestamp with time zone,
  integer,
  character varying,
  integer
) returns int4 as $$

declare
	p_multipart_id		alias for $1;    -- default null,
	p_multipart_kind	alias for $2;
    p_object_type		alias for $3;    -- default acs_mail_multipart
    p_creation_date		alias for $4;    -- default now()
    p_creation_user		alias for $5;    -- default null
    p_creation_ip		alias for $6;    -- default null
    p_context_id		alias for $7;    -- default null
    v_object_id			integer;
begin
    v_object_id := acs_mail_gc_object__new (
		p_multipart_id,		-- gc_object_id 
		p_object_type,		-- object_type 
		p_creation_date,	-- creation_date 
		p_creation_user,	-- creation_user 
		p_creation_ip,		-- creation_ip 
		p_context_id		-- context_id 
    );
	
	insert into acs_mail_multiparts 
	 (multipart_id, multipart_kind)
	values 
	 (v_object_id, p_multipart_kind);

    return v_object_id;
end;
$$ language plpgsql;