- added read_only_p switch to disable the active components of a forum discussion

tcl/intranet-forum-procs.tcl

@@ -1225,6 +1225,7 @@ ad_proc -public im_forum_component {
 
 ad_proc -public im_forum_full_screen_component {
     -object_id:required
+    { -read_only_p 0}
 } {
     Creates a HTML table with the threaded discussions for a given object.
 } {
@@ -1304,7 +1305,6 @@ ad_proc -public im_forum_full_screen_component {
 	}
     }
     
-
     append actions "<option value=reply selected>[_ intranet-forum.lt_Reply_to_this_topic_t]</option>\n"
     
     # Only admins can edit the message
@@ -1322,6 +1322,7 @@ ad_proc -public im_forum_full_screen_component {
 	}
     }
     
+    if {!$read_only_p} {
 	append table_body "
 		<tr $bgcolor([expr $ctr % 2])>
 		  <td>[_ intranet-forum.Actions]</td>
@@ -1331,8 +1332,10 @@ ad_proc -public im_forum_full_screen_component {
 		    </select>
 		    <input type=submit value=\"[_ intranet-forum.Apply]\">
 		  </td>
-	</tr> $assign_hidden
+		</tr> 
+		$assign_hidden
         "
+    }
     incr ctr
 
     # -------------- Table and Form Start -----------------------------