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.6 -r1.7
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	1 Dec 2001 23:16:27 -0000	1.6
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-community-memberships-packages-create.sql	8 Mar 2002 00:50:41 -0000	1.7
@@ -16,342 +16,425 @@
 
 create or replace package dotlrn_member_rel
 is
-  function new (
-    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,
-    community_id	in dotlrn_communities.community_id%TYPE,
-    user_id		in users.user_id%TYPE,
-    creation_user	in acs_objects.creation_user%TYPE default null,
-    creation_ip		in acs_objects.creation_ip%TYPE default null
-  ) return dotlrn_member_rels.rel_id%TYPE;
 
-  procedure delete (
-    rel_id		in dotlrn_member_rels.rel_id%TYPE
-  );
+    function new (
+        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,
+        community_id in dotlrn_communities.community_id%TYPE,
+        user_id in users.user_id%TYPE,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return dotlrn_member_rels.rel_id%TYPE;
 
+    procedure delete (
+        rel_id in dotlrn_member_rels.rel_id%TYPE
+    );
+
 end;
 /
 show errors;
 
-
 create or replace package body dotlrn_member_rel
 is
-  function new (
-    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,
-    community_id	in dotlrn_communities.community_id%TYPE,
-    user_id		in users.user_id%TYPE,
-    creation_user	in acs_objects.creation_user%TYPE default null,
-    creation_ip		in acs_objects.creation_ip%TYPE default null
-  ) return dotlrn_member_rels.rel_id%TYPE
-  is
-    v_rel_id	membership_rels.rel_id%TYPE;
-  begin
-    v_rel_id:= membership_rel.new(rel_id => rel_id,
-			rel_type => rel_type,
-			object_id_one => community_id,
-			object_id_two => user_id,
-			creation_user => creation_user,
-			creation_ip => creation_ip);
 
-    insert into dotlrn_member_rels
-    (rel_id, portal_id) values
-    (v_rel_id, portal_id);
+    function new (
+        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,
+        community_id in dotlrn_communities.community_id%TYPE,
+        user_id in users.user_id%TYPE,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return dotlrn_member_rels.rel_id%TYPE
+    is
+        v_rel_id                membership_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= membership_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            object_id_one => community_id,
+            object_id_two => user_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
-    return v_rel_id;
-  end;
+        insert
+        into dotlrn_member_rels
+        (rel_id, portal_id)
+        values
+        (v_rel_id, portal_id);
 
-  procedure delete (
-    rel_id		in dotlrn_member_rels.rel_id%TYPE
-  )
-  is 
-  begin
-    delete from dotlrn_member_rels where rel_id= dotlrn_member_rel.delete.rel_id;
+        return v_rel_id;
+    end;
 
-    membership_rel.delete(rel_id);
-  end;
+    procedure delete (
+        rel_id in dotlrn_member_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_member_rels
+        where rel_id = dotlrn_member_rel.delete.rel_id;
 
+        membership_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
 
-
---
--- dotLRN Admin rel
---
-
 create or replace package dotlrn_admin_rel
 is
-  function new (
-    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,
-    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_admin_rels.rel_id%TYPE;
 
-  procedure delete (
-    rel_id		in dotlrn_admin_rels.rel_id%TYPE
-  );
+    function new (
+        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,
+        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_admin_rels.rel_id%TYPE;
 
+    procedure delete (
+        rel_id in dotlrn_admin_rels.rel_id%TYPE
+    );
+
 end;
 /
 show errors;
 
-
 create or replace package body dotlrn_admin_rel
 is
-  function new (
-    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,
-    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_admin_rels.rel_id%TYPE
-  is
-    v_rel_id	dotlrn_admin_rels.rel_id%TYPE;
-  begin
-    v_rel_id:= dotlrn_member_rel.new(rel_id => rel_id,
-			rel_type => rel_type,
-			community_id => community_id,
-			user_id => user_id,
-			portal_id => portal_id,
-			creation_user => creation_user,
-			creation_ip => creation_ip);
 
-    insert into dotlrn_admin_rels
-    (rel_id) values
-    (v_rel_id);
+    function new (
+        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,
+        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_admin_rels.rel_id%TYPE
+    is
+        v_rel_id                dotlrn_admin_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= dotlrn_member_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            community_id => community_id,
+            user_id => user_id,
+            portal_id => portal_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
-    return v_rel_id;
-  end;
+        insert
+        into dotlrn_admin_rels
+        (rel_id)
+        values
+        (v_rel_id);
 
-  procedure delete (
-    rel_id		in dotlrn_admin_rels.rel_id%TYPE
-  )
-  is 
-  begin
-    delete from dotlrn_admin_rels where rel_id= dotlrn_admin_rel.delete.rel_id;
+        return v_rel_id;
+    end;
 
-    dotlrn_member_rel.delete(rel_id);
-  end;
+    procedure delete (
+        rel_id in dotlrn_admin_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_admin_rels
+        where rel_id = dotlrn_admin_rel.delete.rel_id;
 
+        dotlrn_member_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
 
-
---
--- dotLRN Student rel
---
-
 create or replace package dotlrn_student_rel
 is
-  function new (
-    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,
-    class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
-    user_id		in users.user_id%TYPE,
-    creation_user	in acs_objects.creation_user%TYPE default null,
-    creation_ip		in acs_objects.creation_ip%TYPE default null
-  ) return dotlrn_student_rels.rel_id%TYPE;
 
-  procedure delete (
-    rel_id		in dotlrn_student_rels.rel_id%TYPE
-  );
+    function new (
+        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,
+        class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+        user_id in users.user_id%TYPE,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return dotlrn_student_rels.rel_id%TYPE;
 
+    procedure delete (
+        rel_id in dotlrn_student_rels.rel_id%TYPE
+    );
+
 end;
 /
 show errors;
 
-
 create or replace package body dotlrn_student_rel
 is
-  function new (
-    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,
-    class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE,
-    user_id		in users.user_id%TYPE,
-    creation_user	in acs_objects.creation_user%TYPE default null,
-    creation_ip		in acs_objects.creation_ip%TYPE default null
-  ) return dotlrn_student_rels.rel_id%TYPE
-  is
-    v_rel_id	dotlrn_student_rels.rel_id%TYPE;
-  begin
-    v_rel_id:= dotlrn_member_rel.new(rel_id => rel_id,
-			rel_type => rel_type,
-			portal_id => portal_id,
-			community_id => class_instance_id,
-			user_id => user_id,
-			creation_user => creation_user,
-			creation_ip => creation_ip);
 
-    insert into dotlrn_student_rels
-    (rel_id) values
-    (v_rel_id);
+    function new (
+        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,
+        class_instance_id in dotlrn_class_instances.class_instance_id%TYPE,
+        user_id in users.user_id%TYPE,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return dotlrn_student_rels.rel_id%TYPE
+    is
+        v_rel_id                dotlrn_student_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= dotlrn_member_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            portal_id => portal_id,
+            community_id => class_instance_id,
+            user_id => user_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
-    return v_rel_id;
-  end;
+        insert
+        into dotlrn_student_rels
+        (rel_id)
+        values
+        (v_rel_id);
 
-  procedure delete (
-    rel_id		in dotlrn_student_rels.rel_id%TYPE
-  )
-  is 
-  begin
-    delete from dotlrn_student_rels where rel_id= dotlrn_student_rel.delete.rel_id;
+        return v_rel_id;
+    end;
 
-    dotlrn_member_rel.delete(rel_id);
-  end;
+    procedure delete (
+        rel_id in dotlrn_student_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_student_rels
+        where rel_id = dotlrn_student_rel.delete.rel_id;
 
+        dotlrn_member_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
 
-
---
--- dotLRN TA rel
---
-
 create or replace package dotlrn_ta_rel
 is
-  function new (
-    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,
-    portal_id		in dotlrn_member_rels.portal_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;
 
-  procedure delete (
-    rel_id		in dotlrn_ta_rels.rel_id%TYPE
-  );
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_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;
 
+    procedure delete (
+        rel_id in dotlrn_ta_rels.rel_id%TYPE
+    );
+
 end;
 /
 show errors;
 
-
 create or replace package body dotlrn_ta_rel
 is
-  function new (
-    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,
-    portal_id		in dotlrn_member_rels.portal_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
-  is
-    v_rel_id	dotlrn_ta_rels.rel_id%TYPE;
-  begin
-    v_rel_id:= dotlrn_admin_rel.new(rel_id => rel_id,
-			rel_type => rel_type,
-			community_id => class_instance_id,
-			user_id => user_id,
-			portal_id => portal_id,
-			creation_user => creation_user,
-			creation_ip => creation_ip);
 
-    insert into dotlrn_ta_rels
-    (rel_id) values
-    (v_rel_id);
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_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
+    is
+        v_rel_id                dotlrn_ta_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= dotlrn_admin_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            community_id => class_instance_id,
+            user_id => user_id,
+            portal_id => portal_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
-    return v_rel_id;
-  end;
+        insert
+        into dotlrn_ta_rels
+        (rel_id)
+        values
+        (v_rel_id);
 
-  procedure delete (
-    rel_id		in dotlrn_ta_rels.rel_id%TYPE
-  )
-  is 
-  begin
-    delete from dotlrn_ta_rels where rel_id= dotlrn_ta_rel.delete.rel_id;
+        return v_rel_id;
+    end;
 
-    dotlrn_admin_rel.delete(rel_id);
-  end;
+    procedure delete (
+        rel_id in dotlrn_ta_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_ta_rels
+        where rel_id = dotlrn_ta_rel.delete.rel_id;
 
+        dotlrn_admin_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
 
+create or replace package dotlrn_ca_rel
+is
 
---
--- dotLRN Instructor rel
---
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        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;
 
-create or replace package dotlrn_instructor_rel
+    procedure delete (
+        rel_id in dotlrn_ca_rels.rel_id%TYPE
+    );
+
+end;
+/
+show errors;
+
+create or replace package body dotlrn_ca_rel
 is
-  function new (
-    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,
-    portal_id		in dotlrn_member_rels.portal_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;
 
-  procedure delete (
-    rel_id		in dotlrn_instructor_rels.rel_id%TYPE
-  );
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_id%TYPE,
+        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
+    is
+        v_rel_id                dotlrn_ca_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= dotlrn_admin_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            community_id => class_instance_id,
+            user_id => user_id,
+            portal_id => portal_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
+        insert
+        into dotlrn_ca_rels
+        (rel_id)
+        values
+        (v_rel_id);
+
+        return v_rel_id;
+    end;
+
+    procedure delete (
+        rel_id in dotlrn_ca_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_ca_rels
+        where rel_id = dotlrn_ca_rel.delete.rel_id;
+
+        dotlrn_admin_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
 
+create or replace package dotlrn_instructor_rel
+is
 
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_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;
+
+    procedure delete (
+        rel_id in dotlrn_instructor_rels.rel_id%TYPE
+    );
+
+end;
+/
+show errors;
+
 create or replace package body dotlrn_instructor_rel
 is
-  function new (
-    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,
-    portal_id		in dotlrn_member_rels.portal_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
-  is
-    v_rel_id	dotlrn_instructor_rels.rel_id%TYPE;
-  begin
-    v_rel_id:= dotlrn_admin_rel.new(rel_id => rel_id,
-			rel_type => rel_type,
-			community_id => class_instance_id,
-			user_id => user_id,
-			portal_id => portal_id,
-			creation_user => creation_user,
-			creation_ip => creation_ip);
 
-    insert into dotlrn_instructor_rels
-    (rel_id) values
-    (v_rel_id);
+    function new (
+        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,
+        portal_id in dotlrn_member_rels.portal_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
+    is
+        v_rel_id                dotlrn_instructor_rels.rel_id%TYPE;
+    begin
+        v_rel_id:= dotlrn_admin_rel.new(
+            rel_id => rel_id,
+            rel_type => rel_type,
+            community_id => class_instance_id,
+            user_id => user_id,
+            portal_id => portal_id,
+            creation_user => creation_user,
+            creation_ip => creation_ip
+        );
 
-    return v_rel_id;
-  end;
+        insert
+        into dotlrn_instructor_rels
+        (rel_id)
+        values
+        (v_rel_id);
 
-  procedure delete (
-    rel_id		in dotlrn_instructor_rels.rel_id%TYPE
-  )
-  is 
-  begin
-    delete from dotlrn_instructor_rels where rel_id= dotlrn_instructor_rel.delete.rel_id;
+        return v_rel_id;
+    end;
 
-    dotlrn_admin_rel.delete(rel_id);
-  end;
+    procedure delete (
+        rel_id in dotlrn_instructor_rels.rel_id%TYPE
+    )
+    is
+    begin
+        delete
+        from dotlrn_instructor_rels
+        where rel_id = dotlrn_instructor_rel.delete.rel_id;
 
+        dotlrn_admin_rel.delete(rel_id);
+    end;
+
 end;
 /
 show errors;
-
-
-