Index: openacs-4/packages/ecommerce/www/category-browse-subcategory.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subcategory.adp,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/ecommerce/www/category-browse-subcategory.adp 11 Mar 2004 04:11:52 -0000 1.5
+++ openacs-4/packages/ecommerce/www/category-browse-subcategory.adp 27 Dec 2004 20:48:31 -0000 1.5.2.1
@@ -26,7 +26,7 @@
-
@category_name@ > @subcategory_name@ products:
+ @category_name@ > @subcategory_name@ products:
@products;noquote@
@prev_link@ @separator@ @next_link@
Index: openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl 8 Mar 2004 19:46:11 -0000 1.6
+++ openacs-4/packages/ecommerce/www/category-browse-subcategory.tcl 27 Dec 2004 20:48:31 -0000 1.6.2.1
@@ -106,7 +106,7 @@
append recommendations "
- [ec_linked_thumbnail_if_it_exists $dirname "f" "t"] |
+ [ec_linked_thumbnail_if_it_exists $dirname "f" "t"] |
$product_name
$recommendation_text
|
@@ -142,7 +142,7 @@
set count 0
db_foreach get_regular_product_list "
- select p.product_id, p.product_name, p.one_line_description, o.offer_code
+ select p.product_id, p.dirname, 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
@@ -158,7 +158,8 @@
|
- $one_line_description |
+ $one_line_description
+ [ec_add_to_cart_link $product_id "Add to Shopping Cart"] |
[ec_price_line $product_id $user_id $offer_code] |
"
}
@@ -213,13 +214,14 @@
ORDER BY sort_key, sub${sub}category_name
" {
- ns_log notice "loop"
+ ns_log notice "category-browse-subcategory.tcl: loop"
append subcategories "[eval "ident \$sub${sub}category_name"]"
}
}
set the_category_id $category_id
set the_category_name [eval "ident \$${sub}category_name"]
+set category_url "category-browse?category_id=${$the_category_id"
set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list [list "category-browse?category_id=$the_category_id" $category_name] $subcategory_name]]]
set ec_system_owner [ec_system_owner]
db_release_unused_handles