Index: openacs-4/packages/ecommerce/www/update-user-classes-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/update-user-classes-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/www/update-user-classes-2.tcl	10 Dec 2002 20:06:18 -0000	1.5
+++ openacs-4/packages/ecommerce/www/update-user-classes-2.tcl	11 Dec 2002 23:09:45 -0000	1.6
@@ -13,6 +13,11 @@
     usca_p:optional
 }
 
+if { ![ad_parameter -package_id [ec_id] UserClassAllowSelfPlacement ecommerce] } {
+    ad_returnredirect index
+    ad_script_abort
+}
+
 set user_class_id_list $user_class_id
 set user_id [ad_verify_and_get_user_id]
 set ip_address [ns_conn peeraddr]
Index: openacs-4/packages/ecommerce/www/update-user-classes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/update-user-classes.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/ecommerce/www/update-user-classes.tcl	10 Dec 2002 20:06:18 -0000	1.6
+++ openacs-4/packages/ecommerce/www/update-user-classes.tcl	11 Dec 2002 23:09:45 -0000	1.7
@@ -11,6 +11,11 @@
     usca_p:optional
 }
 
+if { ![ad_parameter -package_id [ec_id] UserClassAllowSelfPlacement ecommerce] } {
+    ad_returnredirect index
+    ad_script_abort
+}
+
 set user_id [ad_verify_and_get_user_id]
 if {$user_id == 0} {
     set return_url "[ad_conn url]"