| Prev | Chapter 9. Advanced Topics | Next |
|---|
extended by Nima Mazloumi
+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.vuhin 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 \