Index: openacs-4/packages/ecommerce/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/index.tcl,v
diff -u -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/ecommerce/www/index.tcl	23 Dec 2004 13:18:23 -0000	1.6.2.2
+++ openacs-4/packages/ecommerce/www/index.tcl	11 Jun 2005 05:39:51 -0000	1.6.2.3
@@ -4,7 +4,7 @@
 
     @param usca_p
     @param how_many
-    @param start
+    @param start_row
 
     @author
     @creation-date
@@ -15,7 +15,7 @@
 } {
     usca_p:optional
     {how_many:naturalnum {[ad_parameter -package_id [ec_id] ProductsToDisplayPerPage ecommerce]}}
-    {start "0"}
+    {start_row "0"}
 }
 
 # see if they're logged in
@@ -95,54 +95,58 @@
 set count 0
 
 # find all top-level products (those that are uncategorized)
+db_1row get_tl_product_count "
+      select count(*) as product_count
+      from 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 not exists (select 1 
+          from ec_category_product_map m
+          where p.product_id = m.product_id)"
 
 db_foreach get_tl_products "
     select p.product_id, p.product_name, p.one_line_description, o.offer_code
     from 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 not exists (select 1 from ec_category_product_map m where p.product_id = m.product_id)
-    order by p.product_name" {
+    order by p.product_name limit :how_many offset :start_row" {
 
+    append products "
+          <tr valign=top>
+            <td>[expr $count + 1]</td>
+            <td colspan=2><a href=\"${base_url}product?product_id=$product_id\"><b>$product_name</b></a></td>
+          </tr>
+          <tr valign=top>
+    	<td></td>
+    	<td>$one_line_description</td>
+    	<td align=right>[ec_price_line $product_id $user_id $offer_code]</td>
+          </tr>"
 
-    if { $count >= $start && [expr $count - $start] < $how_many } {
-
-	append products "
-	      <tr valign=top>
-	        <td>[expr $count + 1]</td>
-	        <td colspan=2><a href=\"${base_url}product?product_id=$product_id\"><b>$product_name</b></a></td>
-	      </tr>
-	      <tr valign=top>
-		<td></td>
-		<td>$one_line_description</td>
-		<td align=right>[ec_price_line $product_id $user_id $offer_code]</td>
-	      </tr>"
-    }
     incr count
-    if { $count > [expr $start + (2 * $how_many)] } {
-	# we know there are at least how_many more items to display next time
-	set have_how_many_more_p t
-	break
-    } else {
-	set have_how_many_more_p f
-    }
 }
+
+if { $product_count > [expr $start_row + (2 * $how_many)] } {
+    # we know there are at least how_many more items to display next time
+    set have_how_many_more_p t
+} else {
+    set have_how_many_more_p f
+}
+
 if {[string equal $products "<table width=\"100%\">"]} {
     set products ""
 } else {
     append products "</table>"
 }
 
-if { $start >= $how_many } {
-    set prev_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start=[expr $start - $how_many]>Previous $how_many</a>"
+if { $start_row >= $how_many } {
+    set prev_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start_row=[expr $start_row - $how_many]>Previous $how_many</a>"
 } else {
     set prev_link ""
 }
 
 if { $have_how_many_more_p == "t" } {
-    set next_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start=[expr $start + $how_many]>Next $how_many</a>"
+    set next_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start_row=[expr $start_row + $how_many]>Next $how_many</a>"
 } else {
-    set number_of_remaining_products [expr $count - $start - $how_many]
+    set number_of_remaining_products [expr $product_count - $start_row - $how_many]
     if { $number_of_remaining_products > 0 } {
-	set next_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start=[expr $start + $how_many]>Next $number_of_remaining_products</a>"
+	set next_link "<a href=${base_url}?[export_url_vars category_id subcategory_id subsubcategory_id how_many]&start_row=[expr $start_row + $how_many]>Next $number_of_remaining_products</a>"
     } else {
 	set next_link ""
     }