Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/search/www/search.tcl 13 Jan 2005 13:58:41 -0000 1.13
+++ openacs-4/packages/search/www/search.tcl 2 Feb 2005 21:18:03 -0000 1.14
@@ -20,7 +20,7 @@
set package_url [ad_conn package_url]
set package_url_with_extras $package_url
-set context [list]
+set context results
set context_base_url $package_url
set user_id [ad_conn user_id]
@@ -142,7 +142,7 @@
if [llength $search_the_web] {
set stw ""
foreach {url site} $search_the_web {
- append stw "$site "
+ append stw "$site "
}
}