Index: openacs-4/packages/acs-admin/www/apm/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/index.xql,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/acs-admin/www/apm/index.xql 13 May 2001 14:30:00 -0000 1.3
+++ openacs-4/packages/acs-admin/www/apm/index.xql 16 Oct 2002 00:33:47 -0000 1.3.4.1
@@ -1,16 +1,24 @@
-
-
+
+
+ select email
+ from parties
+ where party_id = :user_id
+
+
+
+
+
t.package_type = 'apm_application'
-
-
+
+
-
-
+
+
exists (select 1 from apm_package_owners o where o.version_id = v.version_id and owner_uri='mailto:$my_email')
-
-
-
+
+
+
Index: openacs-4/packages/acs-subsite/tcl/package-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.xql,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/acs-subsite/tcl/package-procs.xql 3 Aug 2001 21:09:20 -0000 1.3
+++ openacs-4/packages/acs-subsite/tcl/package-procs.xql 16 Oct 2002 00:34:38 -0000 1.3.4.1
@@ -1,103 +1,111 @@
-
-
+
+
- select t.table_name as table, t.id_column as column
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name as table, t.id_column as column
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.package_name
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.package_name
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.package_name
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.package_name
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
-
-
+
+
+
- select t.table_name, t.id_column
- from acs_object_types t
- where t.object_type = :object_type
-
-
-
+ select t.table_name, t.id_column
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
-
+
+
+ select t.package_name
+ from acs_object_types t
+ where t.object_type = :object_type
+
+
+
+
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs-postgres.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
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 -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-tcl/tcl/apm-procs.xql 27 Jul 2002 00:13:17 -0000 1.5
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.xql 16 Oct 2002 00:36:09 -0000 1.5.2.1
@@ -1,223 +1,184 @@
-
-
+
+
+ select case when count(*) = 0 then 0 else 1 end from apm_package_versions
+ where version_id = :version_id
+ and enabled_p = 't'
+
+
- select case when count(*) = 0 then 0 else 1 end from apm_package_versions
- where version_id = :version_id
- and enabled_p = 't'
-
-
+
+
+ select package_key
+ from apm_package_version_info
+ where version_id = :version_id
+
+
+
+
+
+ select file_id, path
+ from apm_package_files
+ where version_id = :version_id
+ and file_type in ('tcl_procs', 'query_file')
+ and (db_type is null or db_type = '[db_type]')
+ order by path
+
+
-
-
- select package_key from apm_package_version_info where version_id = :version_id
-
-
+
+
+ select package_key
+ from apm_package_version_info
+ where version_id = :version_id
+
+
-
-
-
-
- select file_id, path
- from apm_package_files
- where version_id = :version_id
- and file_type in ('tcl_procs', 'query_file')
- and (db_type is null or db_type = '[db_type]')
- order by path
-
-
-
+
+
+ select package_key
+ from apm_package_version_info
+ where version_id = :version_id
+
+
-
-
-
-
- select package_key
- from apm_package_version_info
- where version_id = :version_id
-
-
-
+
+
+ select v.package_id, p.parameter_name,
+ case when v.value_id is null then p.default_value else v.attr_value end as attr_value
+ from apm_parameters p left outer join apm_parameter_values v
+ using (parameter_id)
+ where p.package_key = :package_key
+
+
-
-
-
- select v.package_id, p.parameter_name,
- case when v.value_id is null then p.default_value else v.attr_value end as attr_value
- from apm_parameters p left outer join apm_parameter_values v
- using (parameter_id)
- where p.package_key = :package_key
-
-
-
-
-
-
-
- select distinct package_key
- from apm_package_versions
- where enabled_p='t'
-
-
-
-
-
-
-
-
- select distinct package_key
- from apm_package_versions
- where enabled_p='t'
-
-
-
-
-
-
-
-
+
+
select distinct package_key
- from apm_package_versions
- where enabled_p='t'
-
-
+ from apm_package_versions
+ where enabled_p='t'
+
+
+
+
+
+ select distinct package_key
+ from apm_package_versions
+ where enabled_p='t'
+
+
+
+
+
+ select distinct package_key
+ from apm_package_versions
+ where enabled_p='t'
+
+
+
+
+
+ select pretty_name
+ from apm_package_file_types
+ where file_type_key = :type
+
+
-
-
-
-
- select pretty_name
- from apm_package_file_types
- where file_type_key = :type
-
-
-
+
+
+ select pretty_db_name
+ from apm_package_db_types
+ where db_type_key = :db_type
+
+
-
-
-
-
- select pretty_db_name
- from apm_package_db_types
- where db_type_key = :db_type
-
-
-
-
-
-
-
-
- select parameter_name from apm_parameters
- where package_key = :package_key
-
-
-
-
-
-
-
-
- select 1 from apm_package_types
- where package_key = :package_key
-
-
-
-
-
-
-
-
- select 1 from apm_package_versions
- where package_key = :package_key
- and installed_p = 't'
-
-
-
-
-
-
-
-
- select 1 from apm_package_versions
- where version_id = :version_id
- and installed_p = 't'
-
-
-
-
-
-
-
-
- update apm_parameters
- set parameter_name = :parameter_name,
- default_value = :default_value,
- datatype = :datatype,
- description = :description,
- section_name = :section_name,
- min_n_values = :min_n_values,
- max_n_values = :max_n_values
+
+
+ select parameter_name from apm_parameters
+ where package_key = :package_key
+
+
+
+
+
+ select 1 from apm_package_types
+ where package_key = :package_key
+
+
+
+
+
+ select 1 from apm_package_versions
+ where package_key = :package_key
+ and installed_p = 't'
+
+
+
+
+
+ select 1 from apm_package_versions
+ where version_id = :version_id
+ and installed_p = 't'
+
+
+
+
+
+ update apm_parameters
+ set parameter_name = :parameter_name,
+ default_value = :default_value,
+ 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
-
-
-
-
-
-
-
-
- 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 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 parameter_name, attr_value
- from apm_parameters p, apm_parameter_values v, apm_packages a
- where p.parameter_id = v.parameter_id
- and a.package_id = v.package_id
- and a.package_id = :package_id
-
-
-
-
-
+
+
+ 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 package_id
+ from apm_packages
+ where package_key = :package_key
+
+
+
+
+
+ select pretty_name, version_name, package_key, installed_p, distribution_uri, tagged_p
+ apm_package_version_info
+ where version_id = :version_id
+
+
+
+
+
+ select parameter_name, attr_value
+ from apm_parameters p, apm_parameter_values v, apm_packages a
+ where p.parameter_id = v.parameter_id
+ and a.package_id = v.package_id
+ and a.package_id = :package_id
+
+
+