--
-- weblogger_blogroll_entry__new/6
--
create or replace function weblogger_blogroll_entry__new(
  integer,
  integer,
  character varying,
  character varying,
  integer,
  character varying
) returns int4 as $$

declare
    p_link_id               alias for $1;
    p_package_id           alias for $2;
    p_name                 alias for $3;
    p_url           alias for $4;
    p_creation_user        alias for $5;
    p_creation_ip          alias for $6;
    v_link_id          integer;
begin
    v_link_id := acs_object__new (
        p_link_id,
        'weblogger_blogroll_entry',
        current_timestamp,
        p_creation_user,
        p_creation_ip,
        p_package_id
    );

    insert into weblogger_blogroll_entries (
      link_id, 
      package_id,
      name,
      url
    ) values (
      v_link_id, 
      p_package_id,
      p_name,
      p_url
    );

    return v_link_id;   
end;
$$ language plpgsql;