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 -r1.8.2.2 -r1.8.2.3 --- openacs-4/packages/acs-admin/www/send-email.tcl 1 Sep 2021 09:14:34 -0000 1.8.2.2 +++ openacs-4/packages/acs-admin/www/send-email.tcl 6 Oct 2023 12:09:19 -0000 1.8.2.3 @@ -10,7 +10,7 @@ subject message return_url:localurl - {show_sent_message_p:boolean "f"} + {show_sent_message_p:boolean,notnull "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 -r1.30.2.7 -r1.30.2.8 --- openacs-4/packages/acs-admin/www/apm/index.tcl 28 Mar 2023 14:01:32 -0000 1.30.2.7 +++ openacs-4/packages/acs-admin/www/apm/index.tcl 6 Oct 2023 12:09:19 -0000 1.30.2.8 @@ -6,10 +6,10 @@ @author Jon Salz (jsalz@arsdigita.com) @cvs-id $Id$ } { - { orderby:token "package_key" } - { owned_by:word "everyone" } - { supertype "all" } - { reload_links_p:boolean 0 } + { orderby:token,notnull "package_key" } + { owned_by:word,notnull "everyone" } + { supertype:notnull "all" } + { reload_links_p:boolean,notnull 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 -r1.18.2.1 -r1.18.2.2 --- openacs-4/packages/acs-admin/www/apm/package-add-2.tcl 14 Feb 2019 16:15:00 -0000 1.18.2.1 +++ openacs-4/packages/acs-admin/www/apm/package-add-2.tcl 6 Oct 2023 12:09:19 -0000 1.18.2.2 @@ -8,11 +8,11 @@ package_key:token pretty_name pretty_plural - { package_type "apm_application"} - { initial_install_p:boolean "f" } - { singleton_p:boolean "f" } - { implements_subsite_p:boolean f } - { inherit_templates_p:boolean t } + { package_type:notnull "apm_application"} + { initial_install_p:boolean,notnull "f" } + { singleton_p:boolean,notnull "f" } + { implements_subsite_p:boolean,notnull f } + { inherit_templates_p:boolean,notnull t } { auto_mount "" } package_uri version_name @@ -26,9 +26,9 @@ { owner_uri:multiple} { vendor ""} { vendor_uri ""} - { install_p:boolean 0 } - {implements_subsite_p:boolean "f"} - {inherit_templates_p:boolean "f"} + { install_p:boolean,notnull 0 } + {implements_subsite_p:boolean,notnull "f"} + {inherit_templates_p:boolean,notnull "f"} } -validate { package_key_format -requires {package_key} { if { [regexp {[^a-z0-9-]} $package_key] } { Index: openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl 15 Nov 2021 17:28:05 -0000 1.9.2.1 +++ openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl 6 Oct 2023 12:09:19 -0000 1.9.2.2 @@ -6,8 +6,8 @@ @creation-date Fri Oct 13 08:42:50 2000 @cvs-id $Id$ } { - version_id:naturalnum - {remove_files:boolean 0} + version_id:naturalnum,notnull + {remove_files:boolean,notnull 0} {sql_drop_scripts:multiple ""} } Index: openacs-4/packages/acs-admin/www/apm/package-load-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-load-2.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-admin/www/apm/package-load-2.tcl 7 Aug 2017 23:47:45 -0000 1.6 +++ openacs-4/packages/acs-admin/www/apm/package-load-2.tcl 6 Oct 2023 12:09:19 -0000 1.6.2.1 @@ -9,7 +9,7 @@ } { {url ""} {file_path ""} - {delete:boolean 0} + {delete:boolean,notnull 0} } -validate { url_xor_file_path { Index: openacs-4/packages/acs-admin/www/apm/packages-install-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install-2.tcl,v diff -u -r1.17.2.3 -r1.17.2.4 --- openacs-4/packages/acs-admin/www/apm/packages-install-2.tcl 24 Sep 2019 08:55:14 -0000 1.17.2.3 +++ openacs-4/packages/acs-admin/www/apm/packages-install-2.tcl 6 Oct 2023 12:09:19 -0000 1.17.2.4 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { {package_key:token,multiple ""} - {force_p:boolean "f"} + {force_p:boolean,notnull "f"} } set title "Package Installation" Index: openacs-4/packages/acs-admin/www/apm/packages-install.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install.tcl,v diff -u -r1.28.2.5 -r1.28.2.6 --- openacs-4/packages/acs-admin/www/apm/packages-install.tcl 13 May 2020 19:29:28 -0000 1.28.2.5 +++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl 6 Oct 2023 12:09:19 -0000 1.28.2.6 @@ -6,8 +6,8 @@ @cvs-id $Id$ } { - {checked_by_default_p:boolean 0} - {operation:word all} + {checked_by_default_p:boolean,notnull 0} + {operation:word,notnull all} } set title "Package Installation" 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 -r1.16.2.2 -r1.16.2.3 --- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 28 Mar 2023 12:58:22 -0000 1.16.2.2 +++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl 6 Oct 2023 12:09:19 -0000 1.16.2.3 @@ -17,7 +17,7 @@ vendor_uri {auto_mount ""} {release_date ""} - { upgrade_p:boolean 0 } + { upgrade_p:boolean,notnull 0 } } # Validate dynamic package version attributes 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 -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 19 Jan 2018 21:23:51 -0000 1.7 +++ openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 6 Oct 2023 12:09:19 -0000 1.7.2.1 @@ -8,7 +8,7 @@ @cvs-id $Id$ } { {version_id:naturalnum,notnull} - {write_p:boolean 0} + {write_p:boolean,notnull 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 -r1.23.2.1 -r1.23.2.2 --- openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl 13 Mar 2019 09:50:36 -0000 1.23.2.1 +++ openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl 6 Oct 2023 12:09:19 -0000 1.23.2.2 @@ -9,8 +9,8 @@ {files:multiple,notnull} {file_action:multiple} {number_of_keys:integer,notnull ""} - {replace_p:boolean,array ""} - {message_keys:array ""} + {replace_p:boolean,array,notnull ""} + {message_keys:array,notnull ""} 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 -r1.15.2.4 -r1.15.2.5 --- openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 22 Nov 2019 16:34:21 -0000 1.15.2.4 +++ openacs-4/packages/acs-admin/www/apm/version-i18n.tcl 6 Oct 2023 12:09:19 -0000 1.15.2.5 @@ -7,10 +7,10 @@ @cvs-id $Id$ } { version_id:naturalnum,notnull - {pre_select_files_p:boolean "1"} - {show_status_p:boolean "0"} - {only_text_p:boolean "0"} - {file_type adp} + {pre_select_files_p:boolean,notnull 1} + {show_status_p:boolean,notnull 0} + {only_text_p:boolean,notnull 0} + {file_type:word,notnull adp} } db_1row package_version_info { Index: openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl 21 Dec 2018 10:57:48 -0000 1.7 +++ openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl 6 Oct 2023 12:09:19 -0000 1.7.2.1 @@ -7,7 +7,7 @@ @creation-date 2003-09-09 } { {authority_id:naturalnum,notnull} - {enabled_p:boolean} + {enabled_p:boolean,notnull} } -validate { authority_exists -requires {authority_id:naturalnum} { if {![db_0or1row dbqd...check_authority_id {select authority_id from auth_authorities where authority_id = :authority_id}]} { 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.4 -r1.17.2.5 --- openacs-4/packages/acs-admin/www/auth/batch-job.tcl 26 Sep 2020 10:58:11 -0000 1.17.2.4 +++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl 6 Oct 2023 12:09:19 -0000 1.17.2.5 @@ -6,7 +6,7 @@ } { job_id:naturalnum,notnull page:naturalnum,optional - success_p:boolean,optional + success_p:boolean,optional,notnull } auth::sync::job::get -job_id $job_id -array batch_job 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 -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/acs-admin/www/install/install-4.tcl 3 Jul 2020 07:43:20 -0000 1.6.2.1 +++ openacs-4/packages/acs-admin/www/install/install-4.tcl 6 Oct 2023 12:09:19 -0000 1.6.2.2 @@ -2,7 +2,7 @@ Install from local filesystem } { {repository_url ""} - {success_p:boolean 0} + {success_p:boolean,notnull 0} } if { $repository_url ne "" } { Index: openacs-4/packages/acs-admin/www/install/install.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install.tcl,v diff -u -r1.13.2.4 -r1.13.2.5 --- openacs-4/packages/acs-admin/www/install/install.tcl 8 Mar 2023 17:03:48 -0000 1.13.2.4 +++ openacs-4/packages/acs-admin/www/install/install.tcl 6 Oct 2023 12:09:19 -0000 1.13.2.5 @@ -2,7 +2,7 @@ Install from local filesystem } { {package_type:token ""} - {upgrade_p:boolean 0} + {upgrade_p:boolean,notnull 0} {repository_url "https://openacs.org/repository/"} {channel:token ""} {maturity:naturalnum ""} 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 -r1.21.2.3 -r1.21.2.4 --- openacs-4/packages/acs-admin/www/users/complex-search.tcl 24 Jul 2023 13:02:18 -0000 1.21.2.3 +++ openacs-4/packages/acs-admin/www/users/complex-search.tcl 6 Oct 2023 12:09:19 -0000 1.21.2.4 @@ -37,8 +37,8 @@ {target ""} {passthrough ""} {limit_to_users_in_group_id:integer ""} - {only_authorized_p:boolean 1} - {only_needs_approval_p:boolean 0} + {only_authorized_p:boolean,notnull 1} + {only_needs_approval_p:boolean,notnull 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/delete-user.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/delete-user.tcl,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-admin/www/users/delete-user.tcl 19 Jan 2018 13:40:40 -0000 1.4 +++ openacs-4/packages/acs-admin/www/users/delete-user.tcl 6 Oct 2023 12:09:19 -0000 1.4.2.1 @@ -7,7 +7,7 @@ } { user_id:naturalnum,notnull {return_url:localurl .} - {permanent:boolean f} + {permanent:boolean,notnull f} } set site_wide_admin_p [acs_user::site_wide_admin_p -user_id [ad_conn user_id]] 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 -r1.23.2.6 -r1.23.2.7 --- openacs-4/packages/acs-admin/www/users/member-state-change.tcl 3 Jul 2020 07:43:20 -0000 1.23.2.6 +++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl 6 Oct 2023 12:09:19 -0000 1.23.2.7 @@ -11,7 +11,7 @@ {member_state:trim} {email_verified_p:boolean ""} {return_url:localurl ""} - {pass_through:boolean false} + {pass_through:boolean,notnull false} } -validate { valid_member_state -requires member_state { if {$member_state ni {approved banned deleted merged "needs approval" rejected}} { @@ -40,6 +40,9 @@ set email [dict get $user_info email] set rel_id [dict get $user_info rel_id] +if {$email_verified ne ""} { + set email_verified [expr {[string is true -strict] ? "t" : "f"}] +} # # This page is used for state changes in the member_state, and as well # on email confirm require and approve operations. 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 -r1.9 -r1.9.2.1 --- openacs-4/packages/acs-admin/www/users/merge-final.tcl 25 Apr 2018 08:49:03 -0000 1.9 +++ openacs-4/packages/acs-admin/www/users/merge-final.tcl 6 Oct 2023 12:09:19 -0000 1.9.2.1 @@ -7,7 +7,7 @@ } { to_user_id:naturalnum,notnull from_user_id:naturalnum,notnull - merge_p:boolean + merge_p:boolean,notnull } -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 -r1.9 -r1.9.2.1 --- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 23 Jun 2018 16:30:58 -0000 1.9 +++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 6 Oct 2023 12:09:19 -0000 1.9.2.1 @@ -7,7 +7,7 @@ } { user_id:naturalnum,notnull,verify action:notnull,verify - {confirmed_p:boolean 0} + {confirmed_p:boolean,notnull 0} } set confirmed_url [export_vars -base /acs-admin/users/modify-admin-privileges { 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 -r1.10.2.5 -r1.10.2.6 --- openacs-4/packages/acs-admin/www/users/search.tcl 24 Jul 2023 13:02:18 -0000 1.10.2.5 +++ openacs-4/packages/acs-admin/www/users/search.tcl 6 Oct 2023 12:09:20 -0000 1.10.2.6 @@ -24,7 +24,7 @@ target {passthrough ""} {limit_to_users_in_group_id:naturalnum ""} - {only_authorized_p:boolean 1} + {only_authorized_p:boolean,notnull 1} {limit_to_user_id:naturalnum,multiple ""} {from_user_id:naturalnum ""} } -properties { Index: openacs-4/packages/xotcl-core/www/cache.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/cache.tcl,v diff -u -r1.8.2.3 -r1.8.2.4 --- openacs-4/packages/xotcl-core/www/cache.tcl 17 Jan 2022 09:33:01 -0000 1.8.2.3 +++ openacs-4/packages/xotcl-core/www/cache.tcl 6 Oct 2023 12:09:20 -0000 1.8.2.4 @@ -1,12 +1,12 @@ ad_page_contract { Cache Viewer } { - {cache:optional 0} - {item:token,optional 0} - {flush:boolean,optional 0} + {cache:optional,notnull 0} + {item:token,optional,notnull 0} + {flush:boolean,optional,notnull 0} {filter ""} - {flushall:boolean,optional 0} - {flushallcaches:optional,boolean 0} + {flushall:boolean,optional,notnull 0} + {flushallcaches:optional,boolean,notnull 0} } -properties { title:onevalue context:onevalue Index: openacs-4/packages/xotcl-core/www/show-class-graph.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-class-graph.tcl,v diff -u -r1.12.2.6 -r1.12.2.7 --- openacs-4/packages/xotcl-core/www/show-class-graph.tcl 26 Nov 2022 17:00:30 -0000 1.12.2.6 +++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl 6 Oct 2023 12:09:20 -0000 1.12.2.7 @@ -4,11 +4,11 @@ @author Gustaf Neumann @cvs-id $Id$ } -query { - {classes:token} - {documented_only:boolean 1} - {with_children:boolean 0} - {dpi:integer 96} - {format:word png} + {classes:token,notnull} + {documented_only:boolean,notnull 1} + {with_children:boolean,notnull 0} + {dpi:integer,notnull 96} + {format:word,notnull png} }