Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	8 Oct 2001 21:38:37 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	6 Nov 2001 21:46:49 -0000	1.6
@@ -18,29 +18,6 @@
 
 namespace eval dotlrn {
 
-    ad_proc install {
-    } {
-	Does some installation that cannot be done in SQL
-    } {
-	db_transaction {
-	    # Create the rel types
-	    rel_types::new -supertype membership_rel -role_two admin admin_rel "Administration Relation" "Administration Relations" dotlrn_community 0 "" party 0 ""
-	    rel_types::new -supertype membership_rel -role_two student student_rel "Student Relation" "Student Relations" dotlrn_community 0 "" party 0 ""
-	    rel_types::new -supertype admin_rel -role_two admin instructor_rel "Instructor Relation" "Instructor Relations" dotlrn_community 0 "" party 0 ""
-	    rel_types::new -supertype admin_rel -role_two admin ta_rel "TA Relation" "TA Relations" dotlrn_community 0 "" party 0 ""
-	    
-	    # Add what's permissible (we would do this in SQL if the above could be done in SQL...)
-	    rel_types::add_permissible dotlrn_class admin_rel
-	    rel_types::add_permissible dotlrn_class student_rel
-	    rel_types::add_permissible dotlrn_class ta_rel
-	    rel_types::add_permissible dotlrn_class instructor_rel
-
-	    rel_types::add_permissible dotlrn_club admin_rel
-	    # rel_types::add_permissible dotlrn_club membership_rel
-	}
-    }
-
-
     ad_proc -public class_group_type_key {
     } {
 	Returns the group type key used for class groups