Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl 4 Jun 2005 10:05:18 -0000 1.2 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl 6 Jul 2005 04:58:13 -0000 1.3 @@ -52,7 +52,7 @@ from dotlrn_member_rels_approved where community_id = :community_id and (rel_type = 'dotlrn_member_rel' - or rel_type = 'dotlrn_club_student_rel') + or rel_type = 'dc_student_rel') } set available_slots [expr $maxparticipants - $attendees] @@ -138,8 +138,8 @@ -nologin] # ad_return_complaint 1 "new_user '[array get new_user]' section_community_id '${section_community_id}'" # if {[info exists new_user(user_id)]} { - # relation_add -member_state approved dotlrn_club_student_rel $section_community_id $new_user(user_id) -# package_exec_plsql -var_list [list [list community_id $section_community_id] [list rel_type "dotlrn_club_student_rel"] [list user_id $new_user(user_id)] [list member_state approved]] dotlrn_club_student_rel new + # relation_add -member_state approved dc_student_rel $section_community_id $new_user(user_id) +# package_exec_plsql -var_list [list [list community_id $section_community_id] [list rel_type "dc_student_rel"] [list user_id $new_user(user_id)] [list member_state approved]] dc_student_rel new relation_add -member_state approved membership_rel $group_id $new_user(user_id) # }