Index: openacs-4/packages/ecommerce/www/admin/products/by-category.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/by-category.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ecommerce/www/admin/products/by-category.adp	14 Aug 2008 09:43:59 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="doc(title)">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+<h2>@title@</h2>
+<ul>
+@category_list_html;noquote@
+</ul>
Index: openacs-4/packages/ecommerce/www/admin/products/by-category.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/by-category.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/www/admin/products/by-category.tcl	9 Mar 2004 00:59:51 -0000	1.4
+++ openacs-4/packages/ecommerce/www/admin/products/by-category.tcl	14 Aug 2008 09:43:59 -0000	1.5
@@ -11,19 +11,11 @@
 }
 
 ad_require_permission [ad_conn package_id] admin
+set title "Products by Category"
+set context [list [list index Products] $title]
 
-doc_body_append "[ad_admin_header "Products by Category"]
-
-<h2>Products by category</h2>
-
-[ad_context_bar [list "[ec_url_concat [ec_url] /admin]/" "Ecommerce([ec_system_name])"] [list "index.tcl" "Products"] "by Category"]
-
-<hr>
-
-<ul>
-"
-
 set items ""
+set category_list_html ""
 
 db_foreach product_categories_select "
 select cats.category_id, cats.sort_key, cats.category_name, count(cat_view.product_id) as n_products, sum(cat_view.n_sold) as total_sold_in_category
@@ -42,15 +34,9 @@
 }
 
 if ![empty_string_p $items] {
-    doc_body_append $items
+    append category_list_html $items
 } else {
-    doc_body_append "apparently products aren't being put into categories"
+    append category_list_html "apparently products aren't being put into categories"
 }
 
-doc_body_append "
 
-</ul>
-
-[ad_admin_footer]
-"
-