Index: openacs-4/packages/forums/lib/message/post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v diff -u -r1.30.2.10 -r1.30.2.11 --- openacs-4/packages/forums/lib/message/post.tcl 15 Jul 2022 16:19:56 -0000 1.30.2.10 +++ openacs-4/packages/forums/lib/message/post.tcl 30 Aug 2022 13:08:29 -0000 1.30.2.11 @@ -8,7 +8,7 @@ } { message_id:object_id,optional - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull {parent_id:object_type(forums_message) ""} {subject:printable,string_length(max|200) ""} {message_body:printable ""} Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v diff -u -r1.32.2.1 -r1.32.2.2 --- openacs-4/packages/forums/lib/message/threads-chunk.tcl 15 Jul 2022 16:19:56 -0000 1.32.2.1 +++ openacs-4/packages/forums/lib/message/threads-chunk.tcl 30 Aug 2022 13:08:29 -0000 1.32.2.2 @@ -5,7 +5,7 @@ @creation-date 2002-05-24 @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull {orderby:token,notnull "last_child_post,desc"} {flush_p:boolean,notnull 0} {page_size:naturalnum,notnull 30} Index: openacs-4/packages/forums/lib/user/post-history-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/user/post-history-chunk.tcl,v diff -u -r1.10.2.3 -r1.10.2.4 --- openacs-4/packages/forums/lib/user/post-history-chunk.tcl 15 Jul 2022 16:19:56 -0000 1.10.2.3 +++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl 30 Aug 2022 13:08:29 -0000 1.10.2.4 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - user_id:object_type(user) + user_id:object_type(user),notnull {groupby:word "forum_name"} {view:word "date"} {alt_template ""} Index: openacs-4/packages/forums/www/forum-view-statistic.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view-statistic.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/forums/www/forum-view-statistic.tcl 15 Jul 2022 16:19:56 -0000 1.3.2.1 +++ openacs-4/packages/forums/www/forum-view-statistic.tcl 30 Aug 2022 13:08:29 -0000 1.3.2.2 @@ -6,7 +6,7 @@ @creation-date 2005-03-17 } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull } # Get user information Index: openacs-4/packages/forums/www/forum-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v diff -u -r1.38.2.5 -r1.38.2.6 --- openacs-4/packages/forums/www/forum-view.tcl 15 Jul 2022 16:19:56 -0000 1.38.2.5 +++ openacs-4/packages/forums/www/forum-view.tcl 30 Aug 2022 13:08:29 -0000 1.38.2.6 @@ -7,7 +7,7 @@ @cvs-id $Id$ } -query { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull {orderby:token,notnull "last_child_post,desc"} {flush_p:boolean,notnull 0} page:naturalnum,optional,notnull Index: openacs-4/packages/forums/www/load-message-content.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/load-message-content.tcl,v diff -u -r1.6.2.2 -r1.6.2.3 --- openacs-4/packages/forums/www/load-message-content.tcl 15 Jul 2022 16:19:56 -0000 1.6.2.2 +++ openacs-4/packages/forums/www/load-message-content.tcl 30 Aug 2022 13:08:29 -0000 1.6.2.3 @@ -6,7 +6,7 @@ @creation-date 2006-04-21 } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull } Index: openacs-4/packages/forums/www/mark-all-read.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/mark-all-read.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/forums/www/mark-all-read.tcl 15 Jul 2022 16:19:56 -0000 1.5.2.2 +++ openacs-4/packages/forums/www/mark-all-read.tcl 30 Aug 2022 13:08:29 -0000 1.5.2.3 @@ -6,7 +6,7 @@ @creation-date 2004-09-06 } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull } set user_id [ad_conn user_id] Index: openacs-4/packages/forums/www/message-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v diff -u -r1.19.2.2 -r1.19.2.3 --- openacs-4/packages/forums/www/message-email.tcl 15 Jul 2022 16:19:56 -0000 1.19.2.2 +++ openacs-4/packages/forums/www/message-email.tcl 30 Aug 2022 13:08:29 -0000 1.19.2.3 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull } Index: openacs-4/packages/forums/www/user-history.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/user-history.tcl,v diff -u -r1.16.2.3 -r1.16.2.4 --- openacs-4/packages/forums/www/user-history.tcl 15 Jul 2022 16:19:56 -0000 1.16.2.3 +++ openacs-4/packages/forums/www/user-history.tcl 30 Aug 2022 13:08:30 -0000 1.16.2.4 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - user_id:object_type(user) + user_id:object_type(user),notnull {view:word "date"} {groupby "forum_name"} } Index: openacs-4/packages/forums/www/admin/forum-disable.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-disable.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/forums/www/admin/forum-disable.tcl 15 Jul 2022 16:19:56 -0000 1.9.2.1 +++ openacs-4/packages/forums/www/admin/forum-disable.tcl 30 Aug 2022 13:08:30 -0000 1.9.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull } forum::disable -forum_id $forum_id Index: openacs-4/packages/forums/www/admin/forum-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-edit.tcl,v diff -u -r1.16.2.2 -r1.16.2.3 --- openacs-4/packages/forums/www/admin/forum-edit.tcl 15 Jul 2022 16:19:56 -0000 1.16.2.2 +++ openacs-4/packages/forums/www/admin/forum-edit.tcl 30 Aug 2022 13:08:30 -0000 1.16.2.3 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull {return_url:localurl "."} } Index: openacs-4/packages/forums/www/admin/forum-enable.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-enable.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/forums/www/admin/forum-enable.tcl 15 Jul 2022 16:19:56 -0000 1.9.2.1 +++ openacs-4/packages/forums/www/admin/forum-enable.tcl 30 Aug 2022 13:08:30 -0000 1.9.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull } forum::enable -forum_id $forum_id Index: openacs-4/packages/forums/www/admin/permissions-user-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/permissions-user-add.tcl,v diff -u -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/forums/www/admin/permissions-user-add.tcl 15 Jul 2022 16:19:56 -0000 1.5.2.1 +++ openacs-4/packages/forums/www/admin/permissions-user-add.tcl 30 Aug 2022 13:08:30 -0000 1.5.2.2 @@ -5,7 +5,7 @@ @creation-date 2003-06-13 @cvs-id $Id$ } { - object_id:object_type(apm_package|forums_forum) + object_id:object_type(apm_package|forums_forum),notnull } if { $object_id == [ad_conn package_id] } { 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 -r1.11.2.3 -r1.11.2.4 --- openacs-4/packages/forums/www/admin/subscribe-others-2.tcl 15 Jul 2022 16:19:56 -0000 1.11.2.3 +++ openacs-4/packages/forums/www/admin/subscribe-others-2.tcl 30 Aug 2022 13:08:30 -0000 1.11.2.4 @@ -7,12 +7,12 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) - type_id:object_type(notification_type) + forum_id:object_type(forums_forum),notnull + type_id:object_type(notification_type),notnull {lines} {return_url:localurl "."} - interval:object_type(notification_interval) - delivery_method:object_type(notification_delivery_method) + interval:object_type(notification_interval),notnull + delivery_method:object_type(notification_delivery_method),notnull {emails ""} {subscriber_ids:object_type(user),multiple} {create_new_users_p:boolean "f"} 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 -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/forums/www/admin/subscribe-others.tcl 15 Jul 2022 16:19:56 -0000 1.6.2.1 +++ openacs-4/packages/forums/www/admin/subscribe-others.tcl 30 Aug 2022 13:08:30 -0000 1.6.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull {return_url:localurl "."} } Index: openacs-4/packages/forums/www/moderate/forum.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/forum.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/forums/www/moderate/forum.tcl 15 Jul 2022 16:19:56 -0000 1.7.2.1 +++ openacs-4/packages/forums/www/moderate/forum.tcl 30 Aug 2022 13:08:30 -0000 1.7.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - forum_id:object_type(forums_forum) + forum_id:object_type(forums_forum),notnull } # Check that the user can moderate the forum Index: openacs-4/packages/forums/www/moderate/message-approve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-approve.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/forums/www/moderate/message-approve.tcl 15 Jul 2022 16:19:56 -0000 1.9.2.1 +++ openacs-4/packages/forums/www/moderate/message-approve.tcl 30 Aug 2022 13:08:30 -0000 1.9.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull {return_url:localurl "../message-view"} } 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 -r1.18.2.2 -r1.18.2.3 --- openacs-4/packages/forums/www/moderate/message-delete.tcl 15 Jul 2022 16:19:56 -0000 1.18.2.2 +++ openacs-4/packages/forums/www/moderate/message-delete.tcl 30 Aug 2022 13:08:30 -0000 1.18.2.3 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - message_id:object_type(forums_message),verify + message_id:object_type(forums_message),verify,notnull {return_url:localurl "../message-view"} {confirm_p:boolean 0} } Index: openacs-4/packages/forums/www/moderate/message-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-edit.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/forums/www/moderate/message-edit.tcl 15 Jul 2022 16:19:56 -0000 1.10.2.1 +++ openacs-4/packages/forums/www/moderate/message-edit.tcl 30 Aug 2022 13:08:30 -0000 1.10.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull {return_url:localurl "../message-view"} } Index: openacs-4/packages/forums/www/moderate/message-reject.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/message-reject.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/forums/www/moderate/message-reject.tcl 15 Jul 2022 16:19:56 -0000 1.8.2.1 +++ openacs-4/packages/forums/www/moderate/message-reject.tcl 30 Aug 2022 13:08:30 -0000 1.8.2.2 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull {return_url:localurl "../message-view"} } 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 -r1.9.2.1 -r1.9.2.2 --- openacs-4/packages/forums/www/moderate/move-thread-thread.tcl 15 Jul 2022 16:19:56 -0000 1.9.2.1 +++ openacs-4/packages/forums/www/moderate/move-thread-thread.tcl 30 Aug 2022 13:08:30 -0000 1.9.2.2 @@ -6,8 +6,8 @@ @creation-date 2005-03-29 } { - msg_id:object_type(forums_message) - selected_message:object_type(forums_message) + msg_id:object_type(forums_message),notnull + selected_message:object_type(forums_message),notnull {confirm_p:boolean 0} } 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 -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/forums/www/moderate/move-thread.tcl 15 Jul 2022 16:19:56 -0000 1.10.2.1 +++ openacs-4/packages/forums/www/moderate/move-thread.tcl 30 Aug 2022 13:08:30 -0000 1.10.2.2 @@ -6,8 +6,8 @@ @creation-date 2005-03-14 } { - msg_id:object_type(forums_message) - selected_message:object_type(forums_message) + msg_id:object_type(forums_message),notnull + selected_message:object_type(forums_message),notnull {confirm_p:boolean 0} } 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 -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/forums/www/moderate/move.tcl 15 Jul 2022 16:19:56 -0000 1.10.2.1 +++ openacs-4/packages/forums/www/moderate/move.tcl 30 Aug 2022 13:08:30 -0000 1.10.2.2 @@ -6,8 +6,8 @@ @creation-date 2005-03-14 } { - message_id:object_type(forums_message) - selected_forum:object_type(forums_forum) + message_id:object_type(forums_message),notnull + selected_forum:object_type(forums_forum),notnull {confirm_p:boolean 0} } 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 -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/forums/www/moderate/thread-move-thread.tcl 15 Jul 2022 16:19:56 -0000 1.5.2.1 +++ openacs-4/packages/forums/www/moderate/thread-move-thread.tcl 30 Aug 2022 13:08:30 -0000 1.5.2.2 @@ -6,7 +6,7 @@ @creation-date 2005-03-14 } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull {return_url:localurl "../message-view"} {confirm_p:boolean 0} } 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 -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/forums/www/moderate/thread-move.tcl 15 Jul 2022 16:19:56 -0000 1.6.2.1 +++ openacs-4/packages/forums/www/moderate/thread-move.tcl 30 Aug 2022 13:08:30 -0000 1.6.2.2 @@ -6,7 +6,7 @@ @creation-date 2005-03-14 } { - message_id:object_type(forums_message) + message_id:object_type(forums_message),notnull {return_url:localurl "../message-view"} {confirm_p:boolean 0} }