Index: openacs-4/packages/faq/www/admin/q-and-a-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/Attic/q-and-a-new-2.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/faq/www/admin/q-and-a-new-2.tcl	8 Aug 2022 12:56:06 -0000	1.1.2.2
+++ openacs-4/packages/faq/www/admin/q-and-a-new-2.tcl	11 Oct 2023 12:03:33 -0000	1.1.2.3
@@ -1,7 +1,7 @@
 #faq/www/admin/q-and-a-new-2.tcl
 
 ad_page_contract {
-    
+
     Adds a new Q&A to a FAQ
 
     @author wirth@ybos.net
@@ -12,8 +12,8 @@
     question:html,notnull,trim
     answer:html,notnull,trim
     entry_id:object_id,optional
-    insert_p:boolean,optional
- 
+    {insert_p:boolean,optional,notnull 0}
+
 }
 
 set package_id [ad_conn package_id]
@@ -23,16 +23,14 @@
 set user_id [ad_conn user_id]
 set creation_ip [ad_conn host]
 
-if {$insert_p == "t" } {
+if {$insert_p} {
 
-  
-
- # this q+a being added after an existing question
- # make room - then do the insert 
+    # this q+a being added after an existing question
+    # make room - then do the insert
     set last_entry_id $entry_id
- 
+
     db_transaction {
-    set old_sort_key [db_string faq_sortkey_get "select sort_key 
+    set old_sort_key [db_string faq_sortkey_get "select sort_key
     from faq_q_and_as
     where entry_id = :last_entry_id"]
 
@@ -42,14 +40,14 @@
     where sort_key > :old_sort_key"
 
     db_dml faq_update $sql_update_q_and_as
-    
+
     set sort_key [expr {$old_sort_key + 1}]
-    
+
     set entry_id [db_nextval acs_object_id_seq]
     }
 
 } else {
-    
+
     db_transaction {
     set entry_id [db_nextval acs_object_id_seq]
     set sort_key $entry_id
@@ -63,10 +61,10 @@
             :1 := faq.new_q_and_a (
                 entry_id => :entry_id,
                 context_id => :faq_id,
-		faq_id=> :faq_id,
+                faq_id=> :faq_id,
                 question => :question,
                 answer => :answer,
-		sort_key => :sort_key,
+                sort_key => :sort_key,
                 creation_user => :user_id,
                 creation_ip => :creation_ip
             );
Index: openacs-4/packages/forums/www/admin/subscribe-others-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/subscribe-others-2.tcl,v
diff -u -N -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/forums/www/admin/subscribe-others-2.tcl	30 Aug 2022 13:08:30 -0000	1.11.2.4
+++ openacs-4/packages/forums/www/admin/subscribe-others-2.tcl	11 Oct 2023 12:03:33 -0000	1.11.2.5
@@ -15,7 +15,7 @@
     delivery_method:object_type(notification_delivery_method),notnull
     {emails ""}
     {subscriber_ids:object_type(user),multiple}
-    {create_new_users_p:boolean "f"}
+    {create_new_users_p:boolean,notnull "f"}
 }
 
 # Select the info
Index: openacs-4/packages/forums/www/admin/subscribe-others.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/subscribe-others.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/forums/www/admin/subscribe-others.tcl	30 Aug 2022 13:08:30 -0000	1.6.2.2
+++ openacs-4/packages/forums/www/admin/subscribe-others.tcl	11 Oct 2023 12:03:33 -0000	1.6.2.3
@@ -8,7 +8,7 @@
 
 } {
     forum_id:object_type(forums_forum),notnull
-    {return_url:localurl "."}
+    {return_url:localurl,notnull "."}
 }
 
 # Select the info
Index: openacs-4/packages/forums/www/moderate/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-delete.tcl,v
diff -u -N -r1.18.2.3 -r1.18.2.4
--- openacs-4/packages/forums/www/moderate/message-delete.tcl	30 Aug 2022 13:08:30 -0000	1.18.2.3
+++ openacs-4/packages/forums/www/moderate/message-delete.tcl	11 Oct 2023 12:03:33 -0000	1.18.2.4
@@ -9,7 +9,7 @@
 } {
     message_id:object_type(forums_message),verify,notnull
     {return_url:localurl "../message-view"}
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 #
Index: openacs-4/packages/forums/www/moderate/message-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-move.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/forums/www/moderate/message-move.tcl	15 Jul 2022 16:19:56 -0000	1.5.2.1
+++ openacs-4/packages/forums/www/moderate/message-move.tcl	11 Oct 2023 12:03:33 -0000	1.5.2.2
@@ -8,7 +8,7 @@
 } {
     message_id:object_type(forums_message)
     {return_url:localurl "../message-view"}
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 # Select the stuff
Index: openacs-4/packages/forums/www/moderate/move-thread-thread.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move-thread-thread.tcl,v
diff -u -N -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/forums/www/moderate/move-thread-thread.tcl	30 Aug 2022 13:08:30 -0000	1.9.2.2
+++ openacs-4/packages/forums/www/moderate/move-thread-thread.tcl	11 Oct 2023 12:03:33 -0000	1.9.2.3
@@ -8,7 +8,7 @@
 } {
     msg_id:object_type(forums_message),notnull
     selected_message:object_type(forums_message),notnull
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 set table_border_color [parameter::get -parameter table_border_color]
Index: openacs-4/packages/forums/www/moderate/move-thread.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move-thread.tcl,v
diff -u -N -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/forums/www/moderate/move-thread.tcl	30 Aug 2022 13:08:30 -0000	1.10.2.2
+++ openacs-4/packages/forums/www/moderate/move-thread.tcl	11 Oct 2023 12:03:33 -0000	1.10.2.3
@@ -8,7 +8,7 @@
 } {
     msg_id:object_type(forums_message),notnull
     selected_message:object_type(forums_message),notnull
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 set table_border_color [parameter::get -parameter table_border_color]
Index: openacs-4/packages/forums/www/moderate/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move.tcl,v
diff -u -N -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/forums/www/moderate/move.tcl	30 Aug 2022 13:08:30 -0000	1.10.2.2
+++ openacs-4/packages/forums/www/moderate/move.tcl	11 Oct 2023 12:03:33 -0000	1.10.2.3
@@ -8,7 +8,7 @@
 } {
     message_id:object_type(forums_message),notnull
     selected_forum:object_type(forums_forum),notnull
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 set table_border_color [parameter::get -parameter table_border_color]
Index: openacs-4/packages/forums/www/moderate/thread-move-thread.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/thread-move-thread.tcl,v
diff -u -N -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/forums/www/moderate/thread-move-thread.tcl	30 Aug 2022 13:08:30 -0000	1.5.2.2
+++ openacs-4/packages/forums/www/moderate/thread-move-thread.tcl	11 Oct 2023 12:03:33 -0000	1.5.2.3
@@ -8,7 +8,7 @@
 } {
     message_id:object_type(forums_message),notnull
     {return_url:localurl "../message-view"}
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 # Select the stuff
Index: openacs-4/packages/forums/www/moderate/thread-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/thread-move.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/forums/www/moderate/thread-move.tcl	30 Aug 2022 13:08:30 -0000	1.6.2.2
+++ openacs-4/packages/forums/www/moderate/thread-move.tcl	11 Oct 2023 12:03:33 -0000	1.6.2.3
@@ -8,7 +8,7 @@
 } {
     message_id:object_type(forums_message),notnull
     {return_url:localurl "../message-view"}
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 # Select the stuff
Index: openacs-4/packages/general-comments/www/comment-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-3.tcl,v
diff -u -N -r1.13.2.7 -r1.13.2.8
--- openacs-4/packages/general-comments/www/comment-add-3.tcl	29 Apr 2022 08:02:11 -0000	1.13.2.7
+++ openacs-4/packages/general-comments/www/comment-add-3.tcl	11 Oct 2023 12:03:33 -0000	1.13.2.8
@@ -16,7 +16,7 @@
     { context_id:naturalnum "$object_id" }
     { category "" }
     { return_url:localurl "" }
-    { attach_p:boolean "f" }
+    { attach_p:boolean,notnull "f" }
 } -validate {
     comment_mime_type_allowed -requires {comment_mime_type:notnull comment_mime_type:printable} {
         if {$comment_mime_type ni {"text/plain" "text/html"}} {
Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -N -r1.38.2.5 -r1.38.2.6
--- openacs-4/packages/news/www/preview.tcl	27 Jan 2023 17:15:35 -0000	1.38.2.5
+++ openacs-4/packages/news/www/preview.tcl	11 Oct 2023 12:03:33 -0000	1.38.2.6
@@ -1,4 +1,3 @@
-# /packages/news/www/preview.tcl
 ad_page_contract {
     This page previews the input from item-create or admin/revision-add
 
@@ -16,7 +15,7 @@
     {revision_log ""}
     {publish_date:clock(%Y-%m-%d) ""}
     {archive_date:clock(%Y-%m-%d) ""}
-    {permanent_p:boolean "f"}
+    {permanent_p:boolean,notnull "f"}
     imgfile:optional
 
 } -errors {
Index: openacs-4/packages/news/www/admin/approve-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-2.tcl,v
diff -u -N -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/news/www/admin/approve-2.tcl	23 Mar 2023 13:38:40 -0000	1.9.2.3
+++ openacs-4/packages/news/www/admin/approve-2.tcl	11 Oct 2023 12:03:33 -0000	1.9.2.4
@@ -13,7 +13,7 @@
 } {
     revision_id:naturalnum,notnull,multiple
     {return_url:localurl ""}
-    {permanent_p:boolean "f"}
+    {permanent_p:boolean,notnull "f"}
     {publish_date:clock(%Y-%m-%d) ""}
     {archive_date:clock(%Y-%m-%d) ""}
 }