'
+ -- @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 del (
+ --/** 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 del (
+ --/** 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;
+
+procedure copy (
+ extlink_id in cr_extlinks.extlink_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
+);
+
+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 del (
+ --/** 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 text The body of the .adp template itself, defaults to null
+ -- @param parent_id The parent of this item, defaults to null
+ -- @param is_live The should the revision be set live, defaults to 't'. Requires
+ -- that text is not null or there will be no revision to begin with
+ -- @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,
+ text in varchar2 default null,
+ parent_id in cr_items.parent_id%TYPE default null,
+ is_live in char default 't',
+ 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 del (
+ --/** 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 del (
+ --/** 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
+
+
+
Index: openacs-4/packages/dotlrn/sql/oracle/upgrade/upgrade-1.0-1.0d1.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/upgrade/Attic/upgrade-1.0-1.0d1.sql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/sql/oracle/upgrade/upgrade-1.0-1.0d1.sql 8 Oct 2003 16:03:58 -0000 1.1
@@ -0,0 +1,1762 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Create the Admin package
+--
+-- @author yon@openforce.net
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_admin_profile_rel
+as
+ function new (
+ rel_id in dotlrn_admin_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_admin_profile_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors
+
+create or replace package body dotlrn_admin_profile_rel
+as
+ function new (
+ rel_id in dotlrn_admin_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_user_profile_rels.rel_id%TYPE;
+ v_group_id groups.group_id%TYPE;
+ begin
+ if group_id is null then
+ select min(group_id)
+ into v_group_id
+ from profiled_groups
+ where profile_provider = (select min(impl_id)
+ from acs_sc_impls
+ where impl_name = 'dotlrn_admin_profile_provider');
+ else
+ v_group_id := group_id;
+ end if;
+
+ v_rel_id := dotlrn_user_profile_rel.new(
+ rel_id => rel_id,
+ user_id => user_id,
+ portal_id => portal_id,
+ theme_id => theme_id,
+ id => id,
+ rel_type => rel_type,
+ group_id => v_group_id,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_admin_profile_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_admin_profile_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_admin_profile_rels
+ where rel_id = dotlrn_admin_profile_rel.del.rel_id;
+
+ dotlrn_user_profile_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- create the dotLRN classes model
+--
+-- @author Ben Adida (ben@openforce.net)
+-- @author yon (yon@openforce.net)
+-- @creation-date 2001-08-18
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_department
+is
+ function new (
+ department_key in dotlrn_departments.department_key%TYPE,
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in acs_object_types.pretty_plural%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_departments.department_key%TYPE;
+
+ procedure del (
+ department_key in dotlrn_departments.department_key%TYPE
+ );
+end;
+/
+show errors
+
+create or replace package body dotlrn_department
+is
+ function new (
+ department_key in dotlrn_departments.department_key%TYPE,
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in acs_object_types.pretty_plural%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_departments.department_key%TYPE
+ is
+ v_department_key dotlrn_departments.department_key%TYPE;
+ begin
+ v_department_key := dotlrn_community_type.new (
+ community_type => department_key,
+ parent_type => 'dotlrn_class_instance',
+ pretty_name => pretty_name,
+ pretty_plural => pretty_plural,
+ description => description,
+ package_id => package_id,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert
+ into dotlrn_departments
+ (department_key) values (v_department_key);
+
+ return v_department_key;
+ end;
+
+ procedure del (
+ department_key in dotlrn_departments.department_key%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_departments
+ where department_key = department_key;
+
+ dotlrn_community_type.del(department_key);
+ end;
+end;
+/
+show errors
+
+create or replace package dotlrn_class
+is
+ function new (
+ class_key in dotlrn_classes.class_key%TYPE,
+ department_key in dotlrn_departments.department_key%TYPE,
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in acs_object_types.pretty_plural%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_classes.class_key%TYPE;
+
+ procedure del (
+ class_key in dotlrn_classes.class_key%TYPE
+ );
+end;
+/
+show errors
+
+create or replace package body dotlrn_class
+is
+ function new (
+ class_key in dotlrn_classes.class_key%TYPE,
+ department_key in dotlrn_departments.department_key%TYPE,
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in acs_object_types.pretty_plural%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_classes.class_key%TYPE
+ is
+ v_class_key dotlrn_classes.class_key%TYPE;
+ begin
+ v_class_key := dotlrn_community_type.new (
+ community_type => class_key,
+ parent_type => department_key,
+ pretty_name => pretty_name,
+ pretty_plural => pretty_plural,
+ description => description,
+ package_id => package_id,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert
+ into dotlrn_classes
+ (class_key, department_key) values (v_class_key, department_key);
+
+ return v_class_key;
+ end;
+
+ procedure del (
+ class_key in dotlrn_classes.class_key%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_classes
+ where class_key = class_key;
+
+ dotlrn_community_type.del(class_key);
+ end;
+end;
+/
+show errors
+
+create or replace package dotlrn_class_instance
+is
+ function new (
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE default null,
+ class_key in dotlrn_class_instances.class_key%TYPE,
+ term_id in dotlrn_class_instances.term_id%TYPE,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_class_instances.class_instance_id%TYPE;
+
+ procedure del (
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE
+ );
+end;
+/
+show errors
+
+create or replace package body dotlrn_class_instance
+is
+ function new (
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE default null,
+ class_key in dotlrn_class_instances.class_key%TYPE,
+ term_id in dotlrn_class_instances.term_id%TYPE,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_class_instances.class_instance_id%TYPE
+ is
+ v_class_instance_id dotlrn_class_instances.class_instance_id%TYPE;
+ begin
+ v_class_instance_id := dotlrn_community.new (
+ community_id => class_instance_id,
+ community_type => class_key,
+ community_key => community_key,
+ pretty_name => pretty_name,
+ description => description,
+ package_id => package_id,
+ portal_id => portal_id,
+ non_member_portal_id => non_member_portal_id,
+ join_policy => join_policy,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert
+ into dotlrn_class_instances
+ (class_instance_id, class_key, term_id)
+ values
+ (v_class_instance_id, class_key, term_id);
+
+ return v_class_instance_id;
+ end;
+
+ procedure del (
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_class_instances
+ where class_instance_id= class_instance_id;
+
+ dotlrn_community.del(community_id => class_instance_id);
+ end;
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+
+--
+-- create dotLRN clubs model
+--
+-- @author yon (yon@openforce.net)
+-- @creation-date August 18th, 2001
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_club
+is
+ function new (
+ club_id in dotlrn_clubs.club_id%TYPE default null,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_clubs.club_id%TYPE;
+
+ procedure del (
+ club_id in dotlrn_clubs.club_id%TYPE
+ );
+end;
+/
+show errors
+
+create or replace package body dotlrn_club
+is
+ function new (
+ club_id in dotlrn_clubs.club_id%TYPE default null,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_clubs.club_id%TYPE
+ is
+ v_club_id integer;
+ begin
+ v_club_id := dotlrn_community.new(
+ community_id => club_id,
+ community_type => 'dotlrn_club',
+ community_key => community_key,
+ pretty_name => pretty_name,
+ description => description,
+ package_id => package_id,
+ portal_id => portal_id,
+ non_member_portal_id => non_member_portal_id,
+ join_policy => join_policy,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert
+ into dotlrn_clubs (club_id)
+ values (v_club_id);
+
+ return v_club_id;
+ end;
+
+ procedure del (
+ club_id in dotlrn_clubs.club_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_clubs
+ where club_id = dotlrn_club.del.club_id;
+
+ dotlrn_community.del(community_id => club_id);
+ end;
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+create or replace package dotlrn_community_type
+is
+ function new (
+ community_type in dotlrn_community_types.community_type%TYPE,
+ parent_type in dotlrn_community_types.supertype%TYPE default 'dotlrn_community',
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in dotlrn_community_types.pretty_name%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_community_types.community_type%TYPE;
+
+ procedure del (
+ community_type in dotlrn_community_types.community_type%TYPE
+ );
+
+ function name (
+ community_type in dotlrn_community_types.community_type%TYPE
+ ) return varchar;
+end;
+/
+show errors
+
+create or replace package body dotlrn_community_type
+is
+ function new (
+ community_type in dotlrn_community_types.community_type%TYPE,
+ parent_type in dotlrn_community_types.supertype%TYPE default 'dotlrn_community',
+ pretty_name in dotlrn_community_types.pretty_name%TYPE,
+ pretty_plural in dotlrn_community_types.pretty_name%TYPE default null,
+ description in dotlrn_community_types.description%TYPE,
+ package_id in dotlrn_community_types.package_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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_community_types.community_type%TYPE
+ is
+ v_parent_object_type acs_object_types.object_type%TYPE;
+ v_unique_name acs_objects.object_id%TYPE;
+ begin
+ if parent_type is null then
+ v_parent_object_type:= 'group';
+ else
+ v_parent_object_type:= parent_type;
+ end if;
+
+ select acs_object_id_seq.nextval
+ into v_unique_name
+ from dual;
+
+ acs_object_type.create_type (
+ supertype => v_parent_object_type,
+ object_type => dotlrn_community_type.new.community_type,
+ pretty_name => dotlrn_community_type.new.community_type,
+ pretty_plural => dotlrn_community_type.new.community_type,
+ table_name => v_unique_name,
+ id_column => v_unique_name,
+ package_name => v_unique_name,
+ name_method => 'acs_group.name'
+ );
+
+ insert
+ into group_types
+ (group_type, default_join_policy)
+ values
+ (dotlrn_community_type.new.community_type, 'closed');
+
+ insert
+ into dotlrn_community_types
+ (community_type,
+ pretty_name,
+ description,
+ package_id,
+ supertype)
+ values
+ (dotlrn_community_type.new.community_type,
+ dotlrn_community_type.new.pretty_name,
+ dotlrn_community_type.new.description,
+ dotlrn_community_type.new.package_id,
+ dotlrn_community_type.new.parent_type);
+
+ return community_type;
+ end;
+
+ procedure del (
+ community_type in dotlrn_community_types.community_type%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_community_types
+ where community_type = dotlrn_community_type.del.community_type;
+
+ delete
+ from group_types
+ where group_types.group_type = dotlrn_community_type.del.community_type;
+
+ acs_object_type.drop_type(dotlrn_community_type.del.community_type);
+ end;
+
+ function name (
+ community_type in dotlrn_community_types.community_type%TYPE
+ ) return varchar
+ is
+ v_name dotlrn_community_types.pretty_name%TYPE;
+ begin
+ select dotlrn_community_types.pretty_name
+ into v_name
+ from dotlrn_community_types
+ where dotlrn_community_types.community_type = dotlrn_community_type.name.community_type;
+
+ return v_name;
+ end;
+end;
+/
+show errors
+
+create or replace package dotlrn_community
+is
+
+ function new (
+ community_id in dotlrn_communities_all.community_id%TYPE default null,
+ parent_community_id in dotlrn_communities_all.parent_community_id%TYPE default null,
+ community_type in dotlrn_communities_all.community_type%TYPE,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ archived_p in dotlrn_communities_all.archived_p%TYPE default 'f',
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_communities_all.community_id%TYPE;
+
+ procedure set_active_dates (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ start_date in dotlrn_communities_all.active_start_date%TYPE,
+ end_date in dotlrn_communities_all.active_end_date%TYPE
+ );
+
+ procedure del (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ );
+
+ function name (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return varchar;
+
+ function member_p (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ party_id in parties.party_id%TYPE
+ ) return char;
+
+ function admin_p (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ party_id in parties.party_id%TYPE
+ ) return char;
+
+ function url (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return varchar2;
+
+ function has_subcomm_p (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return char;
+
+end dotlrn_community;
+/
+show errors
+
+create or replace package body dotlrn_community
+as
+
+ function new (
+ community_id in dotlrn_communities_all.community_id%TYPE default null,
+ parent_community_id in dotlrn_communities_all.parent_community_id%TYPE default null,
+ community_type in dotlrn_communities_all.community_type%TYPE,
+ community_key in dotlrn_communities_all.community_key%TYPE,
+ pretty_name in dotlrn_communities_all.pretty_name%TYPE,
+ description in dotlrn_communities_all.description%TYPE,
+ archived_p in dotlrn_communities_all.archived_p%TYPE default 'f',
+ portal_id in dotlrn_communities_all.portal_id%TYPE default null,
+ non_member_portal_id in dotlrn_communities_all.non_member_portal_id%TYPE default null,
+ package_id in dotlrn_communities_all.package_id%TYPE default null,
+ join_policy in groups.join_policy%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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return dotlrn_communities_all.community_id%TYPE
+ is
+ c_id integer;
+ begin
+ c_id := acs_group.new (
+ context_id => dotlrn_community.new.context_id,
+ group_id => dotlrn_community.new.community_id,
+ object_type => dotlrn_community.new.community_type,
+ creation_date => dotlrn_community.new.creation_date,
+ creation_user => dotlrn_community.new.creation_user,
+ creation_ip => dotlrn_community.new.creation_ip,
+ group_name => dotlrn_community.new.community_key,
+ join_policy => dotlrn_community.new.join_policy
+ );
+
+ insert into dotlrn_communities_all
+ (community_id,
+ parent_community_id,
+ community_type,
+ community_key,
+ pretty_name,
+ description,
+ package_id,
+ archived_p,
+ portal_id,
+ non_member_portal_id)
+ values
+ (c_id,
+ dotlrn_community.new.parent_community_id,
+ dotlrn_community.new.community_type,
+ dotlrn_community.new.community_key,
+ dotlrn_community.new.pretty_name,
+ dotlrn_community.new.description,
+ dotlrn_community.new.package_id,
+ dotlrn_community.new.archived_p,
+ dotlrn_community.new.portal_id,
+ dotlrn_community.new.non_member_portal_id);
+
+ return c_id;
+ end;
+
+ procedure set_active_dates (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ start_date in dotlrn_communities_all.active_start_date%TYPE,
+ end_date in dotlrn_communities_all.active_end_date%TYPE
+ )
+ is
+ begin
+ update dotlrn_communities_all
+ set active_start_date = dotlrn_community.set_active_dates.start_date,
+ active_end_date = dotlrn_community.set_active_dates.end_date
+ where dotlrn_communities_all.community_id = dotlrn_community.set_active_dates.community_id;
+ end;
+
+ procedure del (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_communities_all
+ where dotlrn_communities_all.community_id = dotlrn_community.del.community_id;
+
+ acs_group.del(dotlrn_community.del.community_id);
+ end;
+
+ function name (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return varchar
+ is
+ begin
+ return acs_group.name(dotlrn_community.name.community_id);
+ end;
+
+ function member_p (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ party_id in parties.party_id%TYPE
+ ) return char
+ is
+ v_member_p char(1);
+ begin
+ select decode(count(*), 0, 'f', 't')
+ into v_member_p
+ from dual
+ where exists (select 1
+ from dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = dotlrn_community.member_p.party_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_community.member_p.community_id);
+
+ return v_member_p;
+ end;
+
+ function admin_p (
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ party_id in parties.party_id%TYPE
+ ) return char
+ is
+ v_rv char(1);
+ begin
+ select decode(
+ acs_permission.permission_p(dotlrn_community.admin_p.community_id, dotlrn_community.admin_p.party_id, 'dotlrn_admin_community'),
+ 'f',
+ acs_permission.permission_p(dotlrn_community.admin_p.community_id, dotlrn_community.admin_p.party_id, 'admin'),
+ 't'
+ ) into v_rv
+ from dual;
+
+ return v_rv;
+ end;
+
+ function url (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return varchar2
+ is
+ v_node_id site_nodes.node_id%TYPE;
+ begin
+ select site_nodes.node_id into v_node_id
+ from dotlrn_communities_all,
+ site_nodes
+ where dotlrn_communities_all.community_id = dotlrn_community.url.community_id
+ and site_nodes.object_id = dotlrn_communities_all.package_id;
+
+ return site_node.url(v_node_id);
+
+ exception
+ when no_data_found then
+ return '';
+ end;
+
+ function has_subcomm_p (
+ community_id in dotlrn_communities_all.community_id%TYPE
+ ) return char
+ is
+ v_rv char(1);
+ begin
+ select decode(count(*), 0, 'f', 't')
+ into v_rv
+ from dual
+ where exists (select 1
+ from dotlrn_communities_all
+ where dotlrn_communities_all.parent_community_id = dotlrn_community.has_subcomm_p.community_id);
+ return v_rv;
+ end;
+
+end;
+/
+show errors
+
+
+create or replace package dotlrn_member_rel
+is
+
+ function new (
+ rel_id in dotlrn_member_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_member_rel',
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_member_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_member_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_member_rel
+is
+
+ function new (
+ rel_id in dotlrn_member_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_member_rel',
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_member_rels.rel_id%TYPE
+ is
+ v_rel_id membership_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= membership_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ object_id_one => community_id,
+ object_id_two => user_id,
+ member_state => dotlrn_member_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_member_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_member_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_member_rels
+ where rel_id = dotlrn_member_rel.del.rel_id;
+
+ membership_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_admin_rel
+is
+
+ function new (
+ rel_id in dotlrn_admin_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_admin_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_admin_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_admin_rel
+is
+
+ function new (
+ rel_id in dotlrn_admin_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
+ community_id in dotlrn_communities_all.community_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_admin_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_admin_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_member_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => community_id,
+ user_id => user_id,
+ member_state => dotlrn_admin_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_admin_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_admin_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_admin_rels
+ where rel_id = dotlrn_admin_rel.del.rel_id;
+
+ dotlrn_member_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_student_rel
+is
+
+ function new (
+ rel_id in dotlrn_student_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_student_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_student_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_student_rel
+is
+
+ function new (
+ rel_id in dotlrn_student_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_student_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_student_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_member_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => class_instance_id,
+ user_id => user_id,
+ member_state => dotlrn_student_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_student_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_student_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_student_rels
+ where rel_id = dotlrn_student_rel.del.rel_id;
+
+ dotlrn_member_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_ta_rel
+is
+
+ function new (
+ rel_id in dotlrn_ta_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ta_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_ta_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_ta_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_ta_rel
+is
+
+ function new (
+ rel_id in dotlrn_ta_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ta_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_ta_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_ta_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_admin_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => class_instance_id,
+ user_id => user_id,
+ member_state => dotlrn_ta_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_ta_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_ta_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_ta_rels
+ where rel_id = dotlrn_ta_rel.del.rel_id;
+
+ dotlrn_admin_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_ca_rel
+is
+
+ function new (
+ rel_id in dotlrn_ca_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ca_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_ca_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_ca_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_ca_rel
+is
+
+ function new (
+ rel_id in dotlrn_ca_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ca_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_ca_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_ca_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_admin_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => class_instance_id,
+ user_id => user_id,
+ member_state => dotlrn_ca_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_ca_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_ca_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_ca_rels
+ where rel_id = dotlrn_ca_rel.del.rel_id;
+
+ dotlrn_admin_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_cadmin_rel
+is
+
+ function new (
+ rel_id in dotlrn_cadmin_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_cadmin_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_cadmin_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_cadmin_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_cadmin_rel
+is
+
+ function new (
+ rel_id in dotlrn_cadmin_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_cadmin_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_cadmin_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_cadmin_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_admin_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => class_instance_id,
+ user_id => user_id,
+ member_state => dotlrn_cadmin_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_cadmin_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_cadmin_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_cadmin_rels
+ where rel_id = dotlrn_cadmin_rel.del.rel_id;
+
+ dotlrn_admin_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+
+create or replace package dotlrn_instructor_rel
+is
+
+ function new (
+ rel_id in dotlrn_instructor_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_instructor_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_instructor_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_instructor_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_instructor_rel
+is
+
+ function new (
+ rel_id in dotlrn_instructor_rels.rel_id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_instructor_rel',
+ class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+ user_id in users.user_id%TYPE,
+ member_state in membership_rels.member_state%TYPE default 'approved',
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_instructor_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_instructor_rels.rel_id%TYPE;
+ begin
+ v_rel_id:= dotlrn_admin_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ community_id => class_instance_id,
+ user_id => user_id,
+ member_state => dotlrn_instructor_rel.new.member_state,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_instructor_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_instructor_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_instructor_rels
+ where rel_id = dotlrn_instructor_rel.del.rel_id;
+
+ dotlrn_admin_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors;
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Create the External package
+--
+-- @author yon@openforce.net
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_external_profile_rel
+as
+ function new (
+ rel_id in dotlrn_external_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_external_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_external_profile_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors
+
+create or replace package body dotlrn_external_profile_rel
+as
+ function new (
+ rel_id in dotlrn_external_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_external_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_user_profile_rels.rel_id%TYPE;
+ v_group_id groups.group_id%TYPE;
+ begin
+ if group_id is null then
+ select min(group_id)
+ into v_group_id
+ from profiled_groups
+ where profile_provider = (select min(impl_id)
+ from acs_sc_impls
+ where impl_name = 'dotlrn_external_profile_provider');
+ else
+ v_group_id := group_id;
+ end if;
+
+ v_rel_id := dotlrn_user_profile_rel.new(
+ rel_id => rel_id,
+ user_id => user_id,
+ portal_id => portal_id,
+ theme_id => theme_id,
+ id => id,
+ rel_type => rel_type,
+ group_id => v_group_id,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_external_profile_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_external_profile_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_external_profile_rels
+ where rel_id = dotlrn_external_profile_rel.del.rel_id;
+
+ dotlrn_user_profile_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Create the Professor package
+--
+-- @author yon@openforce.net
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_professor_profile_rel
+as
+ function new (
+ rel_id in dotlrn_professor_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_professor_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_professor_profile_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors
+
+create or replace package body dotlrn_professor_profile_rel
+as
+ function new (
+ rel_id in dotlrn_professor_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_professor_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_user_profile_rels.rel_id%TYPE;
+ v_group_id groups.group_id%TYPE;
+ begin
+ if group_id is null then
+ select min(group_id)
+ into v_group_id
+ from profiled_groups
+ where profile_provider = (select min(impl_id)
+ from acs_sc_impls
+ where impl_name = 'dotlrn_professor_profile_provider');
+ else
+ v_group_id := group_id;
+ end if;
+
+ v_rel_id := dotlrn_user_profile_rel.new(
+ rel_id => rel_id,
+ user_id => user_id,
+ portal_id => portal_id,
+ theme_id => theme_id,
+ id => id,
+ rel_type => rel_type,
+ group_id => v_group_id,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_professor_profile_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_professor_profile_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_professor_profile_rels
+ where rel_id = dotlrn_professor_profile_rel.del.rel_id;
+
+ dotlrn_user_profile_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Create the Student package
+--
+-- @author yon@openforce.net
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_student_profile_rel
+as
+ function new (
+ rel_id in dotlrn_student_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_student_profile_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors
+
+create or replace package body dotlrn_student_profile_rel
+as
+ function new (
+ rel_id in dotlrn_student_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE
+ is
+ v_rel_id dotlrn_user_profile_rels.rel_id%TYPE;
+ v_group_id groups.group_id%TYPE;
+ begin
+ if group_id is null then
+ select min(group_id)
+ into v_group_id
+ from profiled_groups
+ where profile_provider = (select min(impl_id)
+ from acs_sc_impls
+ where impl_name = 'dotlrn_student_profile_provider');
+ else
+ v_group_id := group_id;
+ end if;
+
+ v_rel_id := dotlrn_user_profile_rel.new(
+ rel_id => rel_id,
+ user_id => user_id,
+ portal_id => portal_id,
+ theme_id => theme_id,
+ id => id,
+ rel_type => rel_type,
+ group_id => v_group_id,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_student_profile_rels
+ (rel_id)
+ values
+ (v_rel_id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_student_profile_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_student_profile_rels
+ where rel_id = dotlrn_student_profile_rel.del.rel_id;
+
+ dotlrn_user_profile_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Create the User Profile package
+--
+-- @author yon@openforce.net
+-- @version $Id: upgrade-1.0-1.0d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package dotlrn_user_profile_rel
+as
+ function new (
+ rel_id in dotlrn_user_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_user_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE;
+
+ procedure del (
+ rel_id in dotlrn_user_profile_rels.rel_id%TYPE
+ );
+
+end;
+/
+show errors
+
+create or replace package body dotlrn_user_profile_rel
+as
+ function new (
+ rel_id in dotlrn_user_profile_rels.rel_id%TYPE default null,
+ user_id in users.user_id%TYPE,
+ portal_id in dotlrn_user_profile_rels.portal_id%TYPE,
+ theme_id in dotlrn_user_profile_rels.theme_id%TYPE default null,
+ id in dotlrn_user_profile_rels.id%TYPE default null,
+ rel_type in acs_rels.rel_type%TYPE default 'dotlrn_user_profile_rel',
+ group_id in groups.group_id%TYPE default null,
+ creation_user in acs_objects.creation_user%TYPE default null,
+ creation_ip in acs_objects.creation_ip%TYPE default null
+ ) return dotlrn_user_profile_rels.rel_id%TYPE
+ is
+ v_rel_id user_profile_rels.rel_id%TYPE;
+ v_group_id groups.group_id%TYPE;
+ begin
+ if group_id is null then
+ select min(group_id)
+ into v_group_id
+ from profiled_groups
+ where profile_provider = (select min(impl_id)
+ from acs_sc_impls
+ where impl_name = 'dotlrn_user_profile_provider');
+ else
+ v_group_id := group_id;
+ end if;
+
+ v_rel_id := user_profile_rel.new(
+ rel_id => rel_id,
+ rel_type => rel_type,
+ group_id => v_group_id,
+ user_id => user_id,
+ creation_user => creation_user,
+ creation_ip => creation_ip
+ );
+
+ insert
+ into dotlrn_user_profile_rels
+ (rel_id, portal_id, theme_id, id)
+ values
+ (v_rel_id, portal_id, theme_id, id);
+
+ return v_rel_id;
+ end;
+
+ procedure del (
+ rel_id in dotlrn_user_profile_rels.rel_id%TYPE
+ )
+ is
+ begin
+ delete
+ from dotlrn_user_profile_rels
+ where rel_id = dotlrn_user_profile_rel.del.rel_id;
+
+ user_profile_rel.del(rel_id);
+ end;
+
+end;
+/
+show errors
Index: openacs-4/packages/new-portal/sql/oracle/upgrade/upgrade-0.1a-0.2d1.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/upgrade/upgrade-0.1a-0.2d1.sql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/sql/oracle/upgrade/upgrade-0.1a-0.2d1.sql 8 Oct 2003 16:03:58 -0000 1.1
@@ -0,0 +1,593 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- The New Portal Package
+-- copyright 2001, MIT
+-- distributed under the GNU GPL v2
+--
+-- @author Arjun Sanyal (arjun@openforce.net)
+-- @version $Id: upgrade-0.1a-0.2d1.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+create or replace package portal_page
+as
+
+ function new (
+ page_id in portal_pages.page_id%TYPE default null,
+ pretty_name in portal_pages.pretty_name%TYPE default 'Untitled Page',
+ portal_id in portal_pages.portal_id%TYPE,
+ layout_id in portal_pages.layout_id%TYPE default null,
+ object_type in acs_object_types.object_type%TYPE default 'portal_page',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_pages.page_id%TYPE;
+
+ procedure del (
+ page_id in portal_pages.page_id%TYPE
+ );
+
+end portal_page;
+/
+show errors
+
+create or replace package body portal_page
+as
+
+ function new (
+ page_id in portal_pages.page_id%TYPE default null,
+ pretty_name in portal_pages.pretty_name%TYPE default 'Untitled Page',
+ portal_id in portal_pages.portal_id%TYPE,
+ layout_id in portal_pages.layout_id%TYPE default null,
+ object_type in acs_object_types.object_type%TYPE default 'portal_page',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_pages.page_id%TYPE
+ is
+ v_page_id portal_pages.page_id%TYPE;
+ v_layout_id portal_pages.layout_id%TYPE;
+ v_sort_key portal_pages.sort_key%TYPE;
+ begin
+
+ v_page_id := acs_object.new(
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ if layout_id is null then
+ select min(layout_id)
+ into v_layout_id
+ from portal_layouts;
+ else
+ v_layout_id := layout_id;
+ end if;
+
+ select nvl(max(sort_key) + 1, 0)
+ into v_sort_key
+ from portal_pages
+ where portal_id = portal_page.new.portal_id;
+
+ insert into portal_pages
+ (page_id, pretty_name, portal_id, layout_id, sort_key)
+ values
+ (v_page_id, pretty_name, portal_id, v_layout_id, v_sort_key);
+
+ return v_page_id;
+
+ end new;
+
+ procedure del (
+ page_id in portal_pages.page_id%TYPE
+ )
+ is
+ v_portal_id portal_pages.portal_id%TYPE;
+ v_sort_key portal_pages.sort_key%TYPE;
+ v_curr_sort_key portal_pages.sort_key%TYPE;
+ v_page_count_from_0 integer;
+ begin
+
+ -- IMPORTANT: sort keys MUST be an unbroken sequence from 0 to max(sort_key)
+
+ select portal_id, sort_key
+ into v_portal_id, v_sort_key
+ from portal_pages
+ where page_id = portal_page.del.page_id;
+
+ select (count(*) - 1)
+ into v_page_count_from_0
+ from portal_pages
+ where portal_id = v_portal_id;
+
+ for i in 0 .. v_page_count_from_0 loop
+
+ if i = v_sort_key then
+
+ delete
+ from portal_pages
+ where page_id = portal_page.del.page_id;
+
+ elsif i > v_sort_key then
+
+ update portal_pages
+ set sort_key = -1
+ where sort_key = i;
+
+ update portal_pages
+ set sort_key = i - 1
+ where sort_key = -1;
+
+ end if;
+
+ end loop;
+
+ acs_object.del(page_id);
+
+ end del;
+
+end portal_page;
+/
+show errors
+
+create or replace package portal
+as
+
+ function new (
+ portal_id in portals.portal_id%TYPE default null,
+ name in portals.name%TYPE default 'Untitled',
+ theme_id in portals.theme_id%TYPE default null,
+ layout_id in portal_layouts.layout_id%TYPE default null,
+ template_id in portals.template_id%TYPE default null,
+ default_page_name in portal_pages.pretty_name%TYPE default 'Main Page',
+ object_type in acs_object_types.object_type%TYPE default 'portal',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portals.portal_id%TYPE;
+
+ procedure del (
+ portal_id in portals.portal_id%TYPE
+ );
+end portal;
+/
+show errors
+
+create or replace package body portal
+as
+ function new (
+ portal_id in portals.portal_id%TYPE default null,
+ name in portals.name%TYPE default 'Untitled',
+ theme_id in portals.theme_id%TYPE default null,
+ layout_id in portal_layouts.layout_id%TYPE default null,
+ template_id in portals.template_id%TYPE default null,
+ default_page_name in portal_pages.pretty_name%TYPE default 'Main Page',
+ object_type in acs_object_types.object_type%TYPE default 'portal',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portals.portal_id%TYPE
+ is
+ v_portal_id portals.portal_id%TYPE;
+ v_theme_id portals.theme_id%TYPE;
+ v_layout_id portal_layouts.layout_id%TYPE;
+ v_page_id portal_pages.page_id%TYPE;
+ v_new_element_id portal_element_map.element_id%TYPE;
+ v_new_parameter_id portal_element_parameters.parameter_id%TYPE;
+ begin
+
+ v_portal_id := acs_object.new(
+ object_id => portal_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ if template_id is null then
+
+ if portal.new.theme_id is null then
+ select max(theme_id)
+ into v_theme_id
+ from portal_element_themes;
+ else
+ v_theme_id := portal.new.theme_id;
+ end if;
+
+ if layout_id is null then
+ select min(layout_id)
+ into v_layout_id
+ from portal_layouts;
+ else
+ v_layout_id := portal.new.layout_id;
+ end if;
+
+ insert
+ into portals
+ (portal_id, name, theme_id)
+ values
+ (v_portal_id, name, v_theme_id);
+
+ -- now insert the default page
+ v_page_id := portal_page.new (
+ portal_id => v_portal_id,
+ pretty_name => default_page_name,
+ layout_id => v_layout_id,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ else
+
+ -- we have a portal as our template. copy it's theme, pages, layouts,
+ -- elements, and element params.
+ select theme_id
+ into v_theme_id
+ from portals
+ where portal_id = portal.new.template_id;
+
+ insert
+ into portals
+ (portal_id, name, theme_id, template_id)
+ values
+ (v_portal_id, name, v_theme_id, portal.new.template_id);
+
+ -- now insert the pages from the portal template
+ for page in (select *
+ from portal_pages
+ where portal_id = portal.new.template_id)
+ loop
+
+ v_page_id := portal_page.new(
+ portal_id => v_portal_id,
+ pretty_name => page.pretty_name,
+ layout_id => page.layout_id
+ );
+
+ -- now get the elements on the template's page and put them on the new page
+ for element in (select *
+ from portal_element_map
+ where page_id = page.page_id)
+ loop
+
+ select acs_object_id_seq.nextval
+ into v_new_element_id
+ from dual;
+
+ insert
+ into portal_element_map
+ (element_id, name, pretty_name, page_id, datasource_id, region, state, sort_key)
+ select v_new_element_id, name, pretty_name, v_page_id, datasource_id, region, state, sort_key
+ from portal_element_map pem
+ where pem.element_id = element.element_id;
+
+ -- now for the element's params
+ for param in (select *
+ from portal_element_parameters
+ where element_id = element.element_id)
+ loop
+
+ select acs_object_id_seq.nextval
+ into v_new_parameter_id
+ from dual;
+
+ insert
+ into portal_element_parameters
+ (parameter_id, element_id, config_required_p, configured_p, key, value)
+ select v_new_parameter_id, v_new_element_id, config_required_p, configured_p, key, value
+ from portal_element_parameters
+ where parameter_id = param.parameter_id;
+
+ end loop;
+
+ end loop;
+
+ end loop;
+
+ end if;
+
+ return v_portal_id;
+
+ end new;
+
+ procedure del (
+ portal_id in portals.portal_id%TYPE
+ )
+ is
+ begin
+
+ for page in (select page_id
+ from portal_pages
+ where portal_id = portal.del.portal_id
+ order by sort_key desc)
+ loop
+ portal_page.del(page_id => page.page_id);
+ end loop;
+
+ acs_object.del(portal_id);
+
+ end del;
+
+end portal;
+/
+show errors
+
+create or replace package portal_element_theme
+as
+ function new (
+ theme_id in portal_element_themes.theme_id%TYPE default null,
+ name in portal_element_themes.name%TYPE,
+ description in portal_element_themes.description%TYPE default null,
+ filename in portal_element_themes.filename%TYPE,
+ resource_dir in portal_element_themes.resource_dir%TYPE,
+ object_type in acs_object_types.object_type%TYPE default 'portal_element_theme',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_element_themes.theme_id%TYPE;
+
+ procedure del (
+ theme_id in portal_element_themes.theme_id%TYPE
+ );
+
+end portal_element_theme;
+/
+show errors
+
+create or replace package body portal_element_theme
+as
+ function new (
+ theme_id in portal_element_themes.theme_id%TYPE default null,
+ name in portal_element_themes.name%TYPE,
+ description in portal_element_themes.description%TYPE default null,
+ filename in portal_element_themes.filename%TYPE,
+ resource_dir in portal_element_themes.resource_dir%TYPE,
+ object_type in acs_object_types.object_type%TYPE default 'portal_element_theme',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_element_themes.theme_id%TYPE
+ is
+ v_theme_id portal_element_themes.theme_id%TYPE;
+ begin
+
+ v_theme_id := acs_object.new(
+ object_id => theme_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert
+ into portal_element_themes
+ (theme_id, name, description, filename, resource_dir)
+ values
+ (v_theme_id, name, description, filename, resource_dir);
+
+ return v_theme_id;
+
+ end new;
+
+ procedure del (
+ theme_id in portal_element_themes.theme_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(theme_id);
+ end del;
+
+end portal_element_theme;
+/
+show errors
+
+create or replace package portal_layout
+as
+
+ function new (
+ layout_id in portal_layouts.layout_id%TYPE default null,
+ name in portal_layouts.name%TYPE,
+ description in portal_layouts.description%TYPE default null,
+ filename in portal_layouts.filename%TYPE,
+ resource_dir in portal_layouts.resource_dir%TYPE,
+ object_type in acs_object_types.object_type%TYPE default 'portal_layout',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_layouts.layout_id%TYPE;
+
+ procedure del (
+ layout_id in portal_layouts.layout_id%TYPE
+ );
+
+ procedure add_region (
+ layout_id in portal_supported_regions.layout_id%TYPE,
+ region in portal_supported_regions.region%TYPE,
+ immutable_p in portal_supported_regions.immutable_p%TYPE default 'f'
+ );
+
+end portal_layout;
+/
+show errors
+
+create or replace package body portal_layout
+as
+ function new (
+ layout_id in portal_layouts.layout_id%TYPE default null,
+ name in portal_layouts.name%TYPE,
+ description in portal_layouts.description%TYPE default null,
+ filename in portal_layouts.filename%TYPE,
+ resource_dir in portal_layouts.resource_dir%TYPE,
+ object_type in acs_object_types.object_type%TYPE default 'portal_layout',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_layouts.layout_id%TYPE
+ is
+ v_layout_id portal_layouts.layout_id%TYPE;
+ begin
+
+ v_layout_id := acs_object.new(
+ object_id => layout_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert into portal_layouts
+ (layout_id, name, description, filename, resource_dir)
+ values
+ (v_layout_id, name, description, filename, resource_dir);
+
+ return v_layout_id;
+
+ end new;
+
+ procedure del (
+ layout_id in portal_layouts.layout_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(layout_id);
+ end del;
+
+ procedure add_region (
+ layout_id in portal_supported_regions.layout_id%TYPE,
+ region in portal_supported_regions.region%TYPE,
+ immutable_p in portal_supported_regions.immutable_p%TYPE default 'f'
+ )
+ is
+ begin
+ insert
+ into portal_supported_regions
+ (layout_id, region, immutable_p)
+ values (layout_id, region, immutable_p);
+ end add_region;
+
+end portal_layout;
+/
+show errors
+
+create or replace package portal_datasource
+as
+
+ function new (
+ datasource_id in portal_datasources.datasource_id%TYPE default null,
+ name in portal_datasources.name%TYPE default null,
+ description in portal_datasources.description%TYPE default null,
+ object_type in acs_object_types.object_type%TYPE default 'portal_datasource',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_datasources.datasource_id%TYPE;
+
+ procedure del (
+ datasource_id in portal_datasources.datasource_id%TYPE
+ );
+
+ procedure set_def_param (
+ datasource_id in portal_datasource_def_params.datasource_id%TYPE,
+ config_required_p in portal_datasource_def_params.config_required_p%TYPE default null,
+ configured_p in portal_datasource_def_params.configured_p%TYPE default null,
+ key in portal_datasource_def_params.key%TYPE,
+ value in portal_datasource_def_params.value%TYPE default null
+ );
+
+end portal_datasource;
+/
+show errors
+
+create or replace package body portal_datasource
+as
+
+ function new (
+ datasource_id in portal_datasources.datasource_id%TYPE default null,
+ name in portal_datasources.name%TYPE default null,
+ description in portal_datasources.description%TYPE default null,
+ object_type in acs_object_types.object_type%TYPE default 'portal_datasource',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return portal_datasources.datasource_id%TYPE
+ is
+ v_datasource_id portal_datasources.datasource_id%TYPE;
+ begin
+
+ v_datasource_id := acs_object.new(
+ object_id => datasource_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert into portal_datasources
+ (datasource_id, name, description)
+ values
+ (v_datasource_id, name, description);
+
+ return v_datasource_id;
+
+ end new;
+
+ procedure del (
+ datasource_id in portal_datasources.datasource_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(datasource_id);
+ end del;
+
+ procedure set_def_param (
+ datasource_id in portal_datasource_def_params.datasource_id%TYPE,
+ config_required_p in portal_datasource_def_params.config_required_p%TYPE default null,
+ configured_p in portal_datasource_def_params.configured_p%TYPE default null,
+ key in portal_datasource_def_params.key%TYPE,
+ value in portal_datasource_def_params.value%TYPE default null
+ )
+ is
+ begin
+
+ insert into portal_datasource_def_params
+ (parameter_id, datasource_id, config_required_p, configured_p, key, value)
+ values
+ (acs_object_id_seq.nextval, datasource_id, config_required_p, configured_p, key, value);
+
+ end set_def_param;
+
+end portal_datasource;
+/
+show errors
Index: openacs-4/packages/static-portlet/sql/oracle/upgrade/upgrade-0.1a-0.2a.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/oracle/upgrade/upgrade-0.1a-0.2a.sql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/static-portlet/sql/oracle/upgrade/upgrade-0.1a-0.2a.sql 8 Oct 2003 16:03:58 -0000 1.1
@@ -0,0 +1,96 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- static-core.sql
+--
+-- arjun@openforce.net
+--
+-- The core DM and API for static portal content
+--
+-- $Id: upgrade-0.1a-0.2a.sql,v 1.1 2003/10/08 16:03:58 mohanp Exp $
+--
+
+--
+-- API
+--
+
+create or replace package static_portal_content_item
+as
+ function new (
+ package_id in static_portal_content.package_id%TYPE default null,
+ pretty_name in static_portal_content.pretty_name%TYPE default null,
+ content in static_portal_content.content%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'static_portal_content',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return acs_objects.object_id%TYPE;
+
+ procedure del (
+ content_id in static_portal_content.content_id%TYPE
+ );
+
+end static_portal_content_item;
+/
+show errors
+
+create or replace package body static_portal_content_item
+as
+ function new (
+ package_id in static_portal_content.package_id%TYPE default null,
+ pretty_name in static_portal_content.pretty_name%TYPE default null,
+ content in static_portal_content.content%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'static_portal_content',
+ 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,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return acs_objects.object_id%TYPE
+ is
+ v_content_id static_portal_content.content_id%TYPE;
+ begin
+ v_content_id := acs_object.new (
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => context_id
+ );
+
+ insert into static_portal_content
+ (content_id, package_id, pretty_name, content)
+ values
+ (v_content_id, new.package_id, new.pretty_name, new.content);
+
+ return v_content_id;
+ end new;
+
+ procedure del (
+ content_id in static_portal_content.content_id%TYPE
+ )
+ is
+ begin
+ delete from static_portal_content where content_id = content_id;
+
+ acs_object.del(content_id);
+ end del;
+
+end static_portal_content_item;
+/
+show errors
+