Index: openacs-4/packages/calendar/www/cal-item-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-delete.tcl,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/calendar/www/cal-item-delete.tcl 7 Aug 2017 23:48:05 -0000 1.8 +++ openacs-4/packages/calendar/www/cal-item-delete.tcl 22 Oct 2023 16:30:01 -0000 1.8.2.1 @@ -6,7 +6,7 @@ } { cal_item_id:naturalnum,notnull {return_url:localurl "view"} - {confirm_p:boolean 0} + {confirm_p:boolean,notnull 0} } permission::require_permission -object_id $cal_item_id -privilege delete Index: openacs-4/packages/calendar/www/view-list-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v diff -u -r1.41.2.9 -r1.41.2.10 --- openacs-4/packages/calendar/www/view-list-display.tcl 30 Mar 2023 15:17:01 -0000 1.41.2.9 +++ openacs-4/packages/calendar/www/view-list-display.tcl 22 Oct 2023 16:30:01 -0000 1.41.2.10 @@ -8,7 +8,7 @@ @param export may be "print" } { {period_days:range(1|99999),notnull "[parameter::get -parameter ListView_DefaultPeriodDays -default 31]"} - {show_calendar_name_p:boolean 1} + {show_calendar_name_p:boolean,notnull 1} {sort_by:token "start_date"} {{start_date:clock(%Y-%m-%d|%Y-%m-%d %H:%M|%Y-%m-%d %H:%M:%S)} {[clock format [clock seconds] -format "%Y-%m-%d 00:00:00"]}} {calendar_id_list ""} Index: openacs-4/packages/calendar/www/view-month-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v diff -u -r1.29.2.2 -r1.29.2.3 --- openacs-4/packages/calendar/www/view-month-display.tcl 23 Mar 2023 17:12:41 -0000 1.29.2.2 +++ openacs-4/packages/calendar/www/view-month-display.tcl 22 Oct 2023 16:30:01 -0000 1.29.2.3 @@ -8,7 +8,7 @@ export: may be "print" } { {date ""} - {show_calendar_name_p:boolean 1} + {show_calendar_name_p:boolean,notnull 1} {calendar_id_list ""} {export ""} {return_url:optional} Index: openacs-4/packages/calendar/www/view-print-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-print-display.tcl,v diff -u -r1.2.2.2 -r1.2.2.3 --- openacs-4/packages/calendar/www/view-print-display.tcl 14 Jul 2022 15:45:01 -0000 1.2.2.2 +++ openacs-4/packages/calendar/www/view-print-display.tcl 22 Oct 2023 16:30:01 -0000 1.2.2.3 @@ -9,7 +9,7 @@ } { items - {show_calendar_name_p:boolean true} + {show_calendar_name_p:boolean,notnull true} } # Local variables: Index: openacs-4/packages/calendar/www/view-week-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v diff -u -r1.31 -r1.31.2.1 --- openacs-4/packages/calendar/www/view-week-display.tcl 23 Apr 2018 12:42:01 -0000 1.31 +++ openacs-4/packages/calendar/www/view-week-display.tcl 22 Oct 2023 16:30:01 -0000 1.31.2.1 @@ -8,7 +8,7 @@ export: may be "print" } { {date} - {show_calendar_name_p:boolean 1} + {show_calendar_name_p:boolean,notnull 1} {calendar_id_list ""} {cal_system_type ""} {export ""} Index: openacs-4/packages/dotlrn/www/user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v diff -u -r1.18.2.3 -r1.18.2.4 --- openacs-4/packages/dotlrn/www/user-add-2.tcl 3 Dec 2019 17:15:14 -0000 1.18.2.3 +++ openacs-4/packages/dotlrn/www/user-add-2.tcl 22 Oct 2023 16:30:01 -0000 1.18.2.4 @@ -25,10 +25,10 @@ password:optional {referer "/acs-admin/users"} type - can_browse_p:boolean - read_private_data_p:boolean - dotlrn_interactive_p:boolean - add_membership_p:boolean + can_browse_p:boolean,notnull + read_private_data_p:boolean,notnull + dotlrn_interactive_p:boolean,notnull + add_membership_p:boolean,notnull } -properties { context_bar:onevalue export_vars:onevalue @@ -63,7 +63,7 @@ if {!${dotlrn_interactive_p}} { # make the user a dotLRN user - dotlrn::user_add -type $type -can_browse\=$can_browse_p -user_id $user_id + dotlrn::user_add -type $type -can_browse=$can_browse_p -user_id $user_id } } } Index: openacs-4/packages/dotlrn/www/user-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v diff -u -r1.37 -r1.37.2.1 --- openacs-4/packages/dotlrn/www/user-add.tcl 29 Jun 2018 17:27:19 -0000 1.37 +++ openacs-4/packages/dotlrn/www/user-add.tcl 22 Oct 2023 16:30:01 -0000 1.37.2.1 @@ -24,10 +24,10 @@ @cvs-id $Id$ } -query { {type student} - {can_browse_p:boolean 0} - {read_private_data_p:boolean f} - {add_membership_p:boolean t} - {dotlrn_interactive_p:boolean 0} + {can_browse_p:boolean,notnull 0} + {read_private_data_p:boolean,notnull f} + {add_membership_p:boolean,notnull t} + {dotlrn_interactive_p:boolean,notnull 0} {referer members} } -properties { context_bar:onevalue Index: openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl 10 Oct 2022 09:48:21 -0000 1.8.2.1 +++ openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl 22 Oct 2023 16:30:01 -0000 1.8.2.2 @@ -14,23 +14,21 @@ # details. # -# dotlrn/www/admin/browse-toggle.tcl - ad_page_contract { @author Caroline Meeks (caroline@meekshome.com) @creation-date November 19, 2002 @cvs-id $Id$ } -query { user_id:naturalnum,notnull - can_browse_p:boolean + {can_browse_p:boolean,notnull 0} {referer:localurl "users"} } #Pages in this directory are only runnable by dotlrn-wide admins. dotlrn::require_admin #update can_browse_p -dotlrn::set_can_browse -user_id $user_id -can_browse\=$can_browse_p +dotlrn::set_can_browse -user_id $user_id -can_browse=$can_browse_p # # Flush all permission checks pertaining to this user. Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl 10 Oct 2022 09:48:21 -0000 1.8.2.1 +++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl 22 Oct 2023 16:30:01 -0000 1.8.2.2 @@ -14,15 +14,13 @@ # details. # -# dotlrn/www/admin/site-wide-admin-toggle.tcl - ad_page_contract { @author Caroline Meeks (caroline@meekshome.com) @creation-date November 19, 2002 @cvs-id $Id$ } -query { user_id:naturalnum,notnull - guest_p:boolean + {guest_p:boolean,notnull 0} {referer:localurl "users"} } Index: openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl 10 Aug 2019 18:27:03 -0000 1.5.2.2 +++ openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl 22 Oct 2023 16:30:01 -0000 1.5.2.3 @@ -1,15 +1,13 @@ -# /packages/evaluation/www/admin/grades/distribution-edit-2.tcl - ad_page_contract { Bulk edit a set tasks } { grade_id:naturalnum,notnull no_grade:array weights:array {weight_sum "0"} - {points_p:boolean "0"} + {points_p:boolean,notnull 0} {info ""} - {relative_p:boolean 0} + {relative_p:boolean,notnull 0} } -validate { valid_weights { db_1row grade_info { *SQL* } Index: openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl,v diff -u -r1.22 -r1.22.2.1 --- openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl 7 Aug 2017 23:48:10 -0000 1.22 +++ openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl 22 Oct 2023 16:30:01 -0000 1.22.2.1 @@ -16,7 +16,7 @@ {solution_mode "edit"} grade_id:naturalnum,notnull return_url:localurl - {attached_p:boolean "f"} + {attached_p:boolean,notnull f} } set package_id [ad_conn package_id] Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl,v diff -u -r1.35.2.2 -r1.35.2.3 --- openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl 23 Mar 2023 17:22:30 -0000 1.35.2.2 +++ openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl 22 Oct 2023 16:30:01 -0000 1.35.2.3 @@ -1,5 +1,3 @@ -# /packages/evaluation/www/admin/tasks/task-add-edit.tcl - ad_page_contract { Page for editing and adding tasks. @@ -16,7 +14,7 @@ return_url:localurl admin_groups_p:boolean,optional {add_to_more_classes_p:boolean ""} - {attached_p:boolean "f"} + {attached_p:boolean,notnull "f"} {enable 1} {return_p:boolean ""} {simple_p:boolean ""} Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl,v diff -u -r1.12 -r1.12.2.1 --- openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl 7 Aug 2017 23:48:10 -0000 1.12 +++ openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl 22 Oct 2023 16:30:01 -0000 1.12.2.1 @@ -11,7 +11,7 @@ task_id:naturalnum,notnull communities_packages_ids:array,optional item_ids:array,optional - {redirect_to_groups_p:boolean 0} + {redirect_to_groups_p:boolean,notnull 0} foo:optional } Index: openacs-4/packages/file-storage/www/copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v diff -u -r1.11.2.7 -r1.11.2.8 --- openacs-4/packages/file-storage/www/copy.tcl 27 Jan 2022 09:23:59 -0000 1.11.2.7 +++ openacs-4/packages/file-storage/www/copy.tcl 22 Oct 2023 16:30:01 -0000 1.11.2.8 @@ -11,8 +11,8 @@ folder_id:naturalnum,optional {return_url:localurl ""} {root_folder_id:integer ""} - {redirect_to_folder:boolean 0} - {show_items:boolean 0} + {redirect_to_folder:boolean,notnull 0} + {show_items:boolean,notnull 0} } -errors {object_id:,notnull,integer,multiple {Please select at least one item to copy.} } Index: openacs-4/packages/file-storage/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v diff -u -r1.28.2.8 -r1.28.2.9 --- openacs-4/packages/file-storage/www/file-add.tcl 27 Jan 2023 11:59:05 -0000 1.28.2.8 +++ openacs-4/packages/file-storage/www/file-add.tcl 22 Oct 2023 16:30:01 -0000 1.28.2.9 @@ -12,7 +12,7 @@ upload_file.tmpfile:tmpfile,optional content_body:optional {title ""} - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} {name ""} } -properties { Index: openacs-4/packages/file-storage/www/folder-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-add.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/file-storage/www/folder-add.tcl 21 Jul 2020 14:06:40 -0000 1.9.2.1 +++ openacs-4/packages/file-storage/www/folder-add.tcl 22 Oct 2023 16:30:01 -0000 1.9.2.2 @@ -8,7 +8,7 @@ folder_id:naturalnum,optional,notnull upload_folder:trim,optional return_url:localurl,optional - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} } -properties { folder_id:onevalue Index: openacs-4/packages/file-storage/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v diff -u -r1.61.2.19 -r1.61.2.20 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 25 Sep 2023 15:44:00 -0000 1.61.2.19 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 22 Oct 2023 16:30:01 -0000 1.61.2.20 @@ -5,7 +5,7 @@ } { orderby:token,optional {folder_id:integer ""} - {allow_bulk_actions:boolean true} + {allow_bulk_actions:boolean,notnull true} {category_id:integer ""} {n_past_days:naturalnum ""} {fs_url:localurl "[ad_conn package_url]"} Index: openacs-4/packages/file-storage/www/folder-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v diff -u -r1.17.2.5 -r1.17.2.6 --- openacs-4/packages/file-storage/www/folder-delete.tcl 7 Feb 2022 14:47:25 -0000 1.17.2.5 +++ openacs-4/packages/file-storage/www/folder-delete.tcl 22 Oct 2023 16:30:01 -0000 1.17.2.6 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { folder_id:naturalnum,notnull - {confirmed_p:boolean "f"} + {confirmed_p:boolean,notnull "f"} } -validate { valid_folder -requires {folder_id:integer} { if {![fs_folder_p $folder_id]} { Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v diff -u -r1.11.2.11 -r1.11.2.12 --- openacs-4/packages/file-storage/www/folder-zip-add.tcl 27 Nov 2022 10:52:26 -0000 1.11.2.11 +++ openacs-4/packages/file-storage/www/folder-zip-add.tcl 22 Oct 2023 16:30:01 -0000 1.11.2.12 @@ -14,7 +14,7 @@ {return_url:localurl ""} upload_file.tmpfile:tmpfile,optional {title ""} - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} } -properties { Index: openacs-4/packages/file-storage/www/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v diff -u -r1.12.2.5 -r1.12.2.6 --- openacs-4/packages/file-storage/www/move.tcl 27 Jan 2022 09:23:59 -0000 1.12.2.5 +++ openacs-4/packages/file-storage/www/move.tcl 22 Oct 2023 16:30:01 -0000 1.12.2.6 @@ -11,8 +11,8 @@ folder_id:naturalnum,optional {return_url:localurl ""} {root_folder_id:integer ""} - {redirect_to_folder:boolean 0} - {show_items:boolean 0} + {redirect_to_folder:boolean,notnull 0} + {show_items:boolean,notnull 0} } -errors {object_id:,notnull,integer,multiple {Please select at least one item to move.} } Index: openacs-4/packages/file-storage/www/simple-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v diff -u -r1.17.2.7 -r1.17.2.8 --- openacs-4/packages/file-storage/www/simple-add.tcl 3 Oct 2023 14:07:09 -0000 1.17.2.7 +++ openacs-4/packages/file-storage/www/simple-add.tcl 22 Oct 2023 16:30:01 -0000 1.17.2.8 @@ -11,7 +11,7 @@ {title:printable ""} {description:printable ""} {url:printable ""} - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} } -validate { valid_folder -requires {folder_id:integer} { if {![fs_folder_p $folder_id]} { Index: openacs-4/packages/file-storage/www/version-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.tcl,v diff -u -r1.17.2.2 -r1.17.2.3 --- openacs-4/packages/file-storage/www/version-delete.tcl 18 Feb 2022 09:58:48 -0000 1.17.2.2 +++ openacs-4/packages/file-storage/www/version-delete.tcl 22 Oct 2023 16:30:01 -0000 1.17.2.3 @@ -6,7 +6,7 @@ @cvs-id $Id$ } { version_id:naturalnum,notnull - {confirmed_p:boolean "f"} + {confirmed_p:boolean,notnull "f"} } -validate { valid_version -requires {version_id} { if {![fs_version_p $version_id]} { Index: openacs-4/packages/rss-support/www/delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete-2.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/rss-support/www/delete-2.tcl 7 Aug 2017 23:48:29 -0000 1.6 +++ openacs-4/packages/rss-support/www/delete-2.tcl 22 Oct 2023 16:30:02 -0000 1.6.2.1 @@ -3,12 +3,12 @@ } { subscr_id:notnull,naturalnum return_url:localurl,notnull - delete_file_p:boolean,optional + {delete_file_p:boolean,optional,notnull 0} } permission::require_permission -object_id $subscr_id -privilege admin -if {[info exists delete_file_p]} { +if {$delete_file_p} { file delete -- [rss_gen_report_file -subscr_id $subscr_id] } Index: openacs-4/packages/survey/www/admin/question-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-2.tcl,v diff -u -r1.8.4.3 -r1.8.4.4 --- openacs-4/packages/survey/www/admin/question-add-2.tcl 2 Sep 2021 16:41:02 -0000 1.8.4.3 +++ openacs-4/packages/survey/www/admin/question-add-2.tcl 22 Oct 2023 16:30:00 -0000 1.8.4.4 @@ -22,8 +22,8 @@ question_text:html,notnull presentation_type {after:integer ""} - {required_p:boolean t} - {active_p:boolean t} + {required_p:boolean,notnull t} + {active_p:boolean,notnull t} {n_responses ""} } Index: openacs-4/packages/survey/www/admin/question-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-3.tcl,v diff -u -r1.9.4.3 -r1.9.4.4 --- openacs-4/packages/survey/www/admin/question-add-3.tcl 26 Jul 2023 16:38:07 -0000 1.9.4.3 +++ openacs-4/packages/survey/www/admin/question-add-3.tcl 22 Oct 2023 16:30:01 -0000 1.9.4.4 @@ -30,8 +30,8 @@ {valid_responses ""} {textbox_size ""} {textarea_size "medium"} - {required_p:boolean t} - {active_p:boolean t} + {required_p:boolean,notnull t} + {active_p:boolean,notnull t} {responses:multiple ""} {scores:multiple,array,integer ""} {n_variables:integer ""} Index: openacs-4/packages/survey/www/admin/responses-export.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses-export.tcl,v diff -u -r1.13.4.3 -r1.13.4.4 --- openacs-4/packages/survey/www/admin/responses-export.tcl 9 Feb 2020 16:10:31 -0000 1.13.4.3 +++ openacs-4/packages/survey/www/admin/responses-export.tcl 22 Oct 2023 16:30:01 -0000 1.13.4.4 @@ -10,10 +10,10 @@ } { survey_id:naturalnum,notnull - {unique_users_p:boolean f} + {unique_users_p:boolean,notnull f} on_what_id:naturalnum,optional - {start:naturalnum 1} - {end:naturalnum 10000} + {start:naturalnum,notnull 1} + {end:naturalnum,notnull 10000} } set csv_export "" set package_id [ad_conn package_id] Index: openacs-4/packages/survey/www/admin/survey-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-toggle.tcl,v diff -u -r1.5.4.2 -r1.5.4.3 --- openacs-4/packages/survey/www/admin/survey-toggle.tcl 9 Feb 2020 16:24:14 -0000 1.5.4.2 +++ openacs-4/packages/survey/www/admin/survey-toggle.tcl 22 Oct 2023 16:30:01 -0000 1.5.4.3 @@ -11,17 +11,13 @@ @cvs-id $Id$ } { survey_id:naturalnum,notnull - enabled_p:boolean + {enabled_p:boolean,notnull "f"} {target "./"} } permission::require_permission -object_id $survey_id -privilege survey_admin_survey -if {$enabled_p == "f"} { - set enabled_p "t" -} else { - set enabled_p "f" -} +set enabled_p [expr {$enabled_p ? "f" : "t"}] db_dml survey_active_toggle "" Index: openacs-4/packages/attachments/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/attachments/www/file-add.tcl 7 Aug 2017 23:48:04 -0000 1.9 +++ openacs-4/packages/attachments/www/file-add.tcl 22 Oct 2023 16:33:55 -0000 1.9.2.1 @@ -10,7 +10,7 @@ return_url:localurl,notnull pretty_object_name:notnull {title ""} - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} } -validate { valid_folder -requires {folder_id:integer} { if {![fs_folder_p $folder_id]} { Index: openacs-4/packages/attachments/www/simple-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.tcl,v diff -u -r1.12 -r1.12.2.1 --- openacs-4/packages/attachments/www/simple-add.tcl 7 Aug 2017 23:48:04 -0000 1.12 +++ openacs-4/packages/attachments/www/simple-add.tcl 22 Oct 2023 16:33:55 -0000 1.12.2.1 @@ -12,7 +12,7 @@ pretty_object_name:notnull {type "fs_url"} {title ""} - {lock_title_p:boolean 0} + {lock_title_p:boolean,notnull 0} } -validate { valid_folder -requires {folder_id:integer} { if {![fs_folder_p $folder_id]} { Index: openacs-4/packages/calendar/www/view-one-day-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v diff -u -r1.46.2.1 -r1.46.2.2 --- openacs-4/packages/calendar/www/view-one-day-display.tcl 30 Jan 2023 17:38:11 -0000 1.46.2.1 +++ openacs-4/packages/calendar/www/view-one-day-display.tcl 22 Oct 2023 16:33:55 -0000 1.46.2.2 @@ -10,9 +10,9 @@ export: may be "print" } { {date} - {show_calendar_name_p:boolean 1} - {start_display_hour:integer 0} - {end_display_hour:integer 23} + {show_calendar_name_p:boolean,notnull 1} + {start_display_hour:integer,notnull 0} + {end_display_hour:integer,notnull 23} {calendar_id_list ""} {cal_system_type ""} {export ""} Index: openacs-4/packages/categories/www/categories-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v diff -u -r1.14.2.4 -r1.14.2.5 --- openacs-4/packages/categories/www/categories-browse.tcl 10 Mar 2021 13:21:39 -0000 1.14.2.4 +++ openacs-4/packages/categories/www/categories-browse.tcl 22 Oct 2023 16:37:51 -0000 1.14.2.5 @@ -9,9 +9,9 @@ } { tree_ids:integer,multiple {category_ids:integer,multiple,optional ""} - {page:integer,optional 1} + {page:integer,optional,notnull 1} {orderby:token,optional object_name} - {subtree_p:boolean,optional f} + {subtree_p:boolean,optional,notnull f} {letter:optional all} {join:optional or} {package_id:naturalnum,optional ""} Index: openacs-4/packages/categories/www/cadmin/tree-map-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map-2.tcl,v diff -u -r1.12.2.1 -r1.12.2.2 --- openacs-4/packages/categories/www/cadmin/tree-map-2.tcl 20 Dec 2019 21:18:10 -0000 1.12.2.1 +++ openacs-4/packages/categories/www/cadmin/tree-map-2.tcl 22 Oct 2023 16:37:51 -0000 1.12.2.2 @@ -13,7 +13,7 @@ {category_id:naturalnum,optional ""} {locale:word ""} object_id:naturalnum,notnull - {edit_p:boolean 0} + {edit_p:boolean,notnull 0} ctx_id:naturalnum,optional }