Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v diff -u -N -r1.21 -r1.22 --- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 20 Jul 2005 16:40:21 -0000 1.21 +++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl 20 Jul 2005 17:40:05 -0000 1.22 @@ -529,18 +529,20 @@ } -default ""] switch $member_state { + "needs approval" - "awaiting payment" - "request approval" { set waiting_p 1 } "waitinglist approved" - + "payment received" - "request approved" { set approved_p 1 } } # HAM : if we don't have an instructor id - set instructor_p "" + set instructor_p -1 if { [exists_and_not_null instructor_ids] } { set instructor_p [lsearch $instructor_ids $user_id] }