Index: openacs-4/packages/acs-admin/www/send-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/send-email.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/acs-admin/www/send-email.tcl 27 Oct 2014 16:38:51 -0000 1.5 +++ openacs-4/packages/acs-admin/www/send-email.tcl 13 Jun 2015 23:55:31 -0000 1.6 @@ -10,7 +10,7 @@ subject message return_url - {show_sent_message_p "f"} + {show_sent_message_p:boolean "f"} {sent_title "Email sent"} {sent_subject "Email sent"} {sent_message "Email was successfully sent"} Index: openacs-4/packages/acs-admin/www/apm/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.tcl,v diff -u -N -r1.26 -r1.27 --- openacs-4/packages/acs-admin/www/apm/index.tcl 12 Jun 2015 21:14:16 -0000 1.26 +++ openacs-4/packages/acs-admin/www/apm/index.tcl 13 Jun 2015 23:55:32 -0000 1.27 @@ -9,7 +9,7 @@ { orderby "package_key" } { owned_by "everyone" } { supertype "all" } - { reload_links_p 0 } + { reload_links_p:boolean 0 } } set page_title "Package Manager" Index: openacs-4/packages/acs-admin/www/apm/package-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-add-2.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/acs-admin/www/apm/package-add-2.tcl 27 Oct 2014 16:38:51 -0000 1.11 +++ openacs-4/packages/acs-admin/www/apm/package-add-2.tcl 13 Jun 2015 23:55:32 -0000 1.12 @@ -9,10 +9,10 @@ pretty_name pretty_plural { package_type "apm_application"} - { initial_install_p "f" } - { singleton_p "f" } - { implements_subsite_p f } - { inherit_templates_p t } + { initial_install_p:boolean "f" } + { singleton_p:boolean "f" } + { implements_subsite_p:boolean f } + { inherit_templates_p:boolean t } { auto_mount "" } package_uri version_name @@ -26,9 +26,9 @@ { owner_uri:multiple} { vendor [db_null] } { vendor_uri [db_null] } - { install_p 0 } - {implements_subsite_p "f"} - {inherit_templates_p "f"} + { install_p:boolean 0 } + {implements_subsite_p:boolean "f"} + {inherit_templates_p:boolean "f"} } -validate { package_key_format -requires {package_key} { if { [regexp {[^a-z0-9-]} $package_key] } { Index: openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl 27 Oct 2014 16:38:52 -0000 1.17 +++ openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl 13 Jun 2015 23:55:32 -0000 1.18 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { {sql_file:multiple ""} - {mount_p:multiple ""} + {mount_p:boolean,multiple ""} {mount_path:array ""} } Index: openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 27 Oct 2014 16:38:53 -0000 1.12 +++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 13 Jun 2015 23:55:32 -0000 1.13 @@ -17,7 +17,7 @@ vendor_uri {auto_mount ""} {release_date ""} - { upgrade_p 0 } + { upgrade_p:boolean 0 } } # Validate dynamic package version attributes Index: openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl 26 Feb 2005 17:52:20 -0000 1.3 +++ openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl 13 Jun 2015 23:55:32 -0000 1.4 @@ -9,7 +9,7 @@ @cvs-id $Id$ } { {version_id:integer} - {context_p 1} + {context_p:boolean 1} } db_1row apm_package_by_version_id {} Index: openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 27 Oct 2014 16:38:53 -0000 1.4 +++ openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 13 Jun 2015 23:55:32 -0000 1.5 @@ -8,7 +8,7 @@ @cvs-id $Id$ } { {version_id:naturalnum,notnull} - {write_p 0} + {write_p:boolean 0} } if { $write_p } { Index: openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl 27 Oct 2014 16:38:54 -0000 1.17 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl 13 Jun 2015 23:55:32 -0000 1.18 @@ -9,7 +9,7 @@ {files:multiple,notnull} {file_action:multiple} {number_of_keys:integer,notnull ""} - {replace_p:array ""} + {replace_p:boolean,array ""} {message_keys:array ""} skip_button:optional } Index: openacs-4/packages/acs-admin/www/apm/version-i18n.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 27 Oct 2014 16:38:54 -0000 1.12 +++ openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 13 Jun 2015 23:55:32 -0000 1.13 @@ -7,9 +7,9 @@ @cvs-id $Id$ } { version_id:naturalnum,notnull - {pre_select_files_p "1"} - {show_status_p "0"} - {only_text_p "0"} + {pre_select_files_p:boolean "1"} + {show_status_p:boolean "0"} + {only_text_p:boolean "0"} {file_type adp} } Index: openacs-4/packages/acs-admin/www/install/install-4.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install-4.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/install/install-4.tcl 10 Jan 2007 21:22:00 -0000 1.4 +++ openacs-4/packages/acs-admin/www/install/install-4.tcl 13 Jun 2015 23:55:33 -0000 1.5 @@ -2,7 +2,7 @@ Install from local file system } { {repository_url ""} - {success_p 0} + {success_p:boolean 0} } if { $repository_url ne "" } { Index: openacs-4/packages/acs-admin/www/users/complex-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/complex-search.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-admin/www/users/complex-search.tcl 27 Oct 2014 16:38:57 -0000 1.12 +++ openacs-4/packages/acs-admin/www/users/complex-search.tcl 13 Jun 2015 23:55:33 -0000 1.13 @@ -37,8 +37,8 @@ target {passthrough ""} {limit_to_users_in_group_id:naturalnum ""} - {only_authorized_p:integer 1} - {only_needs_approval_p:naturalnum 0} + {only_authorized_p:boolean 1} + {only_needs_approval_p:boolean 0} {registration_before_days:integer -1} {registration_after_days:integer -1} {last_visit_before_days:integer -1} Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v diff -u -N -r1.15 -r1.16 --- openacs-4/packages/acs-admin/www/users/member-state-change.tcl 27 Oct 2014 16:38:57 -0000 1.15 +++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl 13 Jun 2015 23:55:33 -0000 1.16 @@ -9,7 +9,7 @@ } { user_id:naturalnum,notnull {member_state "no_change"} - {email_verified_p "no_change"} + {email_verified_p:boolean "no_change"} {return_url ""} } -properties { context:onevalue Index: openacs-4/packages/acs-admin/www/users/merge-final.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/merge-final.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/acs-admin/www/users/merge-final.tcl 27 Oct 2014 16:38:57 -0000 1.5 +++ openacs-4/packages/acs-admin/www/users/merge-final.tcl 13 Jun 2015 23:55:33 -0000 1.6 @@ -7,7 +7,7 @@ } { to_user_id:naturalnum,notnull from_user_id:naturalnum,notnull - merge_p + merge_p:boolean } -properties { context:onevalue } -validate { Index: openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 27 Oct 2014 16:38:57 -0000 1.4 +++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 13 Jun 2015 23:55:33 -0000 1.5 @@ -7,7 +7,7 @@ } { user_id:naturalnum,notnull action:notnull - confirmed_p:optional + confirmed_p:boolean,optional } set confirmed_url "/acs-admin/users/modify-admin-privileges?user_id=$user_id&action=$action&confirmed_p=1" Index: openacs-4/packages/acs-admin/www/users/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/search.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-admin/www/users/search.tcl 27 Oct 2014 16:38:58 -0000 1.7 +++ openacs-4/packages/acs-admin/www/users/search.tcl 13 Jun 2015 23:55:33 -0000 1.8 @@ -24,7 +24,7 @@ target {passthrough ""} {limit_to_users_in_group_id:naturalnum ""} - {only_authorized_p:integer 1} + {only_authorized_p:boolean 1} {limit_to_user_id:naturalnum ""} {from_user_id:naturalnum ""} } -properties { Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-api-browser/www/content-page-view.tcl 27 Oct 2014 16:38:59 -0000 1.6 +++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl 14 Jun 2015 00:04:21 -0000 1.7 @@ -11,7 +11,7 @@ @cvs-id $Id$ } { version_id:naturalnum,optional - source_p:integer,optional,trim + source_p:boolean,optional,trim path:trim } -properties { title:onevalue Index: openacs-4/packages/acs-api-browser/www/package-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/package-view.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/acs-api-browser/www/package-view.tcl 27 Oct 2014 16:38:59 -0000 1.8 +++ openacs-4/packages/acs-api-browser/www/package-view.tcl 14 Jun 2015 00:04:21 -0000 1.9 @@ -10,7 +10,7 @@ @cvs-id $Id$ } { version_id:naturalnum,notnull - { public_p "" } + { public_p:boolean "" } { kind "procs_files" } { about_package_key ""} } -properties { Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v diff -u -N -r1.13 -r1.14 --- openacs-4/packages/acs-api-browser/www/proc-search.tcl 27 Oct 2014 16:39:00 -0000 1.13 +++ openacs-4/packages/acs-api-browser/www/proc-search.tcl 14 Jun 2015 00:04:21 -0000 1.14 @@ -18,8 +18,8 @@ {param_weight:optional 0} {source_weight:optional 0} {search_type:optional 0} - {show_deprecated_p 0} - {show_private_p 0} + {show_deprecated_p:boolean 0} + {show_private_p:boolean 0} query_string } -properties { title:onevalue Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 27 Oct 2014 16:39:00 -0000 1.7 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 14 Jun 2015 00:04:21 -0000 1.8 @@ -4,7 +4,7 @@ @cvs-id $Id$ } { proc:trim - source_p:optional,integer,trim + source_p:boolean,optional,trim {version_id:naturalnum,optional ""} } -properties { title:onevalue Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 27 Oct 2014 16:39:00 -0000 1.4 +++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 14 Jun 2015 00:04:21 -0000 1.5 @@ -4,9 +4,9 @@ @cvs-id $Id$ } { version_id:naturalnum,optional - { public_p "" } + { public_p:boolean "" } path:trim - source_p:integer,optional,trim + source_p:boolean,optional,trim } -properties { title:onevalue context:onevalue Index: openacs-4/packages/acs-api-browser/www/set-default.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/set-default.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/acs-api-browser/www/set-default.tcl 13 Mar 2001 22:59:26 -0000 1.1 +++ openacs-4/packages/acs-api-browser/www/set-default.tcl 14 Jun 2015 00:04:21 -0000 1.2 @@ -1,7 +1,7 @@ ad_page_contract { Set user preferences for API browsing. } { - source_p:integer,optional,notnull + source_p:boolean,optional,notnull return_url } @@ -16,4 +16,4 @@ ad_returnredirect $return_url } else { ad_return_error "Unknown Property" "Couldn't find any property to set" -} \ No newline at end of file +} Index: openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl 27 Oct 2014 16:39:48 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl 13 Jun 2015 23:59:09 -0000 1.6 @@ -10,7 +10,7 @@ {node_id:naturalnum,multiple ""} {package_id:naturalnum,multiple ""} {return_url .} - {confirm_p 0} + {confirm_p:boolean 0} } foreach id $package_id { Index: openacs-4/packages/acs-subsite/www/admin/attributes/add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/add-2.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/admin/attributes/add-2.tcl 27 Oct 2014 16:39:48 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/admin/attributes/add-2.tcl 13 Jun 2015 23:59:10 -0000 1.5 @@ -14,7 +14,7 @@ pretty_plural:notnull,trim default_value:trim datatype:notnull,trim - required_p:notnull + required_p:boolean,notnull { return_url "" } } -properties { context:onevalue Index: openacs-4/packages/acs-subsite/www/admin/groups/new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/new.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/www/admin/groups/new.tcl 9 Jun 2015 07:57:52 -0000 1.9 +++ openacs-4/packages/acs-subsite/www/admin/groups/new.tcl 13 Jun 2015 23:59:10 -0000 1.10 @@ -10,7 +10,7 @@ } { group_type:notnull - { group_type_exact_p t } + { group_type_exact_p:boolean t } { group_name "" } { group_id:naturalnum "" } {add_to_group_id:integer ""} Index: openacs-4/packages/acs-subsite/www/admin/parties/new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/new.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl 9 Jun 2015 07:57:52 -0000 1.8 +++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl 13 Jun 2015 23:59:10 -0000 1.9 @@ -10,7 +10,7 @@ } { party_type:notnull - { party_type_exact_p t } + { party_type_exact_p:boolean t } { party_id:naturalnum "" } { party.email ""} { return_url "" } Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl 9 Jun 2015 07:57:52 -0000 1.12 +++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl 13 Jun 2015 23:59:10 -0000 1.13 @@ -12,9 +12,9 @@ group_id:naturalnum,notnull rel_type:notnull {party_id:naturalnum ""} - { exact_p "f" } + { exact_p:boolean "f" } { return_url "" } - { allow_out_of_scope_p "f" } + { allow_out_of_scope_p:boolean "f" } } -properties { context:onevalue role_pretty_name:onevalue Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v diff -u -N -r1.13 -r1.14 --- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 27 Oct 2014 16:39:56 -0000 1.13 +++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 13 Jun 2015 23:59:10 -0000 1.14 @@ -12,7 +12,7 @@ } { {new_package_id:naturalnum ""} node_id:naturalnum,notnull - {new_node_p f} + {new_node_p:boolean f} {node_name:trim ""} {instance_name ""} package_key:notnull Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v diff -u -N -r1.14 -r1.15 --- openacs-4/packages/acs-subsite/www/admin/users/new.tcl 9 Jun 2015 07:57:52 -0000 1.14 +++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl 13 Jun 2015 23:59:10 -0000 1.15 @@ -10,7 +10,7 @@ } { { user_type:notnull "user" } - { user_type_exact_p t } + { user_type_exact_p:boolean t } { user_id:naturalnum "" } { return_url "" } {add_to_group_id:naturalnum ""} Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v diff -u -N -r1.15 -r1.16 --- openacs-4/packages/acs-subsite/www/permissions/one.tcl 13 Jun 2015 20:05:56 -0000 1.15 +++ openacs-4/packages/acs-subsite/www/permissions/one.tcl 13 Jun 2015 23:59:10 -0000 1.16 @@ -9,7 +9,7 @@ @cvs-id $Id$ } { object_id:naturalnum,notnull - {children_p "f"} + {children_p:boolean "f"} {application_url ""} } Index: openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl,v diff -u -N -r1.15 -r1.16 --- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 27 Oct 2014 16:40:03 -0000 1.15 +++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 13 Jun 2015 23:59:10 -0000 1.16 @@ -8,7 +8,7 @@ } { {return_url ""} {user_id:naturalnum ""} - {edit_p 0} + {edit_p:boolean 0} {message ""} }