Index: openacs-4/packages/ecommerce/www/category-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/ecommerce/www/category-browse.tcl 1 Mar 2005 00:01:30 -0000 1.10 +++ openacs-4/packages/ecommerce/www/category-browse.tcl 27 Apr 2008 01:38:23 -0000 1.11 @@ -178,23 +178,21 @@ set have_how_many_more_p f set count 0 -db_foreach get_regular_product_list " - select p.product_id, p.product_name, p.one_line_description, o.offer_code - from $product_map($sub) m, ec_products_searchable p left outer join ec_user_session_offer_codes o on (p.product_id = o.product_id and user_session_id = :user_session_id) - where p.product_id = m.product_id - and m.${sub}category_id = :${sub}category_id - $exclude_subproducts - order by p.product_name" { +db_foreach get_regular_product_list "sql in db specific xql filessw" { if { $count >= $start && [expr $count - $start] < $how_many } { + array set thumbnail_info [ecommerce::resource::image_info -type Thumbnail -product_id $product_id -dirname $dirname] + set image_html "" + # assumes exists... + set image_html "" + append products " - [expr $count + 1] + $image_html $product_name - $one_line_description [ec_price_line $product_id $user_id $offer_code] "