- inserted debug messages

0395b758 · Frank Bergmann · 7b51b52b · 0395b758
Commit 0395b758 authored Aug 12, 2004 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

new-2.tcl www/new-2.tcl +2 -0

No files found.
--- a/www/new-2.tcl
+++ b/www/new-2.tcl
@@ -220,10 +220,12 @@ where
 # ---------------------------------------------------------------------

 # Only if we are creating a new message...
+ns_log Notice "/intranet-forum/new-2: action_type=$action_type"
 if {[string equal $action_type "new_message"]} {

    # .. and only if the parameter is enabled...
    if {[ad_parameter -package_id [im_package_forum_id] SubscribeAllMembersToNewItemsP "" "0"]} {
+	ns_log Notice "/intranet-forum/new-2: subscribing all project members to the new message"

 	# Select the list of all project members allowed to see
 	# see the new TIND.