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" }