-- allowed indention of 20 forum items

tcl/intranet-forum-procs.tcl

@@ -667,6 +667,8 @@ ad_proc -public im_forum_render_thread { topic_id user_id object_id object_name
     Returns a formatted HTML representing the child postings
     of the specified topic.
 } {
+
+    # !!! This sql is ignored because of sql located in .xql file  
     set topic_sql "
 	select
 		t.*,
@@ -701,6 +703,7 @@ ad_proc -public im_forum_render_thread { topic_id user_id object_id object_name
 		and t.topic_status_id=fts.category_id(+)
     "
 
+
     # -------------- Setup the outer table with indents-----------------------
 
     # outer table with 10 columns for indenting
@@ -717,10 +720,18 @@ ad_proc -public im_forum_render_thread { topic_id user_id object_id object_name
  <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
  <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
  <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
+ <td>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </td>
 </tr>
 "
-
-
     # -------------- Render all TIND elements -----------------------
 
     set msg_ctr 1
@@ -728,7 +739,6 @@ ad_proc -public im_forum_render_thread { topic_id user_id object_id object_name
 
 	# skip the first message, displayed above.
 	if {$msg_ctr != 1} {
-
 	    # position table within the outer indent-table
 	    append thread_html "<tr>"
 	    if {$indent_level > 0} {
@@ -736,13 +746,33 @@ ad_proc -public im_forum_render_thread { topic_id user_id object_id object_name
 	    }
 	    append thread_html "
 		  <td colspan=$colspan_level>
-		     <table border=0 cellpadding=0 bgcolor=#E0E0E0>"
-
+		     <table border=0 cellpadding=0 bgcolor=#E0E0E0>
+	    "
 	    # don't show received updates for everything but the main message
 	    set receive_updates ""
-
-	    append thread_html " [im_forum_render_tind $topic_id 0 $topic_type_id $topic_type $topic_status_id $topic_status $owner_id $asignee_id $owner_name $asignee_name $user_id $object_id $object_name $object_admin $subject $message $posting_date $due_date $priority $scope $receive_updates $return_url]
-
+	    append thread_html " [im_forum_render_tind \
+					$topic_id 0 \
+					$topic_type_id \
+					$topic_type \
+					$topic_status_id \
+					$topic_status \
+					$owner_id \
+					$asignee_id \
+					$owner_name \
+					$asignee_name \
+					$user_id \
+					$object_id \
+					$object_name \
+					$object_admin \
+					$subject \
+					$message \
+					$posting_date \
+					$due_date \
+					$priority \
+					$scope \
+					$receive_updates \
+					$return_url \
+				]
 		    </table>
 		  </td>
 		</tr>\n"