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.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	9 Nov 2001 03:56:43 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	28 Nov 2001 20:02:34 -0000	1.4
@@ -68,7 +68,7 @@
   )
   is 
   begin
-    delete from dotlrn_member_rels where rel_id= rel_id;
+    delete from dotlrn_member_rels where rel_id= delete.rel_id;
 
     membership_rel.delete(rel_id);
   end;
@@ -137,7 +137,7 @@
   )
   is 
   begin
-    delete from dotlrn_admin_rels where rel_id= rel_id;
+    delete from dotlrn_admin_rels where rel_id= delete.rel_id;
 
     dotlrn_member_rel.delete(rel_id);
   end;
@@ -164,7 +164,7 @@
   ) return dotlrn_student_rels.rel_id%TYPE;
 
   procedure delete (
-    rel_id		in dotlrn_student_rels.rel_id%TYPE
+    p_rel_id		in dotlrn_student_rels.rel_id%TYPE
   );
 
 end;
@@ -206,7 +206,7 @@
   )
   is 
   begin
-    delete from dotlrn_student_rels where rel_id= rel_id;
+    delete from dotlrn_student_rels where rel_id= delete.rel_id;
 
     dotlrn_member_rel.delete(rel_id);
   end;
@@ -275,7 +275,7 @@
   )
   is 
   begin
-    delete from dotlrn_ta_rels where rel_id= rel_id;
+    delete from dotlrn_ta_rels where rel_id= delete.rel_id;
 
     dotlrn_admin_rel.delete(rel_id);
   end;
@@ -344,7 +344,7 @@
   )
   is 
   begin
-    delete from dotlrn_instructor_rels where rel_id= rel_id;
+    delete from dotlrn_instructor_rels where rel_id= delete.rel_id;
 
     dotlrn_admin_rel.delete(rel_id);
   end;