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.8 -r1.9
--- openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	6 Jul 2005 04:58:13 -0000	1.8
+++ openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	7 Jul 2005 00:35:33 -0000	1.9
@@ -25,8 +25,14 @@
     @error 
 } {
 
-    rel_types::new -supertype dotlrn_member_rel -role_two student dc_student_rel "dotLRN Club Student" "dotLRN Club Students" dotlrn_club 0 "" user 0 ""
-   
+    # 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 ""
+      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
@@ -40,13 +46,6 @@
     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" \