Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl	25 Aug 2005 19:07:48 -0000	1.25
+++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl	1 Sep 2005 21:43:57 -0000	1.26
@@ -328,7 +328,7 @@
     
     @error 
 } {
-    set time_period [parameter::get -package_id [apm_package_id_from_key dotlrn-ecommerce] -parameter ApprovedRegistrationTimePeriod -default 86400]
+    set time_period [parameter::get -package_id [apm_package_id_from_key dotlrn-ecommerce] -parameter ApprovedRegistrationTimePeriod -default 7776000]
 
     db_foreach check_applications {
 	select community_id, user_id
@@ -337,6 +337,14 @@
 	and (current_timestamp - o.last_modified)::interval >= (:time_period||' seconds')::interval
 	and r.member_state in ('request approved', 'waitinglist approved', 'payment received')
     } {
+	if { [parameter::get -parameter AllowAheadAccess -package_id [apm_package_id_from_key dotlrn-ecommerce] -default 0] } {
+	    # Dispatch dotlrn applet callbacks
+	    dotlrn_community::applets_dispatch \
+		-community_id $community_id \
+		-op RemoveUserFromCommunity \
+		-list_args [list $community_id $user_id]
+	}
+
 	dotlrn_community::membership_reject -community_id $community_id -user_id $user_id
     }
 }
@@ -387,6 +395,14 @@
 				 and m.member_state = 'needs approval')
 	    }
 
+	    if { [parameter::get -parameter AllowAheadAccess -package_id [apm_package_id_from_key dotlrn-ecommerce] -default 0] } {
+		# Dispatch dotlrn applet callbacks
+		dotlrn_community::applets_dispatch \
+		    -community_id $community_id \
+		    -op AddUserToCommunity \
+		    -list_args [list $community_id $user_id]
+	    }
+
 	    acs_mail_lite::send \
 		-to_addr $email \
 		-from_addr $admin_email \