Index: openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	23 Jun 2005 12:31:49 -0000	1.7
+++ openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	6 Jul 2005 04:58:13 -0000	1.8
@@ -25,14 +25,8 @@
     @error 
 } {
 
-    # add new rel types for student and instructors
-    # Roel: Figure out why this is failing but dotlrn_club_student_rel
-    # is being created
-    catch {
-	rel_types::new -supertype dotlrn_member_rel -role_two student dotlrn_club_student_rel "dotLRN Club Student" "dotLRN Club Students" dotlrn_club 0 "" user 0 ""
-	rel_types::new -supertype dotlrn_member_rel -role_two instructor dotlrn_club_instructor_rel "dotLRN Club Instructor" "dotLRN Club Instructors" dotlrn_club 0 "" user 0 ""
-   }
-
+    rel_types::new -supertype dotlrn_member_rel -role_two student dc_student_rel "dotLRN Club Student" "dotLRN Club Students" dotlrn_club 0 "" user 0 ""
+   
     rel_types::new -role_one user -role_two user patron_rel "Patron" "Patrons" user 0 65535 user 0 65535
 
     # Associate a dotlrn_catalog course to an assessment session result
@@ -46,6 +40,13 @@
     set attribute_list [package_object_attribute_list -start_with dotlrn_catalog dotlrn_catalog]
     set sort_order [expr [llength $attribute_list] + 1]
 
+    # add new rel types for student and instructors
+    # Roel: Figure out why this is failing but dc_student_rel
+    # is being created
+    catch {
+      rel_types::new -supertype dotlrn_member_rel -role_two instructor dc_instructor_rel "dotLRN Club Instructor" "dotLRN Club Instructors" dotlrn_club 0 "" user 0 ""
+    }
+
     content::type::attribute::new \
 	-content_type "dotlrn_catalog" \
 	-attribute_name "community_id" \