Index: openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl 2 Feb 2005 21:31:15 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl 9 Feb 2005 11:00:26 -0000 1.3 @@ -58,6 +58,7 @@ ad_form -extend -name catalog_search -form { {keywords:text,optional,nospell {label "[_ assessment.Keywords]"} {html {size 80 maxlength 500}} {help_text "[_ assessment.Keywords_help]"}} {letter:text(select),optional {label "[_ assessment.Letter]"} {options $letter_options} {help_text "[_ assessment.Letter_help]"}} + {search_again_url:text(hidden) {value "[ad_return_url]"}} } if {[info exists section_id]} { @@ -80,7 +81,7 @@ set category_ids [category::ad_form::get_categories -container_object_id $package_id] } -after_submit { # now go to item-type specific form (i.e. multiple choice) - ad_returnredirect [export_vars -base catalog-browse {assessment_id section_id after category_ids:multiple join subtree_p keywords letter itype}] + ad_returnredirect [export_vars -base catalog-browse {assessment_id section_id after category_ids:multiple join subtree_p keywords letter itype search_again_url}] ad_script_abort }