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.10 -r1.11
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	29 Mar 2002 19:14:44 -0000	1.10
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	4 May 2002 12:12:23 -0000	1.11
@@ -34,9 +34,9 @@
 is
 
     function new (
-        rel_id in dotlrn_member_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_member_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_member_rel',
-        portal_id in dotlrn_member_rels.portal_id%TYPE default NULL,
+        portal_id in dotlrn_member_rels.portal_id%TYPE default null,
         community_id in dotlrn_communities.community_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
@@ -56,9 +56,9 @@
 is
 
     function new (
-        rel_id in dotlrn_member_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_member_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_member_rel',
-        portal_id in dotlrn_member_rels.portal_id%TYPE default NULL,
+        portal_id in dotlrn_member_rels.portal_id%TYPE default null,
         community_id in dotlrn_communities.community_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
@@ -107,7 +107,7 @@
 is
 
     function new (
-        rel_id in dotlrn_admin_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_admin_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
         community_id in dotlrn_communities.community_id%TYPE,
         user_id in users.user_id%TYPE,
@@ -129,7 +129,7 @@
 is
 
     function new (
-        rel_id in dotlrn_admin_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_admin_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_admin_rel',
         community_id in dotlrn_communities.community_id%TYPE,
         user_id in users.user_id%TYPE,
@@ -181,9 +181,9 @@
 is
 
     function new (
-        rel_id in dotlrn_student_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_student_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_rel',
-        portal_id in dotlrn_member_rels.portal_id%TYPE default NULL,
+        portal_id in dotlrn_member_rels.portal_id%TYPE default null,
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
@@ -203,9 +203,9 @@
 is
 
     function new (
-        rel_id in dotlrn_student_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_student_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_student_rel',
-        portal_id in dotlrn_member_rels.portal_id%TYPE default NULL,
+        portal_id in dotlrn_member_rels.portal_id%TYPE default null,
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
@@ -255,12 +255,12 @@
 is
 
     function new (
-        rel_id in dotlrn_ta_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_ta_rels.rel_id%TYPE default null,
         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 users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_ta_rels.rel_id%TYPE;
@@ -277,12 +277,12 @@
 is
 
     function new (
-        rel_id in dotlrn_ta_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_ta_rels.rel_id%TYPE default null,
         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 users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_ta_rels.rel_id%TYPE
@@ -329,12 +329,12 @@
 is
 
     function new (
-        rel_id in dotlrn_ca_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_ca_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ca_rel',
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_ca_rels.rel_id%TYPE;
@@ -351,12 +351,12 @@
 is
 
     function new (
-        rel_id in dotlrn_ca_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_ca_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_ca_rel',
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_ca_rels.rel_id%TYPE
@@ -403,12 +403,12 @@
 is
 
     function new (
-        rel_id in dotlrn_cadmin_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_cadmin_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_cadmin_rel',
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_cadmin_rels.rel_id%TYPE;
@@ -425,12 +425,12 @@
 is
 
     function new (
-        rel_id in dotlrn_cadmin_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_cadmin_rels.rel_id%TYPE default null,
         rel_type in acs_rels.rel_type%TYPE default 'dotlrn_cadmin_rel',
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
         user_id in users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_cadmin_rels.rel_id%TYPE
@@ -477,12 +477,12 @@
 is
 
     function new (
-        rel_id in dotlrn_instructor_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_instructor_rels.rel_id%TYPE default null,
         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 users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_instructor_rels.rel_id%TYPE;
@@ -499,12 +499,12 @@
 is
 
     function new (
-        rel_id in dotlrn_instructor_rels.rel_id%TYPE default NULL,
+        rel_id in dotlrn_instructor_rels.rel_id%TYPE default null,
         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 users.user_id%TYPE,
         member_state in membership_rels.member_state%TYPE default 'approved',
-        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        portal_id in dotlrn_member_rels.portal_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_instructor_rels.rel_id%TYPE