Index: openacs-4/packages/acs-admin/www/auth/batch-job.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job.tcl,v diff -u -r1.17.2.5 -r1.17.2.6 --- openacs-4/packages/acs-admin/www/auth/batch-job.tcl 6 Oct 2023 12:09:19 -0000 1.17.2.5 +++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl 6 Oct 2023 12:31:05 -0000 1.17.2.6 @@ -5,7 +5,7 @@ @creation-date 2003-09-09 } { job_id:naturalnum,notnull - page:naturalnum,optional + page:naturalnum,optional,notnull success_p:boolean,optional,notnull } 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 -r1.18.2.3 -r1.18.2.4 --- openacs-4/packages/acs-api-browser/www/package-view.tcl 28 Dec 2021 11:19:17 -0000 1.18.2.3 +++ openacs-4/packages/acs-api-browser/www/package-view.tcl 6 Oct 2023 12:31:05 -0000 1.18.2.4 @@ -11,7 +11,7 @@ } { version_id:naturalnum,notnull { public_p:boolean "" } - { kind:word "procs_files" } + { kind:word,notnull "procs_files" } { about_package_key:token ""} } -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 -r1.12.2.1 -r1.12.2.2 --- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 6 Sep 2019 14:04:46 -0000 1.12.2.1 +++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 6 Oct 2023 12:31:05 -0000 1.12.2.2 @@ -4,7 +4,7 @@ @cvs-id $Id$ } { version_id:naturalnum,optional,notnull - { public_p:boolean "" } + { public_p:boolean,notnull "" } path:path,trim source_p:boolean,optional,trim,notnull } -properties { Index: openacs-4/packages/acs-automated-testing/www/admin/clear.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/clear.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-automated-testing/www/admin/clear.tcl 19 Jan 2018 21:23:51 -0000 1.6 +++ openacs-4/packages/acs-automated-testing/www/admin/clear.tcl 6 Oct 2023 12:31:05 -0000 1.6.2.1 @@ -5,7 +5,7 @@ {category:aa_test_category ""} {view_by:aa_test_view_by "package"} {testcase_id:naturalnum,notnull ""} - {quiet:boolean "0"} + {quiet:boolean,notnull 0} } -properties { } Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v diff -u -r1.16.2.20 -r1.16.2.21 --- openacs-4/packages/acs-automated-testing/www/admin/index.tcl 26 Jun 2022 19:28:27 -0000 1.16.2.20 +++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl 6 Oct 2023 12:31:05 -0000 1.16.2.21 @@ -1,13 +1,13 @@ ad_page_contract { @cvs-id $Id$ } { - {quiet:boolean 0} + {quiet:boolean,notnull 0} {by_package_key ""} {by_category:aa_test_category ""} {view_by:aa_test_view_by "package"} - {stress:boolean 0} - {security_risk:boolean 0} - {populator:boolean 0} + {stress:boolean,notnull 0} + {security_risk:boolean,notnull 0} + {populator:boolean,notnull 0} } -properties { context_bar:onevalue server_name:onevalue Index: openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl,v diff -u -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl 24 Apr 2019 10:30:56 -0000 1.8.2.2 +++ openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl 6 Oct 2023 12:31:05 -0000 1.8.2.3 @@ -5,9 +5,9 @@ {category:aa_test_category ""} {view_by:aa_test_view_by "package"} {testcase_id:word,notnull ""} - {quiet:boolean "0"} - {stress:boolean "0"} - {security_risk:boolean "0"} + {quiet:boolean,notnull 0} + {stress:boolean,notnull 0} + {security_risk:boolean,notnull 0} } -properties { } Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl,v diff -u -r1.22.2.8 -r1.22.2.9 --- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 5 Sep 2022 14:48:25 -0000 1.22.2.8 +++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 6 Oct 2023 12:31:05 -0000 1.22.2.9 @@ -3,8 +3,8 @@ } { testcase_id:word,notnull package_key:token - {showsource:boolean 0} - {quiet:boolean 1} + {showsource:boolean,notnull 0} + {quiet:boolean,notnull 1} {return_url:localurl ""} } -properties { context_bar:onevalue Index: openacs-4/packages/acs-content-repository/www/admin/mime-types/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/www/admin/mime-types/index.tcl,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-content-repository/www/admin/mime-types/index.tcl 7 Aug 2017 23:47:47 -0000 1.3 +++ openacs-4/packages/acs-content-repository/www/admin/mime-types/index.tcl 6 Oct 2023 12:31:05 -0000 1.3.2.1 @@ -5,7 +5,7 @@ @cvs-id $Id$ } { - { extension_p:boolean 0 } + { extension_p:boolean,notnull 0 } { orderby:token "mime_type" } } Index: openacs-4/packages/acs-developer-support/www/request-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v diff -u -r1.25.2.6 -r1.25.2.7 --- openacs-4/packages/acs-developer-support/www/request-info.tcl 24 Jul 2023 13:03:57 -0000 1.25.2.6 +++ openacs-4/packages/acs-developer-support/www/request-info.tcl 6 Oct 2023 12:31:05 -0000 1.25.2.7 @@ -1,5 +1,3 @@ -# /packages/acs-developer-support/www/request-info.tcl - ad_page_contract { Displays information about a page request. @@ -8,8 +6,8 @@ @cvs-id $Id$ } { request - {rp_show_debug_p:boolean 0} - {getrow_p:boolean "f"} + {rp_show_debug_p:boolean,notnull 0} + {getrow_p:boolean,notnull "f"} } ds_require_permission [ad_conn package_id] "admin" Index: openacs-4/packages/acs-developer-support/www/set.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/set.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-developer-support/www/set.tcl 22 Jun 2018 10:49:52 -0000 1.6 +++ openacs-4/packages/acs-developer-support/www/set.tcl 6 Oct 2023 12:31:05 -0000 1.6.2.1 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { field - enabled_p:boolean + enabled_p:boolean,notnull {return_url:localurl "."} } Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl,v diff -u -r1.24.2.8 -r1.24.2.9 --- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 3 Aug 2021 11:40:20 -0000 1.24.2.8 +++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl 6 Oct 2023 12:31:05 -0000 1.24.2.9 @@ -13,7 +13,7 @@ package_key:token message_key:token show:word,optional - {usage_p:boolean "f"} + {usage_p:boolean,notnull "f"} {return_url:localurl {}} } Index: openacs-4/packages/acs-lang/www/admin/locale-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-delete.tcl,v diff -u -r1.9.2.2 -r1.9.2.3 --- openacs-4/packages/acs-lang/www/admin/locale-delete.tcl 29 Aug 2022 14:17:23 -0000 1.9.2.2 +++ openacs-4/packages/acs-lang/www/admin/locale-delete.tcl 6 Oct 2023 12:31:05 -0000 1.9.2.3 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { locale:word - confirm_p:boolean,optional + {confirm_p:boolean,optional,notnull 0} } @@ -21,21 +21,13 @@ set page_title "Delete $locale_label" set context [list $page_title] - set form_export_vars [export_vars -form { locale {confirm_p 1} }] - -if { [info exists confirm_p] && $confirm_p ne "" - && [string is true -strict $confirm_p] - } { +if { $confirm_p } { db_transaction { - db_dml delete_messages { delete from lang_messages where locale = :locale } - db_dml delete_audit { delete from lang_messages_audit where locale = :locale } - db_dml delete_locale { delete from ad_locales where locale = :locale } - } ad_returnredirect "." Index: openacs-4/packages/acs-lang/www/admin/locale-set-enabled-p.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-set-enabled-p.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/acs-lang/www/admin/locale-set-enabled-p.tcl 20 Dec 2019 21:47:58 -0000 1.7.2.1 +++ openacs-4/packages/acs-lang/www/admin/locale-set-enabled-p.tcl 6 Oct 2023 12:31:05 -0000 1.7.2.2 @@ -7,7 +7,7 @@ @creation-date 2003-08-08 } { locale:word - enabled_p:boolean + enabled_p:boolean,notnull } lang::system::locale_set_enabled \ Index: openacs-4/packages/acs-lang/www/admin/message-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-delete.tcl,v diff -u -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/acs-lang/www/admin/message-delete.tcl 29 Aug 2022 14:17:23 -0000 1.10.2.2 +++ openacs-4/packages/acs-lang/www/admin/message-delete.tcl 6 Oct 2023 12:31:05 -0000 1.10.2.3 @@ -12,7 +12,7 @@ package_key:token message_key show:optional - confirm_p:boolean,optional + {confirm_p:boolean,optional,notnull 0} } @@ -31,9 +31,7 @@ set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }] -if { [info exists confirm_p] && $confirm_p ne "" - && [string is true -strict $confirm_p] - } { +if { $confirm_p } { lang::message::delete \ -package_key $package_key \ -message_key $message_key \ Index: openacs-4/packages/acs-lang/www/admin/message-undelete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-undelete.tcl,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/acs-lang/www/admin/message-undelete.tcl 29 Aug 2022 14:17:23 -0000 1.1.2.3 +++ openacs-4/packages/acs-lang/www/admin/message-undelete.tcl 6 Oct 2023 12:31:05 -0000 1.1.2.4 @@ -12,7 +12,7 @@ package_key:token message_key show:optional - confirm_p:boolean,optional + {confirm_p:boolean,optional,notnull 0} } @@ -31,9 +31,7 @@ set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }] -if { [info exists confirm_p] && $confirm_p ne "" - && [string is true -strict $confirm_p] - } { +if { $confirm_p } { lang::message::undelete \ -package_key $package_key \ -message_key $message_key \ Index: openacs-4/packages/acs-lang/www/admin/message-unregister.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-unregister.tcl,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/acs-lang/www/admin/message-unregister.tcl 29 Aug 2022 14:17:23 -0000 1.1.2.3 +++ openacs-4/packages/acs-lang/www/admin/message-unregister.tcl 6 Oct 2023 12:31:05 -0000 1.1.2.4 @@ -12,7 +12,7 @@ package_key:token message_key show:optional - confirm_p:boolean,optional + {confirm_p:boolean,optional,notnull 0} } @@ -31,9 +31,7 @@ set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }] -if { [info exists confirm_p] && $confirm_p ne "" - && [string is true -strict $confirm_p] - } { +if { $confirm_p } { lang::message::unregister $package_key $message_key ad_returnredirect [export_vars -base message-list { locale package_key show }] 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 -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl 13 Mar 2019 11:30:21 -0000 1.8.2.1 +++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl 6 Oct 2023 12:36:15 -0000 1.8.2.2 @@ -10,7 +10,7 @@ {node_id:naturalnum,multiple ""} {package_id:naturalnum,multiple ""} {return_url:localurl .} - {confirm_p:boolean 0} + {confirm_p:boolean,notnull 0} } foreach id $package_id { 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 -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/acs-subsite/www/admin/groups/new.tcl 16 May 2019 09:54:29 -0000 1.14.2.1 +++ openacs-4/packages/acs-subsite/www/admin/groups/new.tcl 6 Oct 2023 12:36:15 -0000 1.14.2.2 @@ -8,7 +8,7 @@ } { group_type:notnull - { group_type_exact_p:boolean t } + { group_type_exact_p:boolean,notnull t } { group.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 -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl 16 May 2019 09:54:29 -0000 1.13.2.1 +++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl 6 Oct 2023 12:36:15 -0000 1.13.2.2 @@ -8,7 +8,7 @@ } { party_type:notnull - { party_type_exact_p:boolean t } + { party_type_exact_p:boolean,notnull t } { party_id:naturalnum "" } { party.email ""} { return_url:localurl "" } 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 -r1.17.2.3 -r1.17.2.4 --- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl 3 Jan 2020 15:08:58 -0000 1.17.2.3 +++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl 6 Oct 2023 12:36:15 -0000 1.17.2.4 @@ -10,9 +10,9 @@ group_id:integer,notnull rel_type:notnull { party_id:naturalnum "" } - { exact_p:boolean "f" } + { exact_p:boolean,notnull "f" } { return_url:localurl "" } - { allow_out_of_scope_p:boolean "f" } + { allow_out_of_scope_p:boolean,notnull "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 -r1.18.2.1 -r1.18.2.2 --- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 16 May 2019 09:54:29 -0000 1.18.2.1 +++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 6 Oct 2023 12:36:15 -0000 1.18.2.2 @@ -10,7 +10,7 @@ } { {new_package_id:naturalnum ""} node_id:naturalnum,notnull - {new_node_p:boolean f} + {new_node_p:boolean,notnull f} {node_name:trim ""} {instance_name ""} package_key:token,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 -r1.24.2.2 -r1.24.2.3 --- openacs-4/packages/acs-subsite/www/admin/users/new.tcl 17 Oct 2020 16:41:27 -0000 1.24.2.2 +++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl 6 Oct 2023 12:36:15 -0000 1.24.2.3 @@ -8,7 +8,7 @@ } { { user_type:notnull "user" } - { user_type_exact_p:boolean t } + { user_type_exact_p:boolean,notnull t } { user_id:naturalnum "" } { return_url:localurl "" } {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 -r1.21.2.2 -r1.21.2.3 --- openacs-4/packages/acs-subsite/www/permissions/one.tcl 26 Oct 2022 14:20:35 -0000 1.21.2.2 +++ openacs-4/packages/acs-subsite/www/permissions/one.tcl 6 Oct 2023 12:36:15 -0000 1.21.2.3 @@ -8,10 +8,10 @@ @creation-date 2000-08-20 } { object_id:integer,notnull - {children_p:boolean "f"} - {detail_p:boolean "f"} + {children_p:boolean,notnull "f"} + {detail_p:boolean,notnull "f"} {privs:nohtml ""} - {inherited_permissions_p:boolean "f"} + {inherited_permissions_p:boolean,notnull "f"} {application_url ""} } Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v diff -u -r1.20.2.2 -r1.20.2.3 --- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl 26 Oct 2022 14:20:35 -0000 1.20.2.2 +++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl 6 Oct 2023 12:36:15 -0000 1.20.2.3 @@ -9,7 +9,7 @@ {object_id:integer} {return_url:localurl ""} {privs { read create write delete admin }} - {detailed_permissions_p:boolean f} + {detailed_permissions_p:boolean,notnull f} {user_add_url:localurl ""} } 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 -r1.17.2.1 -r1.17.2.2 --- openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 5 Oct 2019 13:01:38 -0000 1.17.2.1 +++ openacs-4/packages/acs-subsite/www/user/basic-info-update.tcl 6 Oct 2023 12:36:15 -0000 1.17.2.2 @@ -7,7 +7,7 @@ } { {return_url:localurl ""} {user_id:naturalnum ""} - {edit_p:boolean 0} + {edit_p:boolean,notnull 0} {message ""} }