Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql-postgresql.xql 30 Nov 2002 17:23:54 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,21 +0,0 @@
-
-
- postgresql7.1
-
-
-
- select nextval(:sequence) as nextval
- where (select relkind
- from pg_class
- where relname = :sequence) = 'S'
-
-
-
-
-
- select nextval
- from ${sequence}
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl 10 Sep 2015 08:21:54 -0000 1.43.24.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,19 +0,0 @@
-ad_library {
-
- Postgres-specific database API and utility procs.
-
- @creation-date 15 Apr 2000
- @author Jon Salz (jsalz@arsdigita.com)
- @cvs-id $Id: 00-database-procs-postgresql.tcl,v 1.43.24.1 2015/09/10 08:21:54 gustafn Exp $
-}
-
-# This file is now obsolete. All procs have been merged into
-# 00-database-procs.tcl, so that all supported databases are useable
-# with the db_* API all the time, regardless of which database type
-# OpenACS is using. --atp@piskorski.com, 2003/04/09 12:04 EDT
-
-# Local variables:
-# mode: tcl
-# tcl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql 2 Apr 2013 11:05:18 -0000 1.6
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql 2 Jan 2016 11:22:34 -0000 1.6.4.1
@@ -2,14 +2,6 @@
-
-
- select count(*)
- from acs_privileges
- where privilege = :privilege
-
-
-
select case when security_inherit_p = 't' then 1 else 0 end
Index: openacs-4/packages/acs-tcl/tcl/admin-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.xql,v
diff -u -N -r1.2 -r1.2.30.1
--- openacs-4/packages/acs-tcl/tcl/admin-procs.xql 26 Apr 2001 05:38:54 -0000 1.2
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.xql 2 Jan 2016 11:22:34 -0000 1.2.30.1
@@ -1,16 +1,6 @@
-
-
-
- select sql_post_select
- from user_classes
- where user_class_id = [ns_dbquotevalue $user_class_id]
-
-
-
-
select category from categories where category_id = :category_id
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql,v
diff -u -N -r1.7 -r1.7.30.1
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql 12 May 2001 05:09:48 -0000 1.7
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-oracle.xql 2 Jan 2016 11:22:34 -0000 1.7.30.1
@@ -71,35 +71,4 @@
-
-
-
- begin
- :1 := apm_package_version.add_file(
- file_id => :file_id,
- version_id => :version_id,
- path => :path,
- file_type => :file_type,
- db_type => :db_type
- );
- end;
-
-
-
-
-
-
-
-
- begin
- apm_package_version.remove_file(
- path => :path,
- version_id => :version_id
- );
- end;
-
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql,v
diff -u -N -r1.13 -r1.13.30.1
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 31 Oct 2001 20:42:07 -0000 1.13
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 2 Jan 2016 11:22:35 -0000 1.13.30.1
@@ -93,31 +93,4 @@
-
-
-
- select apm_package_version__add_file(
- :file_id,
- :version_id,
- :path,
- :file_type,
- :db_type
- )
-
-
-
-
-
-
-
-
- select apm_package_version__remove_file(
- :version_id,
- :path
- )
-
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql,v
diff -u -N -r1.20 -r1.20.8.1
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql 31 Mar 2010 18:08:59 -0000 1.20
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs-oracle.xql 2 Jan 2016 11:22:35 -0000 1.20.8.1
@@ -248,17 +248,6 @@
-
-
-
- select version_id
- from apm_package_versions
- where package_key = :package_key
- and version_id = apm_package.highest_version(:package_key)
-
-
-
-
begin
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs-postgresql.xql,v
diff -u -N -r1.20 -r1.20.8.1
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs-postgresql.xql 31 Mar 2010 18:08:59 -0000 1.20
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs-postgresql.xql 2 Jan 2016 11:22:35 -0000 1.20.8.1
@@ -189,17 +189,6 @@
-
-
-
- select version_id
- from apm_package_versions
- where package_key = :package_key
- and version_id = apm_package__highest_version(:package_key)
-
-
-
-
select apm__parameter_p(:descendent_package_key, :parameter_name);
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -N -r1.18 -r1.18.2.1
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql 27 Oct 2014 16:40:06 -0000 1.18
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql 2 Jan 2016 11:22:35 -0000 1.18.2.1
@@ -23,18 +23,6 @@
-
-
- select distinct u.first_names || ' ' || u.last_name || ' (' || u.email || ')' as name, u.user_id
- from cc_users u
- where lower(nvl(u.first_names || ' ', '') ||
- nvl(u.last_name || ' ', '') ||
- u.email || ' ' ||
- nvl(u.screen_name, '')) like lower('%'||:value||'%')
- order by name
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql,v
diff -u -N -r1.19 -r1.19.2.1
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql 27 Oct 2014 16:40:06 -0000 1.19
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql 2 Jan 2016 11:22:35 -0000 1.19.2.1
@@ -17,18 +17,6 @@
-
-
- select distinct u.first_names || ' ' || u.last_name || ' (' || u.email || ')' as name, u.user_id
- from cc_users u
- where lower(coalesce(u.first_names || ' ', '') ||
- coalesce(u.last_name || ' ', '') ||
- u.email || ' ' ||
- coalesce(u.screen_name, '')) like lower('%'||:value||'%')
- order by name
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/defs-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/defs-procs-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/defs-procs-oracle.xql 15 Dec 2006 00:02:00 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
- insert
- into query_strings
- (query_date, query_string, subsection, n_results, user_id)
- values
- (sysdate, :query_string, :subsection, :n_results, :user_id)
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/defs-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/defs-procs-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/defs-procs-postgresql.xql 15 Dec 2006 00:02:00 -0000 1.6
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
- insert
- into query_strings
- (query_date, query_string, subsection, n_results, user_id)
- values
- (now(), :query_string, :subsection, :n_results, :user_id)
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/deprecated-utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/deprecated-utilities-procs.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/deprecated-utilities-procs.xql 24 Apr 2001 06:02:27 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-
-
-
-
-
- update id_numbers set :id_name = :id_name + 1
-
-
-
-
-
-
- select unique :id_name from id_numbers
-
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-init.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.xql 24 Apr 2001 06:02:27 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,24 +0,0 @@
-
-
-
-
-
-
- select package_id from apm_packages
- where package_key = 'acs-admin'
-
-
-
-
-
-
-
-
- select package_id from apm_packages
- where package_key = 'acs-admin'
-
-
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-procs-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs-oracle.xql 10 Oct 2001 18:27:32 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,15 +0,0 @@
-
-
- oracle8.1.6
-
-
-
-
- select site_node.url(:node_id) as url
- from dual
-
-
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-procs-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs-postgresql.xql 10 Oct 2001 18:27:40 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,13 +0,0 @@
-
-
-postgresql7.1
-
-
-
-
- select site_node__url(:node_id) as url
-
-
-
-
-
\ No newline at end of file
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-procs.xql,v
diff -u -N -r1.4 -r1.4.24.1
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql 8 Feb 2003 16:25:22 -0000 1.4
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql 2 Jan 2016 11:22:35 -0000 1.4.24.1
@@ -10,16 +10,6 @@
-
-
-
-
- select package_id from apm_packages
- where package_key = 'acs-admin'
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql 30 Jun 2015 21:14:52 -0000 1.7
+++ openacs-4/packages/acs-tcl/tcl/security-procs-oracle.xql 2 Jan 2016 11:22:35 -0000 1.7.2.1
@@ -16,20 +16,6 @@
-
-
- select test_sql('select 1 from dual where 1=[DoubleApos $value]') from dual
-
-
-
-
-
-
- select test_sql('select 1 from dual where 1=[DoubleApos "'$value'"]') from dual
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql 30 Jun 2015 21:14:52 -0000 1.12
+++ openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql 2 Jan 2016 11:22:35 -0000 1.12.2.1
@@ -38,20 +38,6 @@
-
-
- select test_sql('select 1 where 1=[DoubleApos $value]')
-
-
-
-
-
-
- select test_sql('select 1 where 1=[DoubleApos "'$value'"]')
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql,v
diff -u -N -r1.20 -r1.20.10.1
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql 11 Apr 2008 22:37:12 -0000 1.20
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql 2 Jan 2016 11:22:36 -0000 1.20.10.1
@@ -53,13 +53,4 @@
-
-
- select site_node.url(node_id)
- from site_nodes
- where object_id = :object_id
- order by site_node.url(node_id) desc
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs-postgresql.xql,v
diff -u -N -r1.20 -r1.20.10.1
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs-postgresql.xql 11 Apr 2008 22:37:12 -0000 1.20
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs-postgresql.xql 2 Jan 2016 11:22:36 -0000 1.20.10.1
@@ -49,13 +49,4 @@
-
-
- select site_node__url(node_id)
- from site_nodes
- where object_id = :object_id
- order by site_node__url(node_id) desc
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -N -r1.18.2.2 -r1.18.2.3
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 18 Sep 2015 07:33:49 -0000 1.18.2.2
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 2 Jan 2016 11:22:36 -0000 1.18.2.3
@@ -17,7 +17,7 @@
}
db_foreach all_states {
- select state_name, abbrev from us_states order by state_name
+ select state_name, abbrev from states order by state_name
} {
if { $default == $abbrev } {
append widget_value "\n"
@@ -47,7 +47,7 @@
}
}
db_foreach all_countries {
- select default_name, iso from countries order by default_name
+ select default_name, iso from countries order by default_name
} {
if { $default == $iso } {
append widget_value "\n"
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.xql 23 Oct 2001 20:13:10 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,34 +0,0 @@
-
-
-
-
-
-
- select state_name, abbrev from states order by state_name
-
-
-
-
-
-
-
-
- select default_name, iso from countries order by default_name
-
-
-
-
-
-
-
-
- select currency_name, iso
- from currency_codes
- where supported_p='t'
- order by currency_name
-
-
-
-
-
-