Index: openacs-4/packages/ecommerce/www/product-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/product-search.tcl,v diff -u -r1.6 -r1.6.4.1 --- openacs-4/packages/ecommerce/www/product-search.tcl 10 Dec 2002 20:06:18 -0000 1.6 +++ openacs-4/packages/ecommerce/www/product-search.tcl 22 Dec 2004 20:57:39 -0000 1.6.4.1 @@ -22,6 +22,11 @@ set user_id [ad_verify_and_get_user_id] +# Is search request originating from a page from this site? +# if not, cookies are created for each image, so consider skiping presenting images +# when referrer is not this site. A better solution would be +# to move the product images to a /resources dir + # user session tracking set user_session_id [ec_get_user_session_id] @@ -44,6 +49,9 @@ set subcategory_id "" } +# filter overflow attempts from really long search strings +set search_text "[string range $search_text 0 100 ]" + ec_create_new_session_if_necessary [export_url_vars category_id search_text] cookies_are_not_required if { [string compare $user_session_id "0"] != 0 } { db_dml insert_search_text_to_session_info "insert into ec_user_session_info (user_session_id, category_id, search_text) values (:user_session_id, :category_id, :search_text)" @@ -107,9 +115,9 @@ if { $search_count == 0 } { set search_results "No products found." } else { - set search_results " $search_count item[ec_decode $search_count "1" "" "s"] found.

$search_string" + set search_results "

$search_count [ec_decode $search_count "1" "item found." "items found, most relevant first."]

$search_string" } -set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "$category_name"]]] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "[ec_system_name] search results"]]] set ec_system_owner [ec_system_owner] db_release_unused_handles