Index: openacs-4/packages/ecommerce/www/account.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/account.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/ecommerce/www/account.tcl 20 Apr 2001 20:51:13 -0000 1.1 +++ openacs-4/packages/ecommerce/www/account.tcl 31 Jan 2002 22:43:54 -0000 1.2 @@ -73,13 +73,13 @@ # if any user classes exist set user_classes "" -if { [util_memoize {ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce} [ec_cache_refresh]] == 1 && ![empty_string_p [db_string get_user_view_classes "select 1 from dual where exists (select 1 from ec_user_classes)" -default ""]]} { +if { [ad_parameter -package_id [ec_id] UserClassUserViewP ecommerce] == 1 && ![empty_string_p [db_string get_user_view_classes "select 1 from dual where exists (select 1 from ec_user_classes)" -default ""]]} { set user_classes_to_display [ec_user_class_display $user_id] append user_classes "

  • User Classes: $user_classes_to_display" - if { [util_memoize {ad_parameter -package_id [ec_id] UserClassAllowSelfPlacement ecommerce} [ec_cache_refresh]] } { + if { [ad_parameter -package_id [ec_id] UserClassAllowSelfPlacement ecommerce] } { append user_classes " ([ec_decode $user_classes_to_display "" "sign up for one" "update"])" }