--
-- 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;