Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-community-memberships-packages-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	8 Nov 2001 23:57:40 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	9 Nov 2001 03:56:43 -0000	1.3
@@ -89,6 +89,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
     community_id	in dotlrn_communities.community_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE default null,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_admin_rels.rel_id%TYPE;
@@ -109,6 +110,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
     community_id	in dotlrn_communities.community_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE default null,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_admin_rels.rel_id%TYPE
@@ -119,6 +121,7 @@
 			rel_type => rel_type,
 			community_id => community_id,
 			user_id => user_id,
+			page_id => page_id,
 			creation_user => creation_user,
 			creation_ip => creation_ip);
 
@@ -224,6 +227,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_ta_rel',
     class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_ta_rels.rel_id%TYPE;
@@ -244,6 +248,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_ta_rel',
     class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_ta_rels.rel_id%TYPE
@@ -254,6 +259,7 @@
 			rel_type => rel_type,
 			community_id => class_instance_id,
 			user_id => user_id,
+			page_id => page_id,
 			creation_user => creation_user,
 			creation_ip => creation_ip);
 
@@ -290,6 +296,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_instructor_rel',
     class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_instructor_rels.rel_id%TYPE;
@@ -310,6 +317,7 @@
     rel_type		in acs_rels.rel_type%TYPE default 'dotlrn_instructor_rel',
     class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
     user_id		in dotlrn_users.user_id%TYPE,
+    page_id		in dotlrn_member_rels.page_id%TYPE,
     creation_user	in acs_objects.creation_user%TYPE default null,
     creation_ip		in acs_objects.creation_ip%TYPE default null
   ) return dotlrn_instructor_rels.rel_id%TYPE
@@ -320,6 +328,7 @@
 			rel_type => rel_type,
 			community_id => class_instance_id,
 			user_id => user_id,
+			page_id => page_id,
 			creation_user => creation_user,
 			creation_ip => creation_ip);