'
+ -- @param target_id The item which the symlink will point to
+ -- @param parent_id The parent folder for the symlink. This must actually be a folder
+ -- and not a generic content item.
+ -- @param symlink_id The id of the new symlink. A new id will be allocated by default
+ -- @param creation_date As in acs_object.new
+ -- @param creation_ip As in acs_object.new
+ -- @param creation_user As in acs_object.new
+ -- @return The id of the newly created symlink
+ -- @see {acs_object.new}, {content_item.new}, {content_symlink.resolve}
+ --*/
+ name in cr_items.name%TYPE default null,
+ label in cr_symlinks.label%TYPE default null,
+ target_id in cr_items.item_id%TYPE,
+ parent_id in cr_items.parent_id%TYPE,
+ symlink_id in cr_symlinks.symlink_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE
+ default sysdate,
+ creation_user in acs_objects.creation_user%TYPE
+ default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+) return cr_symlinks.symlink_id%TYPE;
+
+
+procedure delete (
+ --/** Deletes the symlink
+ -- @author Karl Goldstein
+ -- @param symlink_id The id of the symlink to delete
+ -- @see {content_symlink.new}, {acs_object.delete}
+ --*/
+ symlink_id in cr_symlinks.symlink_id%TYPE
+);
+
+
+procedure copy (
+ --/** Copies the symlink itself to another folder, without resolving the symlink
+ -- @author Karl Goldstein
+ -- @param symlink_id The id of the symlink to copy
+ -- @param target_folder_id The id of the folder where the symlink is to be copied
+ -- @param creation_user The id of the creation user
+ -- @param creation_ip The IP address of the creation user (defualt null)
+ -- @see {content_symlink.new}, {content_item.copy}
+ --*/
+ symlink_id in cr_symlinks.symlink_id%TYPE,
+ target_folder_id in cr_folders.folder_id%TYPE,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+);
+
+function is_symlink (
+ --/** Determines if the item is a symlink
+ -- @author Karl Goldstein
+ -- @param item_id The item id
+ -- @return 't' if the item is a symlink, 'f' otherwise
+ -- @see {content_symlink.new}, {content_symlink.resolve}
+ --*/
+ item_id in cr_items.item_id%TYPE
+) return char;
+
+
+function resolve (
+ --/** Resolves the symlink and returns the target item id.
+ -- @author Karl Goldstein
+ -- @param item_id The item id to be resolved
+ -- @return The target item of the symlink, or the original item id if
+ -- the item is not in fact a symlink
+ -- @see {content_symlink.new}, {content_symlink.is_symlink}
+ --*/
+ item_id in cr_items.item_id%TYPE
+) return cr_items.item_id%TYPE;
+
+
+function resolve_content_type (
+ --/** Gets the content type of the target item.
+ -- @author Michael Pih
+ -- @param item_id The item id to be resolved
+ -- @return The content type of the symlink target, otherwise null.
+ -- the item is not in fact a symlink
+ -- @see {content_symlink.resolve}
+ --*/
+ item_id in cr_items.item_id%TYPE
+) return cr_items.content_type%TYPE;
+
+
+end content_symlink;
+/
+show errors
+
+create or replace package content_extlink
+as
+
+function new (
+ --/** Create a new extlink, an item pointing to an off-site resource
+ -- @author Karl Goldstein
+ -- @param name The name for the new extlink, defaults to the name of the
+ -- target item
+ -- @param url The URL of the item
+ -- @param label The text label or title of the item
+ -- @param description A brief description of the item
+ -- @param parent_id The parent folder for the extlink. This must actually be a folder
+ -- and not a generic content item.
+ -- @param extlink_id The id of the new extlink. A new id will be allocated by default
+ -- @param creation_date As in acs_object.new
+ -- @param creation_ip As in acs_object.new
+ -- @param creation_user As in acs_object.new
+ -- @return The id of the newly created extlink
+ -- @see {acs_object.new}, {content_item.new}, {content_extlink.resolve}
+ --*/
+ name in cr_items.name%TYPE default null,
+ url in cr_extlinks.url%TYPE,
+ label in cr_extlinks.label%TYPE default null,
+ description in cr_extlinks.description%TYPE default null,
+ parent_id in cr_items.parent_id%TYPE,
+ extlink_id in cr_extlinks.extlink_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE
+ default sysdate,
+ creation_user in acs_objects.creation_user%TYPE
+ default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+) return cr_extlinks.extlink_id%TYPE;
+
+
+procedure delete (
+ --/** Deletes the extlink
+ -- @author Karl Goldstein
+ -- @param extlink_id The id of the extlink to delete
+ -- @see {content_extlink.new}, {acs_object.delete}
+ --*/
+ extlink_id in cr_extlinks.extlink_id%TYPE
+);
+
+
+function is_extlink (
+ --/** Determines if the item is a extlink
+ -- @author Karl Goldstein
+ -- @param item_id The item id
+ -- @return 't' if the item is a extlink, 'f' otherwise
+ -- @see {content_extlink.new}, {content_extlink.resolve}
+ --*/
+ item_id in cr_items.item_id%TYPE
+) return char;
+
+
+end content_extlink;
+/
+show errors
+
+create or replace package content_folder
+as
+
+function new (
+ --/** Create a new folder
+ -- @author Karl Goldstein
+ -- @param label The label for the folder
+ -- @param description A short description of the folder, 4000 characters maximum
+ -- @param parent_id The parent of the folder
+ -- @param folder_id The id of the new folder. A new id will be allocated by default
+ -- @param context_id The context id. The parent id will be used as the default context
+ -- @param creation_date As in acs_object.new
+ -- @param creation_ip As in acs_object.new
+ -- @param creation_user As in acs_object.new
+ -- @return The id of the newly created folder
+ -- @see {acs_object.new}, {content_item.new}
+ --*/
+ name in cr_items.name%TYPE,
+ label in cr_folders.label%TYPE,
+ description in cr_folders.description%TYPE default null,
+ parent_id in cr_items.parent_id%TYPE default null,
+ context_id in acs_objects.context_id%TYPE default null,
+ folder_id in cr_folders.folder_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+) return cr_folders.folder_id%TYPE;
+
+procedure delete (
+ --/** Delete a folder. An error is thrown if the folder is not empty
+ -- @author Karl Goldstein
+ -- @param folder_id The id of the folder to delete
+ -- @see {acs_object.delete}, {content_item.delete}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE
+);
+
+procedure rename (
+ --/** Change the name, label and/or description of the folder
+ -- @author Karl Goldstein
+ -- @param folder_id The id of the folder to modify
+ -- @param name The new name for the folder. An error will be thrown if
+ -- an item with this name already exists under this folder's
+ -- parent. If this parameter is null, the old name will be preserved
+ -- @param label The new label for the folder. The old label will be preserved if
+ -- this parameter is null
+ -- @param label The new description for the folder. The old description
+ -- will be preserved if this parameter is null
+ -- @see {content_folder.new}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ name in cr_items.name%TYPE default null,
+ label in cr_folders.label%TYPE default null,
+ description in cr_folders.description%TYPE default null
+);
+
+procedure move (
+ --/** Recursively move the folder and all items in into a new location.
+ -- An error is thrown if either of the parameters is not a folder.
+ -- The root folder of the sitemap and the root folder of the
+ -- templates cannot be moved.
+ -- @author Karl Goldstein
+ -- @param folder_id The id of the folder to move
+ -- @param target_folder_id The destination folder
+ -- @see {content_folder.new}, {content_folder.copy}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ target_folder_id in cr_folders.folder_id%TYPE
+);
+
+procedure copy (
+ --/** Recursively copy the folder and all items in into a new location.
+ -- An error is thrown if either of the parameters is not a folder.
+ -- The root folder of the sitemap and the root folder of the
+ -- templates cannot be copied
+ -- @author Karl Goldstein
+ -- @param folder_id The id of the folder to copy
+ -- @param target_folder_id The destination folder
+ -- @param creation_user The id of the creation user
+ -- @param creation_ip The IP address of the creation user (defaults to null)
+ -- @see {content_folder.new}, {content_folder.copy}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ target_folder_id in cr_folders.folder_id%TYPE,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+);
+
+function is_folder (
+ --/** Determine if the item is a folder
+ -- @author Karl Goldstein
+ -- @param item_id The item id
+ -- @return 't' if the item is a folder, 'f' otherwise
+ -- @see {content_folder.new}, {content_folder.is_sub_folder}
+ --*/
+ item_id in cr_items.item_id%TYPE
+) return char;
+
+function is_sub_folder (
+ --/** Determine if the item target_folder_id is a subfolder of
+ -- the item folder_id
+ -- @author Karl Goldstein
+ -- @param folder_id The superfolder id
+ -- @param target_folder_id The subfolder id
+ -- @return 't' if the item target_folder_id is a subfolder of
+ -- the item folder_id, 'f' otherwise
+ -- @see {content_folder.is_folder}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ target_folder_id in cr_folders.folder_id%TYPE
+) return char;
+
+function is_empty (
+ --/** Determine if the folder is empty
+ -- @author Karl Goldstein
+ -- @param folder_id The folder id
+ -- @return 't' if the folder contains no subfolders or items, 'f' otherwise
+ -- @see {content_folder.is_folder}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE
+) return varchar2;
+
+function is_root (
+ --/** Determine whether the folder is a root (has a parent_id of 0)
+ -- @author Karl Goldstein
+ -- @param folder_id The folder ID
+ -- @return 't' if the folder is a root or 'f' otherwise
+ --*/
+ folder_id in cr_folders.folder_id%TYPE
+) return char;
+
+procedure register_content_type (
+ --/** Register a content type to the folder, if it is not already registered.
+ -- Only items of the registered type(s) may be added to the folder.
+ -- @author Karl Goldstein
+ -- @param folder_id The folder id
+ -- @param content_type The content type to be registered
+ -- @see {content_folder.unregister_content_type},
+ -- {content_folder.is_registered}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ content_type in cr_folder_type_map.content_type%TYPE,
+ include_subtypes in varchar2 default 'f'
+);
+
+procedure unregister_content_type (
+ --/** Unregister a content type from the folder, if it has been registered.
+ -- Only items of the registered type(s) may be added to the folder.
+ -- If the folder already contains items of the type to be unregistered, the
+ -- items remain in the folder.
+ -- @author Karl Goldstein
+ -- @param folder_id The folder id
+ -- @param content_type The content type to be unregistered
+ -- @param include_subtypes If 't', all subtypes of content_type will be
+ -- unregistered as well
+ -- @see {content_folder.register_content_type}, {content_folder.is_registered}
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ content_type in cr_folder_type_map.content_type%TYPE,
+ include_subtypes in varchar2 default 'f'
+);
+
+-- change this to is_type_registered
+function is_registered (
+ --/** Determines if a content type is registered to the folder
+ -- Only items of the registered type(s) may be added to the folder.
+ -- @author Karl Goldstein
+ -- @param folder_id The folder id
+ -- @param content_type The content type to be checked
+ -- @param include_subtypes If 't', all subtypes of the content_type
+ -- will be checked, returning 't' if all of them are registered. If 'f',
+ -- only an exact match with content_type will be
+ -- performed.
+ -- @return 't' if the type is registered to this folder, 'f' otherwise
+ -- @see {content_folder.register_content_type}, {content_folder.unregister_content_type},
+ --*/
+ folder_id in cr_folders.folder_id%TYPE,
+ content_type in cr_folder_type_map.content_type%TYPE,
+ include_subtypes in varchar2 default 'f'
+) return varchar2;
+
+
+function get_label (
+ --/** Returns the label for the folder. This function is the default name method
+ -- for the folder object.
+ -- @author Karl Goldstein
+ -- @param folder_id The folder id
+ -- @return The folder's label
+ -- @see {acs_object_type.create_type}, the docs for the name_method parameter
+ --*/
+ folder_id in cr_folders.folder_id%TYPE
+) return cr_folders.label%TYPE;
+
+
+function get_index_page (
+ --/** Returns the item ID of the index page of the folder, null otherwise
+ -- @author Michael Pih
+ -- @param folder_id The folder id
+ -- @return The item ID of the index page
+ --*/
+ folder_id in cr_folders.folder_id%TYPE
+) return cr_items.item_id%TYPE;
+
+
+
+end content_folder;
+/
+show errors
+
+
+
+create or replace package content_template
+as
+
+c_root_folder_id constant integer := -200;
+
+function get_root_folder return cr_folders.folder_id%TYPE;
+
+function new (
+ --/** Creates a new content template which can be used to render content items.
+ -- @author Karl Goldstein
+ -- @param name The name for the template, must be a valid UNIX-like filename.
+ -- If a template with this name already exists under the specified
+ -- parent item, an error is thrown
+ -- @param parent_id The parent of this item, defaults to null
+ -- @param template_id The id of the new template. A new id will be allocated if this
+ -- parameter is null
+ -- @param creation_date As in acs_object.new
+ -- @param creation_ip As in acs_object.new
+ -- @param creation_user As in acs_object.new
+ -- @return The id of the newly created template
+ -- @see {acs_object.new}, {content_item.new}, {content_item.register_template},
+ -- {content_type.register_template}
+ --*/
+ name in cr_items.name%TYPE,
+ parent_id in cr_items.parent_id%TYPE default null,
+ template_id in cr_templates.template_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE
+ default sysdate,
+ creation_user in acs_objects.creation_user%TYPE
+ default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+) return cr_templates.template_id%TYPE;
+
+procedure delete (
+ --/** Deletes the specified template, and unregisters the template from
+ -- all content types and content items.
+ -- Use with caution - this operation cannot be undone.
+ -- @author Karl Goldstein
+ -- @param template_id The id of the template to delete
+ -- @see {acs_object.delete}, {content_item.unregister_template},
+ -- {content_type.unregister_template},
+ --*/
+ template_id in cr_templates.template_id%TYPE
+);
+
+function is_template (
+ --/** Determine if an item is a template.
+ -- @author Karl Goldstein
+ -- @param item_id The item id
+ -- @return 't' if the item is a template, 'f' otherwise
+ -- @see {content_template.new}
+ --*/
+ template_id in cr_templates.template_id%TYPE
+) return varchar2;
+
+function get_path (
+ --/** Retrieves the full path to the template, as described in content_item.get_path
+ -- @author Karl Goldstein
+ -- @param template_id The id of the template for which the path is to
+ -- be retrieved
+ -- @param root_folder_id Starts path resolution at this folder
+ -- @return The path to the template, starting with the specified root folder
+ -- @see {content_item.get_path}
+ --*/
+ template_id in cr_templates.template_id%TYPE,
+ root_folder_id in cr_folders.folder_id%TYPE default c_root_folder_id
+) return varchar2;
+
+end content_template;
+/
+show errors
+
+create or replace package content_keyword
+as
+
+function new (
+ --/** Creates a new keyword (also known as "subject category").
+ -- @author Karl Goldstein
+ -- @param heading The heading for the new keyword
+ -- @param description The description for the new keyword
+ -- @param parent_id The parent of this keyword, defaults to null.
+ -- @param keyword_id The id of the new keyword. A new id will be allocated if this
+ -- parameter is null
+ -- @param object_type The type for the new keyword, defaults to 'content_keyword'.
+ -- This parameter may be used by subclasses of
+ -- content_keyword to initialize the superclass.
+ -- @param creation_date As in acs_object.new
+ -- @param creation_ip As in acs_object.new
+ -- @param creation_user As in acs_object.new
+ -- @return The id of the newly created keyword
+ -- @see {acs_object.new}, {content_item.new}, {content_keyword.item_assign},
+ -- {content_keyword.delete}
+ --*/
+ heading in cr_keywords.heading%TYPE,
+ description in cr_keywords.description%TYPE default null,
+ parent_id in cr_keywords.parent_id%TYPE default null,
+ keyword_id in cr_keywords.keyword_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE
+ default sysdate,
+ creation_user in acs_objects.creation_user%TYPE
+ default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null,
+ object_type in acs_object_types.object_type%TYPE default 'content_keyword'
+) return cr_keywords.keyword_id%TYPE;
+
+procedure delete (
+ --/** Deletes the specified keyword, which must be a leaf. Unassigns the
+ -- keyword from all content items. Use with caution - this
+ -- operation cannot be undone.
+ -- @author Karl Goldstein
+ -- @param keyword_id The id of the keyword to be deleted
+ -- @see {acs_object.delete}, {content_keyword.item_unassign}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE
+);
+
+function get_heading (
+ --/** Retrieves the heading of the content keyword
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @return The heading for the specified keyword
+ -- @see {content_keyword.set_heading}, {content_keyword.get_description}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE
+) return varchar2;
+
+function get_description (
+ --/** Retrieves the description of the content keyword
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @return The description for the specified keyword
+ -- @see {content_keyword.get_heading}, {content_keyword.set_description}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE
+) return varchar2;
+
+procedure set_heading (
+ --/** Sets a new heading for the keyword
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @param heading The new heading
+ -- @see {content_keyword.get_heading}, {content_keyword.set_description}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE,
+ heading in cr_keywords.heading%TYPE
+);
+
+procedure set_description (
+ --/** Sets a new description for the keyword
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @param description The new description
+ -- @see {content_keyword.set_heading}, {content_keyword.get_description}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE,
+ description in cr_keywords.description%TYPE
+);
+
+function is_leaf (
+ --/** Determines if the keyword has no sub-keywords associated with it
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @return 't' if the keyword has no descendants, 'f' otherwise
+ -- @see {content_keyword.new}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE
+) return varchar2;
+
+procedure item_assign (
+ --/** Assigns this keyword to a content item, creating a relationship between them
+ -- @author Karl Goldstein
+ -- @param item_id The item to be assigned to
+ -- @param keyword_id The keyword to be assigned
+ -- @param context_id As in acs_rel.new, deprecated
+ -- @param creation_ip As in acs_rel.new, deprecated
+ -- @param creation_user As in acs_rel.new, deprecated
+ -- @see {acs_rel.new}, {content_keyword.item_unassign}
+ --*/
+ item_id in cr_items.item_id%TYPE,
+ keyword_id in cr_keywords.keyword_id%TYPE,
+ context_id in acs_objects.context_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+);
+
+procedure item_unassign (
+ --/** Unassigns this keyword to a content item, removing a relationship between them
+ -- @author Karl Goldstein
+ -- @param item_id The item to be unassigned from
+ -- @param keyword_id The keyword to be unassigned
+ -- @see {acs_rel.delete}, {content_keyword.item_assign}
+ --*/
+ item_id in cr_items.item_id%TYPE,
+ keyword_id in cr_keywords.keyword_id%TYPE
+);
+
+function is_assigned (
+ --/** Determines if the keyword is assigned to the item
+ -- @author Karl Goldstein
+ -- @param item_id The item id
+ -- @param keyword_id The keyword id to be checked for assignment
+ -- @param recurse Specifies if the keyword search is
+ -- recursive. May be set to one of the following
+ -- values:
+ -- - none: Not recursive. Look for an exact match.
+ -- - up: Recursive from specific to general. A search for
+ -- "attack dogs" will also match "dogs", "animals", "mammals", etc.
+ -- - down: Recursive from general to specific. A search for
+ -- "mammals" will also match "dogs", "attack dogs", "cats", "siamese cats",
+ -- etc.
+ -- @return 't' if the keyword may be matched to an item, 'f' otherwise
+ -- @see {content_keyword.item_assign}
+ --*/
+ item_id in cr_items.item_id%TYPE,
+ keyword_id in cr_keywords.keyword_id%TYPE,
+ recurse in varchar2 default 'none'
+) return varchar2;
+
+function get_path (
+ --/** Retreives a path to the keyword/subject category, with the most general
+ -- category at the root of the path
+ -- @author Karl Goldstein
+ -- @param keyword_id The keyword id
+ -- @return The path to the keyword, or null if no such keyword exists
+ -- @see {content_keyword.new}
+ --*/
+ keyword_id in cr_keywords.keyword_id%TYPE
+) return varchar2;
+
+end content_keyword;
+/
+show errors
+
+
+
+
+create or replace package content_permission
+is
+
+ procedure inherit_permissions (
+ --/** Make the child object inherit all of the permissions of the parent
+ -- object. Typically, this function is called whenever a new object
+ -- is created under a given parent
+ -- @author Karl Goldstein
+ -- @param parent_object_id The parent object id
+ -- @param child_object_id The child object id
+ -- @see {content_permission.grant}, {acs_permission.grant_permission}
+ --*/
+ parent_object_id in acs_objects.object_id%TYPE,
+ child_object_id in acs_objects.object_id%TYPE,
+ child_creator_id in parties.party_id%TYPE default null
+ );
+
+ function has_grant_authority (
+ --/** Determine if the user may grant a certain permission to another
+ -- user. The permission may only be granted if the user has
+ -- the permission himself and posesses the cm_perm access, or if the
+ -- user posesses the cm_perm_admin access.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param holder_id The person who is attempting to grant the permissions
+ -- @param privilege The privilege to be granted
+ -- @return 't' if the donation is possible, 'f' otherwise
+ -- @see {content_permission.grant_permission}, {content_permission.is_has_revoke_authority},
+ -- {acs_permission.grant_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ holder_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE
+ ) return varchar2;
+
+ procedure grant_permission_h (
+ --/** This is a helper function for content_permission.grant_permission and
+ -- should not be called individually.
+ -- Grants a permission and revokes all descendants of the permission, since
+ -- they are no longer relevant.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param grantee_id The person who should gain the parent privilege
+ -- @param privilege The parent privilege to be granted
+ -- @see {content_permission.grant_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ grantee_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE
+ );
+
+ procedure grant_permission (
+ --/** Grant the specified privilege to another user. If the donation is
+ -- not possible, the procedure does nothing.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param holder_id The person who is attempting to grant the permissions
+ -- @param privilege The privilege to be granted
+ -- @param recepient_id The person who will gain the privilege
+ -- @param is_recursive If 't', applies the donation recursively to
+ -- all child objects of the object (equivalent to UNIX's chmod -r).
+ -- If 'f', only affects the objects itself.
+ -- @see {content_permission.has_grant_authority}, {content_permission.revoke_permission},
+ -- {acs_permission.grant_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ holder_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE,
+ recepient_id in parties.party_id%TYPE,
+ is_recursive in varchar2 default 'f',
+ object_type in acs_objects.object_type%TYPE default 'content_item'
+ );
+
+ function has_revoke_authority (
+ --/** Determine if the user may take a certain permission away from another
+ -- user. The permission may only be revoked if the user has
+ -- the permission himself and posesses the cm_perm access, while the
+ -- other user does not, or if the user posesses the cm_perm_admin access.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param holder_id The person who is attempting to revoke the permissions
+ -- @param privilege The privilege to be revoked
+ -- @param revokee_id The user from whom the privilege is to be taken away
+ -- @return 't' if it is possible to revoke the privilege, 'f' otherwise
+ -- @see {content_permission.has_grant_authority}, {content_permission.revoke_permission},
+ -- {acs_permission.revoke_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ holder_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE,
+ revokee_id in parties.party_id%TYPE
+ ) return varchar2;
+
+ procedure revoke_permission_h (
+ --/** This is a helper function for content_permission.revoke_permission and
+ -- should not be called individually.
+ -- Revokes a permission but grants all child permissions to the holder, to
+ -- ensure that the permission is not permanently lost
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param revokee_id The person who should lose the parent permission
+ -- @param privilege The parent privilege to be revoked
+ -- @see {content_permission.revoke_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ revokee_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE
+ );
+
+ procedure revoke_permission (
+ --/** Take the specified privilege away from another user. If the operation is
+ -- not possible, the procedure does nothing.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be changed
+ -- @param holder_id The person who is attempting to revoke the permissions
+ -- @param privilege The privilege to be revoked
+ -- @param recepient_id The person who will lose the privilege
+ -- @param is_recursive If 't', applies the operation recursively to
+ -- all child objects of the object (equivalent to UNIX's chmod -r).
+ -- If 'f', only affects the objects itself.
+ -- @see {content_permission.grant_permission}, {content_permission.has_revoke_authority},
+ -- {acs_permission.revoke_permission}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ holder_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE,
+ revokee_id in parties.party_id%TYPE,
+ is_recursive in varchar2 default 'f',
+ object_type in acs_objects.object_type%TYPE default 'content_item'
+ );
+
+ function permission_p (
+ --/** Determine if the user has the specified permission on the specified
+ -- object. Does NOT check objects recursively: that is, if the user has
+ -- the permission on the parent object, he does not automatically gain
+ -- the permission on all the child objects.
+ -- @author Karl Goldstein
+ -- @param object_id The object whose permissions are to be checked
+ -- @param holder_id The person whose permissions are to be examined
+ -- @param privilege The privilege to be checked
+ -- @return 't' if the user has the specified permission on the object,
+ -- 'f' otherwise
+ -- @see {content_permission.grant_permission}, {content_permission.revoke_permission},
+ -- {acs_permission.permission_p}
+ --*/
+ object_id in acs_objects.object_id%TYPE,
+ holder_id in parties.party_id%TYPE,
+ privilege in acs_privileges.privilege%TYPE
+ ) return varchar2;
+
+ function cm_admin_exists
+ -- /** Determine if there exists a user who has administrative
+ -- privileges on the entire content repository.
+ -- @author Stanislav Freidin
+ -- @return 't' if an administrator exists, 'f' otherwise
+ -- @see {content_permission.grant_permission}
+ return varchar2;
+
+end content_permission;
+/
+show errors
+
+@@content-type
+@@content-item
+@@content-revision
+@@content-symlink
+@@content-extlink
+@@content-folder
+@@content-template
+@@content-keyword
+
+
Index: openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql 24 Mar 2001 22:00:48 -0000 1.1
@@ -0,0 +1,396 @@
+-- Object type declarations to support content repository of the
+-- ArsDigita Community System
+
+-- Copyright (C) 1999-2000 ArsDigita Corporation
+-- Author: Karl Goldstein (karlg@arsdigita.com)
+
+-- $Id: types-create.sql,v 1.1 2001/03/24 22:00:48 danw 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
+
+-- Define content items. Also the supertype for folders, symlinks and extlinks.
+
+declare
+ attr_id acs_attributes.attribute_id%TYPE;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'acs_object',
+ object_type => 'content_item',
+ pretty_name => 'Content Item',
+ pretty_plural => 'Content Items',
+ table_name => 'cr_items',
+ id_column => 'item_id',
+ name_method => 'content_item.get_title'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_item',
+ attribute_name => 'name',
+ datatype => 'keyword',
+ pretty_name => 'Name',
+ pretty_plural => 'Names'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_item',
+ attribute_name => 'locale',
+ datatype => 'keyword',
+ pretty_name => 'Locale',
+ pretty_plural => 'Locales'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_item',
+ attribute_name => 'live_revision',
+ datatype => 'integer',
+ pretty_name => 'Live Revision',
+ pretty_plural => 'Live Revisions'
+ );
+
+end;
+/
+show errors
+
+-- Define content folders. A folder is equivalent to a directory in
+-- the file system. It is used for grouping content items that have
+-- public URL's.
+
+declare
+ attr_id acs_attributes.attribute_id%TYPE;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'content_item',
+ object_type => 'content_folder',
+ pretty_name => 'Content Folder',
+ pretty_plural => 'Content Folders',
+ table_name => 'cr_folders',
+ id_column => 'folder_id',
+ name_method => 'content_folder.get_label'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_folder',
+ attribute_name => 'label',
+ datatype => 'string',
+ pretty_name => 'Label',
+ pretty_plural => 'Labels'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_folder',
+ attribute_name => 'description',
+ datatype => 'string',
+ pretty_name => 'Description',
+ pretty_plural => 'Descriptions'
+ );
+
+end;
+/
+show errors
+
+
+-- Define content keywords
+
+declare
+ attr_id acs_attributes.attribute_id%TYPE;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'acs_object',
+ object_type => 'content_keyword',
+ pretty_name => 'Content Keyword',
+ pretty_plural => 'Content Keywords',
+ table_name => 'cr_keywords',
+ id_column => 'keyword_id',
+ name_method => 'acs_object.default_name'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_keyword',
+ attribute_name => 'heading',
+ datatype => 'string',
+ pretty_name => 'Heading',
+ pretty_plural => 'Headings'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_keyword',
+ attribute_name => 'description',
+ datatype => 'string',
+ pretty_name => 'Description',
+ pretty_plural => 'Descriptions'
+ );
+
+end;
+/
+show errors
+
+-- Symlinks are represented by a subclass of content_item (content_link)
+
+-- Each symlink thus has a row in the acs_objects table. Each symlink
+-- also has a row in the cr_items table. The name column for the symlink
+-- is the name that appears in the path to the symlink.
+
+declare
+ attr_id integer;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'content_item',
+ object_type => 'content_symlink',
+ pretty_name => 'Content Symlink',
+ pretty_plural => 'Content Symlinks',
+ table_name => 'cr_symlinks',
+ id_column => 'symlink_id',
+ name_method => 'acs_object.default_name'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_symlink',
+ attribute_name => 'target_id',
+ datatype => 'integer',
+ pretty_name => 'Target ID',
+ pretty_plural => 'Target IDs'
+ );
+
+end;
+/
+show errors
+
+-- Extlinks are links to external content (offsite URL's)
+
+declare
+ attr_id integer;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'content_item',
+ object_type => 'content_extlink',
+ pretty_name => 'External Link',
+ pretty_plural => 'External Links',
+ table_name => 'cr_extlinks',
+ id_column => 'extlink_id',
+ name_method => 'acs_object.default_name'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'url',
+ datatype => 'text',
+ pretty_name => 'URL',
+ pretty_plural => 'URLs'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'label',
+ datatype => 'text',
+ pretty_name => 'Label',
+ pretty_plural => 'Labels'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'description',
+ datatype => 'text',
+ pretty_name => 'Description',
+ pretty_plural => 'Descriptions'
+ );
+
+end;
+/
+show errors
+
+-- Define content templates.
+
+begin
+
+ acs_object_type.create_type (
+ supertype => 'content_item',
+ object_type => 'content_template',
+ pretty_name => 'Content Template',
+ pretty_plural => 'Content Templates',
+ table_name => 'cr_templates',
+ id_column => 'template_id',
+ name_method => 'acs_object.default_name'
+ );
+
+end;
+/
+show errors
+
+-- Define content revisions, children of content items
+
+declare
+ attr_id acs_attributes.attribute_id%TYPE;
+begin
+
+ content_type.create_type (
+ supertype => 'acs_object',
+ content_type => 'content_revision',
+ pretty_name => 'Basic Item',
+ pretty_plural => 'Basic Items',
+ table_name => 'cr_revisions',
+ id_column => 'revision_id'
+ );
+
+ attr_id := content_type.create_attribute (
+ content_type => 'content_revision',
+ attribute_name => 'title',
+ datatype => 'text',
+ pretty_name => 'Title',
+ pretty_plural => 'Titles',
+ sort_order => 1
+ );
+
+ attr_id := content_type.create_attribute (
+ content_type => 'content_revision',
+ attribute_name => 'description',
+ datatype => 'text',
+ pretty_name => 'Description',
+ pretty_plural => 'Descriptions',
+ sort_order => 2
+ );
+
+ attr_id := content_type.create_attribute (
+ content_type => 'content_revision',
+ attribute_name => 'publish_date',
+ datatype => 'date',
+ pretty_name => 'Publish Date',
+ pretty_plural => 'Publish Dates',
+ sort_order => 3
+ );
+
+ attr_id := content_type.create_attribute (
+ content_type => 'content_revision',
+ attribute_name => 'mime_type',
+ datatype => 'text',
+ pretty_name => 'Mime Type',
+ pretty_plural => 'Mime Types',
+ sort_order => 4
+ );
+
+ attr_id := content_type.create_attribute (
+ content_type => 'content_revision',
+ attribute_name => 'nls_language',
+ datatype => 'text',
+ pretty_name => 'Language',
+ pretty_plural => 'Language'
+ );
+
+end;
+/
+show errors
+
+-- Declare standard relationships with children and other items
+
+declare
+ attr_id acs_attributes.attribute_id%TYPE;
+begin
+
+ acs_object_type.create_type (
+ supertype => 'acs_object',
+ object_type => 'cr_item_child_rel',
+ pretty_name => 'Child Item',
+ pretty_plural => 'Child Items',
+ table_name => 'cr_child_rels',
+ id_column => 'rel_id',
+ name_method => 'acs_object.default_name'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'parent_id',
+ datatype => 'text',
+ pretty_name => 'Parent ID',
+ pretty_plural => 'Parent IDs'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'child_id',
+ datatype => 'text',
+ pretty_name => 'Child ID',
+ pretty_plural => 'Child IDs'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'relation_tag',
+ datatype => 'text',
+ pretty_name => 'Relationship Tag',
+ pretty_plural => 'Relationship Tags'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'order_n',
+ datatype => 'text',
+ pretty_name => 'Sort Order',
+ pretty_plural => 'Sort Orders'
+ );
+
+ acs_object_type.create_type (
+ supertype => 'acs_object',
+ object_type => 'cr_item_rel',
+ pretty_name => 'Item Relationship',
+ pretty_plural => 'Item Relationships',
+ table_name => 'cr_item_rels',
+ id_column => 'rel_id',
+ name_method => 'acs_object.default_name'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'item_id',
+ datatype => 'text',
+ pretty_name => 'Item ID',
+ pretty_plural => 'Item IDs'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'related_object_id',
+ datatype => 'text',
+ pretty_name => 'Related Object ID',
+ pretty_plural => 'Related Object IDs'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'relation_tag',
+ datatype => 'text',
+ pretty_name => 'Relationship Tag',
+ pretty_plural => 'Relationship Tags'
+ );
+
+ attr_id := acs_attribute.create_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'order_n',
+ datatype => 'text',
+ pretty_name => 'Sort Order',
+ pretty_plural => 'Sort Orders'
+ );
+
+end;
+/
+show errors
+
+-- Refresh the attribute views
+
+prompt *** Refreshing content type attribute views...
+
+begin
+
+ for type_rec in (select object_type from acs_object_types
+ connect by supertype = prior object_type
+ start with object_type = 'content_revision') loop
+ content_type.refresh_view(type_rec.object_type);
+ end loop;
+
+end;
+/
Index: openacs-4/packages/acs-content-repository/sql/oracle/types-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/types-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/sql/oracle/types-drop.sql 24 Mar 2001 22:00:48 -0000 1.1
@@ -0,0 +1,177 @@
+-- Drop script for clearing content-repositry object type declarations
+
+-- Copyright (C) 20000 ArsDigita Corporation
+
+-- $ID$
+
+-- 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
+
+-- just working backwards from types declared in types-create.sql
+
+
+-- removing the standard relationship types
+begin
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'order_n');
+
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_rel',
+ attribute_name => 'relation_tag');
+
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_rl',
+ attribute_name => 'related_object_id');
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_rl',
+ attribute_name => 'item_id');
+
+acs_object_type.drop_type (
+ object_type => 'cr_item_rel');
+
+
+-- cr_item_child_rel type
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'order_n');
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'relation_tag');
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'child_id');
+
+acs_attribute.drop_attribute (
+ object_type => 'cr_item_child_rel',
+ attribute_name => 'parent_id');
+
+acs_object_type.drop_type (
+ object_type => 'cr_item_child_rel');
+
+end;
+/
+show errors
+
+
+-- drop content revisions,
+begin
+
+content_type.drop_type('content_revision');
+
+end;
+/
+show errors
+
+
+--dropping content templates
+begin
+
+acs_object_type.drop_type(
+ object_type => 'content_template');
+
+end;
+/
+show errors
+
+-- extlinks
+begin
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'description');
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'label');
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_extlink',
+ attribute_name => 'url');
+
+ acs_object_type.drop_type(
+ object_type => 'content_extlink');
+
+end;
+/
+show errors
+
+-- symlinks
+begin
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_symlink',
+ attribute_name => 'target_id');
+
+ acs_object_type.drop_type (
+ object_type => 'content_symlink');
+
+end;
+/
+show errors
+
+--content keywords
+begin
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_keyword',
+ attribute_name => 'description');
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_keyword',
+ attribute_name => 'heading');
+
+ acs_object_type.drop_type (
+ object_type => 'content_keyword');
+
+end;
+/
+show errors
+
+begin
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_folder',
+ attribute_name => 'description');
+
+ acs_attribute.drop_attribute (
+ object_type => 'content_folder',
+ attribute_name => 'label');
+
+ acs_object_type.drop_type (
+ object_type => 'content_folder');
+
+end;
+/
+show errors
+
+begin
+
+acs_attribute.drop_attribute (
+ object_type => 'content_item',
+ attribute_name => 'live_revision');
+
+acs_attribute.drop_attribute (
+ object_type => 'content_item',
+ attribute_name => 'locale');
+
+acs_attribute.drop_attribute (
+ object_type => 'content_item',
+ attribute_name => 'name');
+
+acs_object_type.drop_type (
+ object_type => 'content_item');
+
+end;
+/
+show errors
+
+
+
Index: openacs-4/packages/acs-content-repository/sql/oracle/upgrade-4.0-4.0.1.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/Attic/upgrade-4.0-4.0.1.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/sql/oracle/upgrade-4.0-4.0.1.sql 24 Mar 2001 22:00:48 -0000 1.1
@@ -0,0 +1,5 @@
+--
+-- CR upgrade script.
+--
+
+@@ packages-create.sql
\ No newline at end of file