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.2 -r1.22.2.3
--- openacs-4/packages/search/www/search.tcl	14 Dec 2006 13:55:11 -0000	1.22.2.2
+++ openacs-4/packages/search/www/search.tcl	17 Feb 2007 16:46:10 -0000	1.22.2.3
@@ -110,7 +110,7 @@
 # TODO calculate subsite or dotlrn package_ids
 if {![string equal "this" $scope]} {
     # don't send package_id if its not searching this package
-    set search_package_id ""
+    #set search_package_id ""
 } else {
     set search_node_id [site_node::get_node_id_from_object_id -object_id $search_package_id]
     if {[string equal "dotlrn" [site_node::get_element -node_id $search_node_id -element package_key]]} {
@@ -214,7 +214,7 @@
 set values [list]
 for { set __i $from_result_page } { $__i <= $to_result_page} { incr __i } {
     set link ""
-    append link "search?q=${urlencoded_query}"
+    append 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" }