Index: openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml,v diff -u -r1.52 -r1.52.2.1 --- openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml 27 Jun 2015 17:19:13 -0000 1.52 +++ openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml 10 Jun 2016 07:35:08 -0000 1.52.2.1 @@ -520,7 +520,7 @@ file: - <a href="@category_map_url@"<#categories.Site_wide_Categories#</a> + <a href="@category_map_url@">#­categories.Site_wide_Categories#</a> The link created by the above code (category_map_url) will take the admin to the generic @@ -547,8 +547,8 @@ switch to the ad_form command. Here's the "meat" of the note-edit.tcl page: - #extend the form to support categories - set package_id [ad_conn package_id] + # extend the form to support categories + set package_id [ad_conn package_id] category::ad_form::add_widgets -form_name note -container_object_id $package_id -categorized_object_id [value_if_exists item_id] @@ -608,7 +608,8 @@ </queryset> And the adp page: [$OPENACS_SERVICE_NAME@yourserver www]$ emacs note-delete.adp - <master> + +<master> <property name="title">@title@</property> <property name="context">{@title@}</property> <h2>@title@</h2> @@ -635,7 +636,7 @@ <a href=configure?<%=[export_vars -url {return_url}]%>>Configure</a> <if @use_categories_p@> - <a href="@category_map_url@"<#categories.Site_wide_Categories#</a> + <a href="@category_map_url@">#­categories.Site_wide_Categories#</a> </if> Now create a configure page @@ -782,13 +783,12 @@ Finally you need a an index.vuh in your www folder to rewrite the URLs correctly, : - set url /[ad_conn extra_url] + set url /[ad_conn extra_url] - if {[regexp {^/+cat/+([^/]+)/*} $url \ - ignore_whole category_id]} { - rp_form_put category_id $category_id - } - rp_internal_redirect "/packages/YOURPACKAGE/www/index" + if {[regexp {^/+cat/+([^/]+)/*} $url ignore_whole category_id]} { + rp_form_put category_id $category_id + } + rp_internal_redirect "/packages/YOURPACKAGE/www/index" Now when ever the user select a category only notes that belong to this category are displayed. @@ -1494,34 +1494,34 @@ All you need now is a configuration page where the user can change this setting. Create a configure.tcl file: - ad_page_contract { +ad_page_contract { - This page allows a faq admin to change the UseWysiwygP setting + This page allows a faq admin to change the UseWysiwygP setting - } { - {return_url ""} - } +} { + {return_url ""} +} - set title "Should we support WYSIWYG?" - set context [list $title] + set title "Should we support WYSIWYG?" + set context [list $title] - set use_wysiwyg_p + set use_wysiwyg_p - ad_form -name categories_mode -form { - {enabled_p:text(radio) - {label "Enable WYSIWYG"} - {options {{Yes t} {No f}}} - {value $use_wysiwyg_p} - } - {return_url:text(hidden) {value $return_url}} - {submit:text(submit) {label "Change"}} - } -on_submit { - parameter::set_value -parameter "UseWysiwygP" -value $enabled_p - if {$return_url ne ""} { - ns_returnredirect $return_url - } - } - + ad_form -name categories_mode -form { + {enabled_p:text(radio) + {label "Enable WYSIWYG"} + {options {{Yes t} {No f}}} + {value $use_wysiwyg_p} + } + {return_url:text(hidden) {value $return_url}} + {submit:text(submit) {label "Change"}} + } -on_submit { + parameter::set_value -parameter "UseWysiwygP" -value $enabled_p + if {$return_url ne ""} { + ns_returnredirect $return_url + } + } + In the corresponding ADP file write <master>