Index: openacs-4/packages/ecommerce/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/index.tcl 20 Apr 2001 20:51:13 -0000 1.1 +++ openacs-4/packages/ecommerce/www/index.tcl 31 Jan 2002 22:43:54 -0000 1.2 @@ -9,7 +9,7 @@ @author ported by Jerry Asher (jerry@theashergroup.com) } { usca_p:optional - {how_many:naturalnum {[util_memoize {ad_parameter -package_id [ec_id] ProductsToDisplayPerPage ecommerce} [ec_cache_refresh]]}} + {how_many:naturalnum {[ad_parameter -package_id [ec_id] ProductsToDisplayPerPage ecommerce]}} {start "0"} } @@ -54,7 +54,7 @@ set header_to_print "We Recommend

" set header_printed 0 -if { [util_memoize {ad_parameter -package_id [ec_id] UserClassApproveP ecommerce} [ec_cache_refresh]] } { +if { [ad_parameter -package_id [ec_id] UserClassApproveP ecommerce] } { set user_class_approved_p_clause "and user_class_approved_p = 't'" } else { set user_class_approved_p_clause "" @@ -90,7 +90,7 @@ append recommendations_if_there_are_any "
" -if { [util_memoize {ad_parameter -package_id [ec_id] SellGiftCertificatesP ecommerce} [ec_cache_refresh]] == 1 } { +if { [ad_parameter -package_id [ec_id] SellGiftCertificatesP ecommerce] == 1 } { set gift_certificates_are_allowed 1 } else { set gift_certificates_are_allowed 0