Index: openacs-4/packages/lors/sql/oracle/lors-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/sql/oracle/Attic/lors-create.sql,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lors/sql/oracle/lors-create.sql 29 Aug 2006 11:32:11 -0000 1.1.2.1 +++ openacs-4/packages/lors/sql/oracle/lors-create.sql 22 Nov 2006 11:44:41 -0000 1.1.2.2 @@ -24,37 +24,37 @@ create or replace package lors as function new_folder ( - name cr_items.name%TYPE, - folder_name cr_folders.label%TYPE, - parent_id cr_items.parent_id%TYPE, - creation_user acs_objects.creation_user%TYPE, - creation_ip acs_objects.creation_ip%TYPE + p_name cr_items.name%TYPE, + p_folder_name cr_folders.label%TYPE, + p_parent_id cr_items.parent_id%TYPE, + p_creation_user acs_objects.creation_user%TYPE, + p_creation_ip acs_objects.creation_ip%TYPE ) return cr_folders.folder_id%TYPE; procedure delete_folder( - folder_id cr_folders.folder_id%TYPE + p_folder_id cr_folders.folder_id%TYPE ); END lors; / create or replace package body lors as function new_folder ( - name cr_items.name%TYPE, - folder_name cr_folders.label%TYPE, - parent_id cr_items.parent_id%TYPE, - creation_user acs_objects.creation_user%TYPE, - creation_ip acs_objects.creation_ip%TYPE + p_name cr_items.name%TYPE, + p_folder_name cr_folders.label%TYPE, + p_parent_id cr_items.parent_id%TYPE, + p_creation_user acs_objects.creation_user%TYPE, + p_creation_ip acs_objects.creation_ip%TYPE ) return cr_folders.folder_id%TYPE is v_folder_id cr_folders.folder_id%TYPE; begin -- Create a new folder v_folder_id := content_folder.new ( - name => name, - label => folder_name, - parent_id => parent_id, - creation_user => creation_user, - creation_ip => creation_ip + name => p_name, + label => p_folder_name, + parent_id => p_parent_id, + creation_user => p_creation_user, + creation_ip => p_creation_ip ); -- register the standard content types @@ -87,7 +87,7 @@ -- Give the creator admin privileges on the folder acs_permission.grant_permission ( object_id => v_folder_id, - grantee_id => creation_user, + grantee_id => p_creation_user, privilege => 'admin' ); @@ -97,11 +97,11 @@ -- Deletes folder procedure delete_folder( - folder_id cr_folders.folder_id%TYPE + p_folder_id cr_folders.folder_id%TYPE ) is begin content_folder.del( - folder_id => folder_id + folder_id => p_folder_id ); end delete_folder; Index: openacs-4/packages/lors/sql/oracle/lors-imscp-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/sql/oracle/Attic/lors-imscp-package-create.sql,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/lors/sql/oracle/lors-imscp-package-create.sql 21 Sep 2006 10:36:52 -0000 1.1.2.2 +++ openacs-4/packages/lors/sql/oracle/lors-imscp-package-create.sql 22 Nov 2006 11:44:41 -0000 1.1.2.3 @@ -27,38 +27,39 @@ -- PL/sql ims_manifest package -- +--Update sql dont' update date if variable = column_name create or replace package ims_manifest as function new( - course_name in ims_cp_manifests.course_name%TYPE, - identifier in ims_cp_manifests.identifier%TYPE, - version in ims_cp_manifests.version%TYPE, - orgs_default in ims_cp_manifests.orgs_default%TYPE, - hasmetadata in ims_cp_manifests.hasmetadata%TYPE, - parent_man_id in ims_cp_manifests.parent_man_id%TYPE, - isscorm in ims_cp_manifests.isscorm%TYPE, - folder_id in ims_cp_manifests.folder_id%TYPE, - fs_package_id in ims_cp_manifests.fs_package_id%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_course_name in ims_cp_manifests.course_name%TYPE, + p_identifier in ims_cp_manifests.identifier%TYPE, + p_version in ims_cp_manifests.version%TYPE, + p_orgs_default in ims_cp_manifests.orgs_default%TYPE, + p_hasmetadata in ims_cp_manifests.hasmetadata%TYPE, + p_parent_man_id in ims_cp_manifests.parent_man_id%TYPE, + p_isscorm in ims_cp_manifests.isscorm%TYPE, + p_folder_id in ims_cp_manifests.folder_id%TYPE, + p_fs_package_id in ims_cp_manifests.fs_package_id%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in ims_cp_manifest_class.lorsm_instance_id%TYPE, - community_id in ims_cp_manifest_class.community_id%TYPE, - class_key in ims_cp_manifest_class.class_key%TYPE, - revision_id in ims_cp_manifest_class.man_id%TYPE, - isshared in ims_cp_manifests.isshared%TYPE, - course_presentation_format in ims_cp_manifests.course_presentation_format%TYPE + p_package_id in ims_cp_manifest_class.lorsm_instance_id%TYPE, + p_community_id in ims_cp_manifest_class.community_id%TYPE, + p_class_key in ims_cp_manifest_class.class_key%TYPE, + p_revision_id in ims_cp_manifest_class.man_id%TYPE, + p_isshared in ims_cp_manifests.isshared%TYPE, + p_course_presentation_fmt in ims_cp_manifests.course_presentation_format%TYPE ) return ims_cp_manifest_class.man_id%TYPE; procedure delete ( - man_id in ims_cp_manifests.man_id%TYPE + p_man_id in ims_cp_manifests.man_id%TYPE ); function get_title ( - man_id in ims_cp_manifests.man_id%TYPE + p_man_id in ims_cp_manifests.man_id%TYPE ) return ims_cp_manifests.course_name%TYPE; end ims_manifest; @@ -67,68 +68,68 @@ create or replace package body ims_manifest as function new( - course_name in ims_cp_manifests.course_name%TYPE, - identifier in ims_cp_manifests.identifier%TYPE, - version in ims_cp_manifests.version%TYPE, - orgs_default in ims_cp_manifests.orgs_default%TYPE, - hasmetadata in ims_cp_manifests.hasmetadata%TYPE, - parent_man_id in ims_cp_manifests.parent_man_id%TYPE, - isscorm in ims_cp_manifests.isscorm%TYPE, - folder_id in ims_cp_manifests.folder_id%TYPE, - fs_package_id in ims_cp_manifests.fs_package_id%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_course_name in ims_cp_manifests.course_name%TYPE, + p_identifier in ims_cp_manifests.identifier%TYPE, + p_version in ims_cp_manifests.version%TYPE, + p_orgs_default in ims_cp_manifests.orgs_default%TYPE, + p_hasmetadata in ims_cp_manifests.hasmetadata%TYPE, + p_parent_man_id in ims_cp_manifests.parent_man_id%TYPE, + p_isscorm in ims_cp_manifests.isscorm%TYPE, + p_folder_id in ims_cp_manifests.folder_id%TYPE, + p_fs_package_id in ims_cp_manifests.fs_package_id%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in ims_cp_manifest_class.lorsm_instance_id%TYPE, - community_id in ims_cp_manifest_class.community_id%TYPE, - class_key in ims_cp_manifest_class.class_key%TYPE, - revision_id in ims_cp_manifest_class.man_id%TYPE, - isshared in ims_cp_manifests.isshared%TYPE, - course_presentation_format in ims_cp_manifests.course_presentation_format%TYPE + p_package_id in ims_cp_manifest_class.lorsm_instance_id%TYPE, + p_community_id in ims_cp_manifest_class.community_id%TYPE, + p_class_key in ims_cp_manifest_class.class_key%TYPE, + p_revision_id in ims_cp_manifest_class.man_id%TYPE, + p_isshared in ims_cp_manifests.isshared%TYPE, + p_course_presentation_fmt in ims_cp_manifests.course_presentation_format%TYPE ) return ims_cp_manifest_class.man_id%TYPE is begin -- we make an update here because the content::item::new already inserts a row in the ims_cp_manifests update ims_cp_manifests - set course_name=course_name, identifier=identifier, version=version, - orgs_default=orgs_default, hasmetadata=hasmetadata, parent_man_id=parent_man_id, - isscorm=isscorm, folder_id=folder_id, fs_package_id=fs_package_id, isshared = isshared, - course_presentation_format=course_presentation_format - where man_id = revision_id; + set course_name = p_course_name, identifier = p_identifier, version= p_version, + orgs_default = p_orgs_default, hasmetadata = p_hasmetadata, parent_man_id = p_parent_man_id, + isscorm = p_isscorm, folder_id = p_folder_id, fs_package_id = p_fs_package_id, isshared = p_isshared, + course_presentation_format = p_course_presentation_fmt + where man_id = p_revision_id; -- now we add it to the manifest_class relation table insert into ims_cp_manifest_class (man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) values - (revision_id, package_id, community_id, class_key, 't', 'f'); + (p_revision_id, p_package_id, p_community_id, p_class_key, 't', 'f'); - return revision_id; + return p_revision_id; end new; procedure delete ( - man_id in ims_cp_manifests.man_id%TYPE + p_man_id in ims_cp_manifests.man_id%TYPE ) is begin - acs_object.del(man_id); - delete from ims_cp_manifests where man_id = man_id; + acs_object.del(p_man_id); + delete from ims_cp_manifests where man_id = p_man_id; end delete; function get_title ( - man_id in ims_cp_manifests.man_id%TYPE + p_man_id in ims_cp_manifests.man_id%TYPE ) return ims_cp_manifests.course_name%TYPE is - course_name ims_cp_manifests.course_name%TYPE; + v_course_name ims_cp_manifests.course_name%TYPE; begin - select course_name into course_name + select course_name into v_course_name from ims_cp_manifests - where man_id = man_id; + where man_id = p_man_id; - return course_name; + return v_course_name; end get_title; @@ -145,28 +146,28 @@ create or replace package ims_organization as function new( - org_id in ims_cp_organizations.org_id%TYPE, - man_id in ims_cp_organizations.man_id%TYPE, - identifier in ims_cp_organizations.identifier%TYPE, - structure in ims_cp_organizations.structure%TYPE, - title in ims_cp_organizations.org_title%TYPE, - hasmetadata in ims_cp_organizations.hasmetadata%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE, + p_man_id in ims_cp_organizations.man_id%TYPE, + p_identifier in ims_cp_organizations.identifier%TYPE, + p_structure in ims_cp_organizations.structure%TYPE, + p_title in ims_cp_organizations.org_title%TYPE, + p_hasmetadata in ims_cp_organizations.hasmetadata%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_organizations.org_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_organizations.org_id%TYPE ) return ims_cp_organizations.org_id%TYPE; function delete ( - org_id in ims_cp_organizations.org_id%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE ) return integer; function get_title ( - org_id in ims_cp_organizations.org_id%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE ) return ims_cp_organizations.identifier%TYPE; end ims_organization; @@ -175,56 +176,56 @@ create or replace package body ims_organization as function new( - org_id in ims_cp_organizations.org_id%TYPE, - man_id in ims_cp_organizations.man_id%TYPE, - identifier in ims_cp_organizations.identifier%TYPE, - structure in ims_cp_organizations.structure%TYPE, - title in ims_cp_organizations.org_title%TYPE, - hasmetadata in ims_cp_organizations.hasmetadata%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE, + p_man_id in ims_cp_organizations.man_id%TYPE, + p_identifier in ims_cp_organizations.identifier%TYPE, + p_structure in ims_cp_organizations.structure%TYPE, + p_title in ims_cp_organizations.org_title%TYPE, + p_hasmetadata in ims_cp_organizations.hasmetadata%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_organizations.org_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_organizations.org_id%TYPE ) return ims_cp_organizations.org_id%TYPE is begin -- we make an update here because the content::item::new already inserts a row in the ims_cp_organizations update ims_cp_organizations - set man_id= man_id, identifier= identifier, structure= structure, - org_title= title, hasmetadata= hasmetadata - where org_id = revision_id; + set man_id = p_man_id, identifier = p_identifier, structure = p_structure, + org_title = p_title, hasmetadata = p_hasmetadata + where org_id = p_revision_id; - return revision_id; + return p_revision_id; end new; function delete ( - org_id in ims_cp_organizations.org_id%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE ) return integer is begin - acs_object.del(org_id); - delete from ims_cp_organizations where org_id = org_id; + acs_object.del(p_org_id); + delete from ims_cp_organizations where org_id = p_org_id; return 0; end delete; function get_title ( - org_id in ims_cp_organizations.org_id%TYPE + p_org_id in ims_cp_organizations.org_id%TYPE ) return ims_cp_organizations.identifier%TYPE is - title_identifier ims_cp_organizations.identifier%TYPE; + v_title_identifier ims_cp_organizations.identifier%TYPE; begin - select identifier into title_identifier + select identifier into v_title_identifier from ims_cp_organizations - where org_id = org_id; + where org_id = p_org_id; - return title_identifier; + return v_title_identifier; end get_title; @@ -239,38 +240,38 @@ create or replace package ims_item as function new ( - ims_item_id in ims_cp_items.ims_item_id%TYPE, - org_id in ims_cp_items.org_id%TYPE, - identifier in ims_cp_items.identifier%TYPE, - identifierref in ims_cp_items.identifierref%TYPE, - isvisible in ims_cp_items.isvisible%TYPE, - parameters in ims_cp_items.parameters%TYPE, - item_title in ims_cp_items.item_title%TYPE, - parent_item in ims_cp_items.parent_item%TYPE, - hasmetadata in ims_cp_items.hasmetadata%TYPE, - prerequisites_t in ims_cp_items.prerequisites_t%TYPE, - prerequisites_s in ims_cp_items.prerequisites_s%TYPE, - type in ims_cp_items.type%TYPE, - maxtimeallowed in ims_cp_items.maxtimeallowed%TYPE, - timelimitaction in ims_cp_items.timelimitaction%TYPE, - datafromlms in ims_cp_items.datafromlms%TYPE, - masteryscore in ims_cp_items.masteryscore%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE, + p_org_id in ims_cp_items.org_id%TYPE, + p_identifier in ims_cp_items.identifier%TYPE, + p_identifierref in ims_cp_items.identifierref%TYPE, + p_isvisible in ims_cp_items.isvisible%TYPE, + p_parameters in ims_cp_items.parameters%TYPE, + p_item_title in ims_cp_items.item_title%TYPE, + p_parent_item in ims_cp_items.parent_item%TYPE, + p_hasmetadata in ims_cp_items.hasmetadata%TYPE, + p_prerequisites_t in ims_cp_items.prerequisites_t%TYPE, + p_prerequisites_s in ims_cp_items.prerequisites_s%TYPE, + p_type in ims_cp_items.type%TYPE, + p_maxtimeallowed in ims_cp_items.maxtimeallowed%TYPE, + p_timelimitaction in ims_cp_items.timelimitaction%TYPE, + p_datafromlms in ims_cp_items.datafromlms%TYPE, + p_masteryscore in ims_cp_items.masteryscore%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_items.ims_item_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_items.ims_item_id%TYPE ) return ims_cp_items.ims_item_id%TYPE; function delete ( - ims_item_id in ims_cp_items.ims_item_id%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE ) return integer; function get_title ( - ims_item_id in ims_cp_items.ims_item_id%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE ) return ims_cp_items.item_title%TYPE; end ims_item; @@ -280,66 +281,66 @@ create or replace package body ims_item as function new ( - ims_item_id in ims_cp_items.ims_item_id%TYPE, - org_id in ims_cp_items.org_id%TYPE, - identifier in ims_cp_items.identifier%TYPE, - identifierref in ims_cp_items.identifierref%TYPE, - isvisible in ims_cp_items.isvisible%TYPE, - parameters in ims_cp_items.parameters%TYPE, - item_title in ims_cp_items.item_title%TYPE, - parent_item in ims_cp_items.parent_item%TYPE, - hasmetadata in ims_cp_items.hasmetadata%TYPE, - prerequisites_t in ims_cp_items.prerequisites_t%TYPE, - prerequisites_s in ims_cp_items.prerequisites_s%TYPE, - type in ims_cp_items.type%TYPE, - maxtimeallowed in ims_cp_items.maxtimeallowed%TYPE, - timelimitaction in ims_cp_items.timelimitaction%TYPE, - datafromlms in ims_cp_items.datafromlms%TYPE, - masteryscore in ims_cp_items.masteryscore%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE, + p_org_id in ims_cp_items.org_id%TYPE, + p_identifier in ims_cp_items.identifier%TYPE, + p_identifierref in ims_cp_items.identifierref%TYPE, + p_isvisible in ims_cp_items.isvisible%TYPE, + p_parameters in ims_cp_items.parameters%TYPE, + p_item_title in ims_cp_items.item_title%TYPE, + p_parent_item in ims_cp_items.parent_item%TYPE, + p_hasmetadata in ims_cp_items.hasmetadata%TYPE, + p_prerequisites_t in ims_cp_items.prerequisites_t%TYPE, + p_prerequisites_s in ims_cp_items.prerequisites_s%TYPE, + p_type in ims_cp_items.type%TYPE, + p_maxtimeallowed in ims_cp_items.maxtimeallowed%TYPE, + p_timelimitaction in ims_cp_items.timelimitaction%TYPE, + p_datafromlms in ims_cp_items.datafromlms%TYPE, + p_masteryscore in ims_cp_items.masteryscore%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_items.ims_item_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_items.ims_item_id%TYPE ) return ims_cp_items.ims_item_id%TYPE is begin update ims_cp_items - set org_id= org_id, identifier= identifier, identifierref= identifierref, - isvisible= isvisible, parameters= parameters, item_title= item_title, parent_item= parent_item, - hasmetadata= hasmetadata, prerequisites_t= prerequisites_t, prerequisites_s= prerequisites_s, - type= type, maxtimeallowed= maxtimeallowed, timelimitaction= timelimitaction, - datafromlms= datafromlms, masteryscore= masteryscore - where ims_item_id = revision_id; + set org_id = p_org_id, identifier = p_identifier, identifierref = p_identifierref, + isvisible= p_isvisible, parameters = p_parameters, item_title = p_item_title, parent_item = p_parent_item, + hasmetadata = p_hasmetadata, prerequisites_t = p_prerequisites_t, prerequisites_s = p_prerequisites_s, + type = p_type, maxtimeallowed = p_maxtimeallowed, timelimitaction = p_timelimitaction, + datafromlms = p_datafromlms, masteryscore = p_masteryscore + where ims_item_id = p_revision_id; - return revision_id; + return p_revision_id; end new; function delete ( - ims_item_id in ims_cp_items.ims_item_id%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE ) return integer is begin - acs_object.del(ims_item_id); - delete from ims_cp_items where ims_item_id = ims_item_id; + acs_object.del(p_ims_item_id); + delete from ims_cp_items where ims_item_id = p_ims_item_id; return 0; end delete; function get_title ( - ims_item_id in ims_cp_items.ims_item_id%TYPE + p_ims_item_id in ims_cp_items.ims_item_id%TYPE ) return ims_cp_items.item_title%TYPE is - item_title ims_cp_items.item_title%TYPE; + v_item_title ims_cp_items.item_title%TYPE; begin - select item_title into item_title + select item_title into v_item_title from ims_cp_items - where ims_item_id = ims_item_id; + where ims_item_id = p_ims_item_id; - return item_title; + return v_item_title; end get_title; @@ -355,29 +356,29 @@ create or replace package ims_resource as function new ( - res_id in ims_cp_resources.res_id%TYPE, - man_id in ims_cp_resources.man_id%TYPE, - identifier in ims_cp_resources.identifier%TYPE, - type in ims_cp_resources.type%TYPE, - href in ims_cp_resources.href%TYPE, - scorm_type in ims_cp_resources.scorm_type%TYPE, - hasmetadata in ims_cp_resources.hasmetadata%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_res_id in ims_cp_resources.res_id%TYPE, + p_man_id in ims_cp_resources.man_id%TYPE, + p_identifier in ims_cp_resources.identifier%TYPE, + p_type in ims_cp_resources.type%TYPE, + p_href in ims_cp_resources.href%TYPE, + p_scorm_type in ims_cp_resources.scorm_type%TYPE, + p_hasmetadata in ims_cp_resources.hasmetadata%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_resources.res_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_resources.res_id%TYPE ) return ims_cp_resources.res_id%TYPE; function delete ( - res_id in ims_cp_resources.res_id%TYPE + p_res_id in ims_cp_resources.res_id%TYPE ) return integer; function get_title ( - res_id in ims_cp_resources.res_id%TYPE + p_res_id in ims_cp_resources.res_id%TYPE ) return ims_cp_resources.identifier%TYPE; end ims_resource; @@ -387,53 +388,54 @@ create or replace package body ims_resource as function new ( - res_id in ims_cp_resources.res_id%TYPE, - man_id in ims_cp_resources.man_id%TYPE, - identifier in ims_cp_resources.identifier%TYPE, - type in ims_cp_resources.type%TYPE, - href in ims_cp_resources.href%TYPE, - scorm_type in ims_cp_resources.scorm_type%TYPE, - hasmetadata in ims_cp_resources.hasmetadata%TYPE, - creation_date in acs_objects.creation_date%TYPE + p_res_id in ims_cp_resources.res_id%TYPE, + p_man_id in ims_cp_resources.man_id%TYPE, + p_identifier in ims_cp_resources.identifier%TYPE, + p_type in ims_cp_resources.type%TYPE, + p_href in ims_cp_resources.href%TYPE, + p_scorm_type in ims_cp_resources.scorm_type%TYPE, + p_hasmetadata in ims_cp_resources.hasmetadata%TYPE, + p_creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE + p_creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE + p_creation_ip in acs_objects.creation_ip%TYPE default null, - package_id in apm_packages.package_id%TYPE, - revision_id in ims_cp_resources.res_id%TYPE + p_package_id in apm_packages.package_id%TYPE, + p_revision_id in ims_cp_resources.res_id%TYPE ) return ims_cp_resources.res_id%TYPE is begin update ims_cp_resources - set man_id= man_id, identifier= identifier, type= type, - href= href, scorm_type= scorm_type, hasmetadata= hasmetadata - where res_id = revision_id; + set man_id = p_man_id, identifier = p_identifier, type = p_type, + href = p_href, scorm_type = p_scorm_type, hasmetadata = p_hasmetadata + where res_id = p_revision_id; - return revision_id; + return p_revision_id; end new; function delete ( - res_id in ims_cp_resources.res_id%TYPE + p_res_id in ims_cp_resources.res_id%TYPE ) return integer is begin - acs_object.del(res_id); - delete from ims_cp_resources where res_id = res_id; + acs_object.del(p_res_id); + delete from ims_cp_resources where res_id = p_res_id; return 0; end delete; function get_title ( - res_id in ims_cp_resources.res_id%TYPE + p_res_id in ims_cp_resources.res_id%TYPE ) return ims_cp_resources.identifier%TYPE is - identifier ims_cp_resources.identifier%TYPE; + v_identifier ims_cp_resources.identifier%TYPE; begin - select identifier into identifier + select identifier into v_identifier from ims_cp_resources - where res_id = res_id; - + where res_id = p_res_id; + + return v_identifier; end get_title; end ims_resource; @@ -442,8 +444,8 @@ create or replace package ims_cp_item_to_resource as function new ( - ims_item_id in ims_cp_items_to_resources.ims_item_id%TYPE, - res_id in ims_cp_items_to_resources.res_id%TYPE + p_ims_item_id in ims_cp_items_to_resources.ims_item_id%TYPE, + p_res_id in ims_cp_items_to_resources.res_id%TYPE ) return integer; end ims_cp_item_to_resource; @@ -452,13 +454,13 @@ create or replace package body ims_cp_item_to_resource as function new ( - ims_item_id in ims_cp_items_to_resources.ims_item_id%TYPE, - res_id in ims_cp_items_to_resources.res_id%TYPE + p_ims_item_id in ims_cp_items_to_resources.ims_item_id%TYPE, + p_res_id in ims_cp_items_to_resources.res_id%TYPE ) return integer is begin insert into ims_cp_items_to_resources (ims_item_id, res_id) values - (ims_item_id, res_id); + (p_ims_item_id, p_res_id); return 0; end new; @@ -470,13 +472,13 @@ create or replace package ims_dependency as function new ( - dep_id in ims_cp_dependencies.dep_id%TYPE, - res_id in ims_cp_dependencies.res_id%TYPE, - identifierref in ims_cp_dependencies.identifierref%TYPE + p_dep_id in ims_cp_dependencies.dep_id%TYPE, + p_res_id in ims_cp_dependencies.res_id%TYPE, + p_identifierref in ims_cp_dependencies.identifierref%TYPE ) return ims_cp_dependencies.dep_id%TYPE; function delete ( - dep_id in ims_cp_dependencies.dep_id%TYPE + p_dep_id in ims_cp_dependencies.dep_id%TYPE ) return integer; end ims_dependency; @@ -486,26 +488,26 @@ create or replace package body ims_dependency as function new ( - dep_id in ims_cp_dependencies.dep_id%TYPE, - res_id in ims_cp_dependencies.res_id%TYPE, - identifierref in ims_cp_dependencies.identifierref%TYPE + p_dep_id in ims_cp_dependencies.dep_id%TYPE, + p_res_id in ims_cp_dependencies.res_id%TYPE, + p_identifierref in ims_cp_dependencies.identifierref%TYPE ) return ims_cp_dependencies.dep_id%TYPE is begin insert into ims_cp_dependencies (dep_id, res_id, identifierref) values - (dep_id, res_id, identifierref); + (p_dep_id, p_res_id, p_identifierref); - return dep_id; + return p_dep_id; end new; function delete ( - dep_id in ims_cp_dependencies.dep_id%TYPE + p_dep_id in ims_cp_dependencies.dep_id%TYPE ) return integer is begin - acs_object.del(dep_id); - delete from ims_cp_dependencies where dep_id = dep_id; + acs_object.del(p_dep_id); + delete from ims_cp_dependencies where dep_id = p_dep_id; return 0; end delete; @@ -517,11 +519,11 @@ create or replace package ims_file as function new ( - file_id in ims_cp_files.file_id%TYPE, - res_id in ims_cp_files.res_id%TYPE, - pathtofile in ims_cp_files.pathtofile%TYPE, - filename in ims_cp_files.filename%TYPE, - hasmetadata in ims_cp_files.hasmetadata%TYPE + p_file_id in ims_cp_files.file_id%TYPE, + p_res_id in ims_cp_files.res_id%TYPE, + p_pathtofile in ims_cp_files.pathtofile%TYPE, + p_filename in ims_cp_files.filename%TYPE, + p_hasmetadata in ims_cp_files.hasmetadata%TYPE ) return ims_cp_files.file_id%TYPE; end ims_file; @@ -531,18 +533,18 @@ create or replace package body ims_file as function new ( - file_id in ims_cp_files.file_id%TYPE, - res_id in ims_cp_files.res_id%TYPE, - pathtofile in ims_cp_files.pathtofile%TYPE, - filename in ims_cp_files.filename%TYPE, - hasmetadata in ims_cp_files.hasmetadata%TYPE + p_file_id in ims_cp_files.file_id%TYPE, + p_res_id in ims_cp_files.res_id%TYPE, + p_pathtofile in ims_cp_files.pathtofile%TYPE, + p_filename in ims_cp_files.filename%TYPE, + p_hasmetadata in ims_cp_files.hasmetadata%TYPE ) return ims_cp_files.file_id%TYPE is begin insert into ims_cp_files (file_id, res_id, pathtofile, filename, hasmetadata) values - (file_id, res_id, pathtofile, filename, hasmetadata); + (p_file_id, p_res_id, p_pathtofile, p_filename, p_hasmetadata); - return file_id; + return p_file_id; end new;