Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.22.2.5 -r1.22.2.6
--- openacs-4/packages/search/www/search.tcl	24 May 2007 16:19:37 -0000	1.22.2.5
+++ openacs-4/packages/search/www/search.tcl	1 Jun 2007 10:56:51 -0000	1.22.2.6
@@ -197,18 +197,13 @@
 }
 set ol_start [expr $offset + 1]
 
-set items [list]
-set links [list]
-set values [list]
+template::multirow create results_paginator item link
 for { set __i $from_result_page } { $__i <= $to_result_page} { incr __i } {
-    set link ""
-    append link "search?q=${urlencoded_query}&search_package_id=$search_package_id"
+    set link "search?q=${urlencoded_query}&search_package_id=$search_package_id"
     if { $__i > 1 } { append link "&offset=[expr ($__i - 1) * $limit]" }
     if { $num > 0 } { append link "&num=$num" }
 
-    lappend items $__i
-    lappend links $link
-    lappend values $__i
+    template::multirow append results_paginator $__i $link
 }
 
 set search_the_web [ad_parameter -package_id $package_id SearchTheWeb]
@@ -219,8 +214,6 @@
     }
 }
 
-set choice_bar [search::choice_bar $items $links $values $current_result_page]
-
 # header stuffs
 if {![template::multirow exists link]} {
     template::multirow create link rel type href title lang media