postgresql7.1 select apm_package__new( null, :package_name, :package_key, 'apm_package', now(), null, null, acs__magic_object_id('default_context') ); select apm_package_version__new( :version_id, :package_key, :version_name, :version_uri, :summary, :description_format, :description, :release_date, :vendor, :vendor_uri, 't', 't' ); select apm_package_type__drop_type( :package_key, 't' ); select apm_package_version__delete(:version_id); update apm_package_versions set installed_p = (case when version_id = :version_id then 't' else 'f' end)::boolean where package_key = :package_key select apm_package_version__disable( :version_id ); select apm__register_application ( :package_key, :package_uri, :pretty_name, :pretty_plural, :singleton_p, :spec_file_path, :spec_file_mtime ); select apm__register_service ( :package_key, :pretty_name, :pretty_plural, :package_uri, :singleton_p, :spec_file_path, :spec_file_mtime ); select apm_package_version__edit( null, :version_id, :version_name, :version_uri, :summary, :description_format, :description, :release_date, :vendor, :vendor_uri, 't', 't' ); declare main_site_id site_nodes.node_id%TYPE; instance_id apm_packages.package_id%TYPE; node_id site_nodes.node_id%TYPE; begin main_site_id := site_node__node_id('/',null); instance_id := apm_package__new( null, null, :package_key, 'apm_package', now(), null, null, main_site_id ); node_id := site_node__new( null main_site_id, :package_key, instance_id, 't', 't', null, null ); return null; end; select apm_package_version__upgrade(:version_id); select apm_package_version__upgrade_p( :path, :initial_version_name, :final_version_name ); select apm_package_version__sortable_version_name('$f1_version_from'); select apm_package_version__sortable_version_name('$f1_version_from'); select apm_package_version__version_name_greater(service_version, :dependency_version) as version_p from apm_package_dependencies d, apm_package_types a, apm_package_versions v where d.dependency_type = 'provides' and d.version_id = v.version_id and d.service_uri = :dependency_uri and v.installed_p = 't' and a.package_key = v.package_key select version_id from apm_package_versions where package_key = :package_key and version_id = apm_package__highest_version(:package_key) select apm_package_version__version_name_greater(:version_name, version_name) upgrade_p from apm_package_versions where package_key = :package_key and version_id = apm_package__highest_version (:package_key) select apm_package_version__enable( :version_id );