Index: openacs-4/packages/ecommerce/tcl/ecommerce-money-computations-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-money-computations-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/ecommerce/tcl/ecommerce-money-computations-procs.tcl	18 Jul 2001 18:19:01 -0000	1.2
+++ openacs-4/packages/ecommerce/tcl/ecommerce-money-computations-procs.tcl	31 Jan 2002 22:43:54 -0000	1.3
@@ -27,7 +27,7 @@
 	set lowest_price_name "Our Price"
     }
 
-    if { [util_memoize {ad_parameter -package_id [ec_id] UserClassApproveP ecommerce} [ec_cache_refresh]] } {
+    if { [ad_parameter -package_id [ec_id] UserClassApproveP ecommerce] } {
 	set additional_user_class_restriction "and m.user_class_approved_p = 't'"
     } else {
 	set additional_user_class_restriction "and (m.user_class_approved_p is null or m.user_class_approved_p='t')"
@@ -44,7 +44,7 @@
 	    set lowest_price $price
 	    # only include the user_class_name in the name of the price if
 	    # the user is allowed to see what user classes they're in
-	    if { [util_memoize {ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce} [ec_cache_refresh]] == 1 } {
+	    if { [ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce] == 1 } {
 		set lowest_price_name "$user_class_name Price"
 	    } else {
 		set lowest_price_name "Special Price"
@@ -147,7 +147,7 @@
 		set lowest_price $price
 	    # only include the user_class_name in the name of the price if
 	    # the user is allowed to see what user classes they're in
-		if { [util_memoize {ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce} [ec_cache_refresh]] == 1 } {
+		if { [ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce] == 1 } {
 		    set lowest_price_name "$user_class_name Price"
 		} else {
 		    set lowest_price_name "Special Price"