OpenACS

jeffd
committed
MAIN:jeffd:20040126153939
on 26 Jan 04
merge of changes between oacs-5-0-0b4 and oacs-5-0-0-final to HEAD
openacs-4/.../postgresql/content-extlink.sql (+2 -2)
1 1 -- Data model to support content repository of the ArsDigita
2 2 -- Community System
3 3
4 4 -- Copyright (C) 1999-2000 ArsDigita Corporation
5 5 -- Author: Karl Goldstein (karlg@arsdigita.com)
6 6
7 7 -- $Id$
8 8
9 9 -- This is free software distributed under the terms of the GNU Public
10 10 -- License.  Full text of the license is available from the GNU Project:
11 11 -- http://www.fsf.org/copyleft/gpl.html
12 12
13 13 -- create or replace package body content_extlink
14 14 -- function new
15   create function content_extlink__new (varchar,varchar,varchar,varchar,integer,integer,timestamp,integer,varchar)
  15 create function content_extlink__new (varchar,varchar,varchar,varchar,integer,integer,timestamp with time zone,integer,varchar)
16 16 returns integer as '
17 17 declare
18 18   new__name                   alias for $1;  -- default null 
19 19   new__url                    alias for $2; 
20 20   new__label                  alias for $3;  -- default null
21 21   new__description            alias for $4;  -- default null
22 22   new__parent_id              alias for $5; 
23 23   new__extlink_id             alias for $6;  -- default null
24 24   new__creation_date          alias for $7;  -- default now()
25 25   new__creation_user          alias for $8;  -- default null
26 26   new__creation_ip            alias for $9;  -- default null
27 27   v_extlink_id                cr_extlinks.extlink_id%TYPE;
28 28   v_label                     cr_extlinks.label%TYPE;
29 29   v_name                      cr_items.name%TYPE;
30 30 begin
31 31
32 32   if new__label is null then
33 33     v_label := new__url;
34 34   else
35 35     v_label := new__label;