Index: openacs-4/packages/ecommerce/www/admin/orders/fulfillment-items-needed.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/fulfillment-items-needed.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ecommerce/www/admin/orders/fulfillment-items-needed.tcl	9 Mar 2004 00:59:50 -0000	1.4
+++ openacs-4/packages/ecommerce/www/admin/orders/fulfillment-items-needed.tcl	18 Aug 2008 01:24:21 -0000	1.5
@@ -11,45 +11,30 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-doc_body_append "[ad_admin_header "Items Needed"]
+set title "Items Needed"
+set context [list [list index "Orders / Shipments / Refunds"] $title]
 
-<h2>Items Needed</h2>
-
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] [list "index" "Orders"] [list "fulfillment" "Fulfillment"] "Items Needed"]
-
-<hr>
-The following items are needed in order to fulfill all outstanding orders:
-<blockquote>
-<table>
-<tr bgcolor=\"ececec\"><td><b>Quantity</b></td><td><b>SKU</b></td><td><b>Product</b></td></tr>
-"
-
-db_foreach items_needed_select "
-    select p.product_id, p.product_name,
+set items_needed_select_html ""
+db_foreach items_needed_select "select p.product_id, p.product_name,
            i.color_choice, i.size_choice, i.style_choice,
            count(*) as quantity
       from ec_products p, ec_items_shippable i
      where p.product_id=i.product_id
   group by p.product_id, p.product_name,
            i.color_choice, i.size_choice, i.style_choice
-  order by quantity desc
-" {
-    set option_list [list]
-    if { ![empty_string_p $color_choice] } {
-	lappend option_list "Color: $color_choice"
-    }
-    if { ![empty_string_p $size_choice] } {
-	lappend option_list "Size: $size_choice"
-    }
-    if { ![empty_string_p $style_choice] } {
-	lappend option_list "Style: $style_choice"
-    }
-    set options [join $option_list ", "]
-
-    doc_body_append "<tr><td align=right>$quantity</td><td><a href=\"[ec_url_concat [ec_url] /admin]/products/one?[export_url_vars product_id]\">$sku</a></td><td><a href=\"[ec_url_concat [ec_url] /admin]/products/one?[export_url_vars product_id]\">$product_name</a>[ec_decode $options "" "" "; $options"]</td></tr>\n"
+  order by quantity desc" {
+      set option_list [list]
+      if { ![empty_string_p $color_choice] } {
+          lappend option_list "Color: $color_choice"
+      }
+      if { ![empty_string_p $size_choice] } {
+          lappend option_list "Size: $size_choice"
+      }
+      if { ![empty_string_p $style_choice] } {
+          lappend option_list "Style: $style_choice"
+      }
+      set options [join $option_list ", "]
+      
+      append items_needed_select_html "<tr><td align=right>$quantity</td><td><a href=\"[ec_url_concat [ec_url] /admin]/products/one?[export_url_vars product_id]\">$sku</a></td><td><a href=\"[ec_url_concat [ec_url] /admin]/products/one?[export_url_vars product_id]\">$product_name</a>[ec_decode $options "" "" "; $options"]</td></tr>\n"
 }
 
-doc_body_append "</table>
-</blockquote>
-[ad_admin_footer]
-"