Index: openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql 3 Aug 2001 21:09:20 -0000 1.2
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs-postgresql.xql 15 Jul 2002 18:32:16 -0000 1.3
@@ -64,7 +64,7 @@
begin
insert into group_type_rels
(group_rel_type_id, rel_type, group_type)
- select acs_object_id_seq.nextval, r.rel_type, :group_type
+ select nextval('t_acs_object_id_seq'), r.rel_type, :group_type
from group_type_rels r
where r.group_type = :supertype;
return null;
Index: openacs-4/packages/dotlrn/sql/postgresql/communities-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/communities-package-create.sql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/communities-package-create.sql 12 Jul 2002 21:26:48 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/communities-package-create.sql 15 Jul 2002 18:32:24 -0000 1.4
@@ -307,7 +307,7 @@
DECLARE
p_community_id alias for $1;
p_party_id alias for $2;
- v_rv char(1);
+ r_rv char(1);
BEGIN
-- THIS NEEDS TO BE CHECKED!
-- chak, 2002-07-01
@@ -336,7 +336,7 @@
where dotlrn_communities_all.community_id = p_community_id
and site_nodes.object_id = dotlrn_communities_all.package_id;
- return v_node_id;
+ return site_node__url(v_node_id);
-- exception
-- when no_data_found then
@@ -349,7 +349,7 @@
returns varchar as '
DECLARE
p_community_id alias for $1;
- v_rv char(1);
+ r_rv char(1);
BEGIN
select CASE
WHEN count(*) = 0
Index: openacs-4/packages/dotlrn/sql/postgresql/community-memberships-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/community-memberships-packages-create.sql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/community-memberships-packages-create.sql 8 Jul 2002 21:04:16 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/community-memberships-packages-create.sql 15 Jul 2002 18:32:24 -0000 1.2
@@ -61,9 +61,9 @@
insert
into dotlrn_member_rels
- (rel_id, portal_id)
+ (rel_id)
values
- (v_rel_id, p_portal_id);
+ (v_rel_id);
return v_rel_id;
END;
Index: openacs-4/packages/dotlrn/www/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-member.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/community-member.tcl 8 May 2002 14:35:07 -0000 1.7
+++ openacs-4/packages/dotlrn/www/community-member.tcl 15 Jul 2002 18:32:24 -0000 1.8
@@ -111,19 +111,7 @@
set show_email_p 1
}
-db_multirow user_contributions user_contributions {
- select acs_object_types.pretty_name,
- acs_object_types.pretty_plural,
- acs_objects.creation_date,
- acs_object.name(acs_objects.object_id) object_name
- from acs_objects,
- acs_object_types
- where acs_objects.creation_user = :user_id
- and acs_objects.object_type in ('acs_message')
- and acs_objects.object_type = acs_object_types.object_type
- order by object_name,
- creation_date
-}
+db_multirow user_contributions user_contributions {}
set folder_id [dotlrn_fs::get_user_shared_folder -user_id $user_id]
Index: openacs-4/packages/dotlrn/www/admin/archived-communities-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/archived-communities-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/archived-communities-oracle.xql 15 Jul 2002 18:32:24 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select pretty_name,
+ description,
+ dotlrn_community.url(community_id) as url
+ from dotlrn_communities_all
+ where archived_p = 't'
+ order by pretty_name,
+ description
+
+
+
+
Index: openacs-4/packages/dotlrn/www/admin/archived-communities-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/archived-communities-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/archived-communities-postgresql.xql 15 Jul 2002 18:32:24 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ postgresql7.1
+
+
+
+ select pretty_name,
+ description,
+ dotlrn_community__url(community_id) as url
+ from dotlrn_communities_all
+ where archived_p = 't'
+ order by pretty_name,
+ description
+
+
+
+
Index: openacs-4/packages/dotlrn/www/admin/archived-communities.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/archived-communities.xql,v
diff -u -N
--- openacs-4/packages/dotlrn/www/admin/archived-communities.xql 31 May 2002 21:23:36 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,17 +0,0 @@
-
-
-
-
-
-
- select pretty_name,
- description,
- dotlrn_community.url(community_id) as url
- from dotlrn_communities_all
- where archived_p = 't'
- order by pretty_name,
- description
-
-
-
-