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>