-- Data model to support content repository of the ArsDigita -- Community System -- Copyright (C) 1999-2000 ArsDigita Corporation -- Author: Karl Goldstein (karlg@arsdigita.com) -- $Id: content-symlink.sql,v 1.11.2.1 2003/11/24 17:25:15 jeffd Exp $ -- This is free software distributed under the terms of the GNU Public -- License. Full text of the license is available from the GNU Project: -- http://www.fsf.org/copyleft/gpl.html -- create or replace package body content_symlink -- function new create or replace function content_symlink__new (varchar,varchar,integer,integer,integer,timestamptz,integer,varchar) returns integer as ' declare new__name alias for $1; -- default null new__label alias for $2; -- default null new__target_id alias for $3; new__parent_id alias for $4; new__symlink_id alias for $5; -- default null new__creation_date alias for $6; -- default now() new__creation_user alias for $7; -- default null new__creation_ip alias for $8; -- default null v_symlink_id cr_symlinks.symlink_id%TYPE; v_name cr_items.name%TYPE; v_label cr_symlinks.label%TYPE; v_ctype varchar; begin -- SOME CHECKS -- -- 1) check that the target is now a symlink if content_symlink__is_symlink(new__target_id) = ''t'' then raise EXCEPTION ''-20000: Cannot create a symlink to a symlink %'', new__target_id; end if; -- 2) check that the parent is a folder if content_folder__is_folder(new__parent_id) = ''f'' then raise EXCEPTION ''-20000: The parent is not a folder''; end if; -- 3) check that parent folder supports symlinks if content_folder__is_registered(new__parent_id,''content_symlink'',''f'') = ''f'' then raise EXCEPTION ''-20000: This folder does not allow symlinks to be created''; end if; -- 4) check that the content folder supports the target items content type if content_folder__is_registered(new__parent_id, content_item__get_content_type(new__target_id), ''f'') = ''f'' then v_ctype := content_item__get_content_type(new__target_id); raise EXCEPTION ''-20000: This folder does not allow symlinks to items of type % to be created'', v_ctype; end if; -- PASSED ALL CHECKS -- -- Select default name if the name is null if new__name is null or new__name = '''' then select ''symlink_to_'' || name into v_name from cr_items where item_id = new__target_id; if NOT FOUND then v_name := null; end if; else v_name := new__name; end if; -- Select default label if the label is null if new__label is null then v_label := ''Symlink to '' || v_name; else v_label := new__label; end if; v_symlink_id := content_item__new( v_name, new__parent_id, new__symlink_id, null, new__creation_date, new__creation_user, null, new__creation_ip, ''content_item'', ''content_symlink'', null, null, ''text/plain'', null, null, ''text'' ); insert into cr_symlinks (symlink_id, target_id, label) values (v_symlink_id, new__target_id, v_label); return v_symlink_id; end;' language 'plpgsql'; -- procedure delete create or replace function content_symlink__delete (integer) returns integer as ' declare delete__symlink_id alias for $1; begin delete from cr_symlinks where symlink_id = delete__symlink_id; PERFORM content_item__delete(delete__symlink_id); return 0; end;' language 'plpgsql'; -- function is_symlink create or replace function content_symlink__is_symlink (integer) returns boolean as ' declare is_symlink__item_id alias for $1; v_symlink_p boolean; begin select count(*) = 1 into v_symlink_p from cr_symlinks where symlink_id = is_symlink__item_id; return v_symlink_p; end;' language 'plpgsql' stable; -- procedure copy create or replace function content_symlink__copy (integer,integer,integer,varchar) returns integer as ' declare copy__symlink_id alias for $1; copy__target_folder_id alias for $2; copy__creation_user alias for $3; copy__creation_ip alias for $4; -- default null v_current_folder_id cr_folders.folder_id%TYPE; v_name cr_items.name%TYPE; v_target_id cr_items.item_id%TYPE; v_label cr_symlinks.label%TYPE; v_symlink_id cr_symlinks.symlink_id%TYPE; begin -- XXX: bug if target is not a folder this will silently fail. if content_folder__is_folder(copy__target_folder_id) = ''t'' then select parent_id into v_current_folder_id from cr_items where item_id = copy__symlink_id; -- can''t copy to the same folder if copy__target_folder_id != v_current_folder_id then select i.name, content_symlink__resolve(i.item_id), s.label into v_name, v_target_id, v_label from cr_symlinks s, cr_items i where s.symlink_id = i.item_id and s.symlink_id = copy__symlink_id; if content_folder__is_registered(copy__target_folder_id, ''content_symlink'',''f'') = ''t'' then if content_folder__is_registered(copy__target_folder_id, content_item__get_content_type(content_symlink__resolve(copy__symlink_id)),''f'') = ''t'' then v_symlink_id := content_symlink__new( v_name, v_label, v_target_id, copy__target_folder_id, null, now(), copy__creation_user, copy__creation_ip ); end if; end if; end if; end if; return 0; end;' language 'plpgsql'; -- function resolve create or replace function content_symlink__resolve (integer) returns integer as ' declare resolve__item_id alias for $1; v_target_id cr_items.item_id%TYPE; begin select target_id into v_target_id from cr_symlinks where symlink_id = resolve__item_id; if NOT FOUND then return resolve__item_id; else return v_target_id; end if; end;' language 'plpgsql' stable strict; -- function resolve_content_type create or replace function content_symlink__resolve_content_type (integer) returns varchar as ' declare resolve_content_type__item_id alias for $1; v_content_type cr_items.content_type%TYPE; begin select content_item__get_content_type(target_id) into v_content_type from cr_symlinks where symlink_id = resolve_content_type__item_id; return v_content_type; end;' language 'plpgsql' stable strict; -- show errors -- Convenience view to simply access to symlink targets create view cr_resolved_items as select i.parent_id, i.item_id, i.name, case when s.target_id is NULL then 'f' else 't' end as is_symlink, coalesce(s.target_id, i.item_id) as resolved_id, s.label from cr_items i left outer join cr_symlinks s on (i.item_id = s.symlink_id);