Index: openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-init.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-init.tcl	25 Aug 2005 19:07:48 -0000	1.4
+++ openacs-4/packages/dotlrn-ecommerce/tcl/dotlrn-ecommerce-init.tcl	1 Sep 2005 20:58:53 -0000	1.5
@@ -13,4 +13,14 @@
 ad_schedule_proc -thread t 300 dotlrn_ecommerce::section::check_elapsed_registrations
 ad_schedule_proc -thread t 600 dotlrn_ecommerce::section::check_and_approve_sections_for_slots
 ad_schedule_proc -thread t -schedule_proc ns_schedule_daily [list 23 50] dotlrn_ecommerce::notify_admins_of_waitlist
-ad_schedule_proc -thread t -once t 660 dotlrn_ecommerce::check_expired_orders_once
\ No newline at end of file
+ad_schedule_proc -thread t -once t 660 dotlrn_ecommerce::check_expired_orders_once
+
+# Check if we're allowing access to dotLRN community for approved users, 
+# this should be done every restart
+if { [parameter::get -parameter AllowAheadAccess -package_id [apm_package_id_from_key dotlrn-ecommerce] -default 0] } {
+    ns_log notice "dotlrn-ecommerce-init.tcl: Allowing community access to approved member states, this modifies dotlrn_member_rels_approved and the membership_rels_up_tr function"
+    dotlrn_ecommerce::allow_access_to_approved_users
+} else {
+    ns_log notice "dotlrn-ecommerce-init.tcl: Disallowing community access to approved member states, this simply restores dotlrn_member_rels_approved and membership_rels_up_tr"
+    dotlrn_ecommerce::disallow_access_to_approved_users
+}
\ No newline at end of file