Index: openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql,v diff -u -r1.19 -r1.20 --- openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql 14 Jun 2018 12:30:58 -0000 1.19 +++ openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql 3 Sep 2024 15:37:34 -0000 1.20 @@ -3,34 +3,21 @@ oracle8.1.6 - + - - begin - :1 := apm_package.highest_version ( - package_key => :package_key - ); - end; - - - - - - - - select version_name + select version_name from apm_package_versions where package_key = :package_key and version_id = apm_package.highest_version(:package_key) - + - - + + - + begin :1 := apm.register_parameter( parameter_id => :parameter_id, @@ -45,7 +32,7 @@ max_n_values => :max_n_values ); end; - + @@ -56,70 +43,70 @@ end; - - + + - + begin :1 := apm_package_version.add_dependency( dependency_type => :dependency_type, dependency_id => :dependency_id, version_id => :version_id, dependency_uri => :dependency_uri, dependency_version => :dependency_version - ); + ); end; - + - - + + - + begin apm_package_version.remove_dependency( dependency_id => :dependency_id ); - end; - + end; + - - + + - + begin :1 := apm_package_version.add_interface( interface_id => :interface_id, version_id => :version_id, interface_uri => :interface_uri, interface_version => :interface_version - ); + ); end; - + - - + + - + begin apm_package_version.remove_interface( interface_id => :interface_id ); - end; - + end; + - + - + begin :1 := apm_package.new( package_id => :package_id, @@ -128,7 +115,7 @@ context_id => :context_id ); end; - + @@ -156,5 +143,5 @@ and ap2.parameter_name = ap.parameter_name) - +