Index: openacs-4/packages/acs-core-docs/www/tutorial-categories.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-categories.html,v diff -u -r1.13 -r1.14 --- openacs-4/packages/acs-core-docs/www/tutorial-categories.html 11 Dec 2010 23:36:32 -0000 1.13 +++ openacs-4/packages/acs-core-docs/www/tutorial-categories.html 27 Oct 2014 16:39:26 -0000 1.14 @@ -1,5 +1,5 @@ -
extended by Nima Mazloumi
+extended by Nima Mazloumi
OpenACS docs are written by the named authors, and may be edited by OpenACS documentation staff.You can associate any ACS Object with one or more categories. @@ -130,7 +130,7 @@ set return_url [ns_conn url] set use_categories_p [parameter::get -parameter "EnableCategoriesP"]
Change your to this:
- <a href=configure?<%=[export_url_vars return_url]%>>Configure</a> + <a href=configure?<%=[export_vars -url {return_url}]%>>Configure</a> <if @use_categories_p@> <a href="@category_map_url@"<#categories.Site_wide_Categories#</a> </if> @@ -155,7 +155,7 @@ {submit:text(submit) {label "Set Mode"}} } -on_submit { parameter::set_value -parameter "EnableCategoriesP" -value $enabled_p - if {![empty_string_p $return_url]} { + if {$return_url ne ""} { ns_returnredirect $return_url } } @@ -170,7 +170,7 @@ set return_url [ad_conn url] #ADP: - <a href=configure?<%=[export_url_vars return_url]%>>Configure</a> + <a href=configure?<%=[export_vars -url {return_url}]%>>Configure</a>
Change the note-edit.tcl
:
# Use Categories? set use_categories_p [parameter::get -parameter "EnableCategoriesP" -default 0] @@ -196,7 +196,7 @@-from_clause
.set use_categories_p [parameter::get -parameter "EnableCategoriesP" -default 0] - if { $use_categories_p == 1 && [exists_and_not_null category_id] } { + if { $use_categories_p == 1 && $category_id ne "" } { set from_clause "category_object_map com, acs_named_objects nam" set_where_clause "com.object_id = qa.entry_id and @@ -221,9 +221,9 @@ # Site-Wide Categories if { $use_categories_p == 1} { set package_url [ad_conn package_url] - if { ![empty_string_p $category_id] } { + if { $category_id ne "" } { set category_name [category::get_name $category_id] - if { [empty_string_p $category_name] } { + if { $category_name eq "" } { ad_return_exception_page 404 "No such category" "Site-wide \ Category with ID $category_id doesn't exist" return @@ -236,7 +236,7 @@ # Cut the URL off the last item in the context bar if { [llength $context] > 0 } { - set context [lreplace $context end end [lindex [lindex $context end] end]] + set context [lreplace $context end end [lindex $context end end]] } db_multirow -unclobber -extend { category_name tree_name } categories categories { @@ -259,7 +259,7 @@ </multiple> <a href="@package_url@view?@YOURPARAMS@">All Items</if>Finally you need a an
index.vuh
in your - www folder to rewrite the URLs correctly, Using .vuh files for pretty urls:+ www folder to rewrite the URLs correctly, the section called “Using .vuh files for pretty urls”:set url /[ad_conn extra_url] if {[regexp {^/+cat/+([^/]+)/*} $url \