-- -- photo_album__new_root_folder/1 -- create or replace function photo_album__new_root_folder( integer ) returns int4 as $$ declare v_package_id alias for $1; v_folder_id pa_package_root_folder_map.folder_id%TYPE; v_package_name apm_packages.instance_name%TYPE; v_package_key apm_packages.package_key%TYPE; begin select instance_name, package_key into v_package_name, v_package_key from apm_packages where package_id = v_package_id; v_folder_id := content_folder__new ( v_package_key || '_' || v_package_id, -- name v_package_name || ' Home', -- label 'Home for ' || v_package_name, -- description null, -- parent_id v_package_id, --context_id, null, --folder_id now(), --creation_date null, --creation_user null --creation_ip ); insert into pa_package_root_folder_map (package_id, folder_id) values (v_package_id, v_folder_id); -- allow child items to be added PERFORM content_folder__register_content_type(v_folder_id,'pa_album', 'f'); PERFORM content_folder__register_content_type(v_folder_id,'content_folder', 'f'); return v_folder_id; end; $$ language plpgsql;