Index: openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 6 Jul 2005 04:58:13 -0000 1.8 +++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 6 Jul 2005 16:51:08 -0000 1.9 @@ -84,8 +84,17 @@ or rel_type = 'dc_student_rel') } - if { $attendees >= $maxparticipants } { - set waiting_list_p 1 + # If the group members will exceed the maximum + # participants, the entire group goes to the + # waiting list + if { [acs_object_type $participant_id] == "group" } { + if { ($attendees + [llength $user_ids]) > $maxparticipants } { + set waiting_list_p 1 + } + } else { + if { $attendees >= $maxparticipants } { + set waiting_list_p 1 + } } } @@ -133,4 +142,4 @@ } ns_log notice "dotlrn-ecommerce callback: Run successfully" -} \ No newline at end of file +}