Index: openacs-4/contrib/packages/resource-list/www/add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/resource-list/www/add-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/resource-list/www/add-edit.tcl 20 Feb 2004 01:11:53 -0000 1.2 +++ openacs-4/contrib/packages/resource-list/www/add-edit.tcl 2 Mar 2004 21:32:32 -0000 1.3 @@ -27,8 +27,8 @@ # the unique identifier for this package set package_id [ad_conn package_id] set user_id [ad_maybe_redirect_for_registration] +set url [ad_conn package_url] - if {[exists_and_not_null resource_id]} { set title "Edit a $resource_term_lower" set context_bar [ad_context_bar "Edit $resource_term"] @@ -89,7 +89,7 @@ util_memoize_flush "resource_list_pending_get_count_cached" util_memoize_flush "resource_list_get_count_cached" - ad_returnredirect "one?[export_url_vars resource_item_id]" + ad_returnredirect "[set url]view/$resource_item_id" ad_script_abort } -edit_data { @@ -117,7 +117,7 @@ } -after_submit { - ad_returnredirect "one?[export_url_vars resource_item_id]" + ad_returnredirect "[set url]view/$resource_item_id" ad_script_abort }