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 -N -r1.19 -r1.19.2.1
--- 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 8 Jan 2020 12:05:11 -0000 1.19.2.1
@@ -3,34 +3,34 @@
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 +45,7 @@
max_n_values => :max_n_values
);
end;
-
+
@@ -56,70 +56,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 +128,7 @@
context_id => :context_id
);
end;
-
+
@@ -156,5 +156,5 @@
and ap2.parameter_name = ap.parameter_name)
-
+
Index: openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql,v
diff -u -N -r1.19 -r1.19.2.1
--- openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql 14 Jun 2018 12:30:58 -0000 1.19
+++ openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql 8 Jan 2020 12:05:11 -0000 1.19.2.1
@@ -3,30 +3,30 @@
postgresql7.1
-
+
select apm_package__highest_version (
:package_key
);
-
+
-
-
+
+
-
- select version_name
+
+ select version_name
from apm_package_versions
where package_key = :package_key
and version_id = apm_package__highest_version(:package_key)
-
+
-
+
select apm__register_parameter(
@@ -41,7 +41,7 @@
:min_n_values,
:max_n_values
);
-
+
@@ -51,7 +51,7 @@
-
+
select apm_package_version__add_dependency(
@@ -60,48 +60,48 @@
:version_id,
:dependency_uri,
:dependency_version
- );
-
+ );
+
-
-
+
+
select apm_package_version__remove_dependency(
:dependency_id
);
-
+
-
-
+
+
select apm_package_version__add_interface(
:interface_id,
:version_id,
:interface_uri,
:interface_version
- );
-
+ );
+
-
-
+
+
select apm_package_version__remove_interface(
:interface_id
);
-
+
-
+
@@ -115,11 +115,11 @@
null,
:context_id
);
-
+
-
+
select apm_package__delete(:package_id);
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.xql,v
diff -u -N -r1.30.2.1 -r1.30.2.2
--- openacs-4/packages/acs-tcl/tcl/apm-procs.xql 29 Oct 2019 06:41:09 -0000 1.30.2.1
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.xql 8 Jan 2020 12:05:11 -0000 1.30.2.2
@@ -73,142 +73,142 @@
-
+
select distinct package_key
from apm_package_versions
where enabled_p='t'
order by package_key
-
-
+
+
select parameter_name from apm_parameters
where package_key = :package_key
-
-
+
+
- select 1 from apm_package_types
+ select 1 from apm_package_types
where package_key = :package_key
-
-
+
+
select 1 from apm_package_versions
where package_key = :package_key
and enabled_p = 't'
-
-
+
+
select 1 from apm_package_versions
where version_id = :version_id
and installed_p = 't'
-
-
+
+
- update apm_parameters
+ update apm_parameters
set parameter_name = :parameter_name,
default_value = :default_value,
- datatype = :datatype,
+ datatype = :datatype,
description = :description,
section_name = :section_name,
min_n_values = :min_n_values,
max_n_values = :max_n_values
where parameter_id = :parameter_id
-
-
+
+
update acs_objects
set title = :parameter_name
where object_id = :parameter_id
-
-
+
+
select parameter_id
from apm_parameters
where package_key = :package_key
and parameter_name = :parameter
-
-
+
+
select scope, parameter_name
from apm_parameters
where parameter_id = :parameter_id
-
-
+
+
- select package_id, parameter_id, parameter_name
+ select package_id, parameter_id, parameter_name
from apm_packages p, apm_parameters ap
where p.package_key = ap.package_key
and ap.parameter_id = :parameter_id
-
-
+
+
select package_key
from apm_packages
where package_id = :package_id
-
+
- select version_id
- from apm_enabled_package_versions
+ select version_id
+ from apm_enabled_package_versions
where package_key = :package_key
-
-
+
+
- select version_id
- from apm_package_versions
+ select version_id
+ from apm_package_versions
where package_key = :package_key
-
-
+
+
select package_id
from apm_packages
where package_key = :package_key
-
-
+
+
select pretty_name, version_name, package_key, installed_p, distribution_uri, tagged_p
from apm_package_version_info
where version_id = :version_id
-
+
select node_id
from site_nodes
where object_id = :package_id
-
-
+
+
select parameter_name, attr_value
from apm_parameters p, apm_parameter_values v, apm_packages a
@@ -219,7 +219,7 @@
-
+
select proc
from apm_package_callbacks
@@ -228,34 +228,34 @@
-
+
insert into apm_package_callbacks
(version_id, type, proc)
values (:version_id, :type, :proc)
-
+
-
+
update apm_package_callbacks
set proc = :proc
where version_id = :version_id
and type = :type
-
+
-
+
delete from apm_package_callbacks
- where version_id = (select version_id
- from apm_enabled_package_versions
+ where version_id = (select version_id
+ from apm_enabled_package_versions
where package_key = :package_key)
and type = :type
-
+
-
+
select v.version_id,
v.package_key,
@@ -287,50 +287,50 @@
where v.version_id = :version_id
and t.package_key = v.package_key
-
+
-
+
select pretty_name, package_key
from apm_package_types
where implements_subsite_p = 't'
and package_key in ($in_clause)
order by pretty_name
-
+
-
+
update apm_packages
set package_key = :new_package_key
where package_id = :package_id
-
+
-
+
select parameter_name, parameter_id
from apm_parameters
where package_key = :old_package_key
-
+
-
+
select parameter_id as new_parameter_id
from apm_parameters
where package_key = :new_package_key
and parameter_name = :parameter_name
-
+
-
+
update apm_parameter_values
set parameter_id = :new_parameter_id
where parameter_id = :parameter_id
and package_id = :package_id
-
+