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.19 -r1.20
--- openacs-4/packages/forums/lib/message/post.tcl	20 Sep 2008 12:10:28 -0000	1.19
+++ openacs-4/packages/forums/lib/message/post.tcl	27 Mar 2009 07:54:43 -0000	1.20
@@ -66,7 +66,7 @@
 }
 
 # Attachments
-if {$user_id != 0} {
+if {$user_id != 0 & $attachments_enabled_p} {
     append form_elements {
         {attach_p:integer(radio),optional
             {options {{[_ acs-kernel.common_No] 0} {[_ acs-kernel.common_Yes] 1}}}
Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/forums/tcl/forums-procs.tcl	20 Sep 2008 12:10:28 -0000	1.23
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	27 Mar 2009 07:54:43 -0000	1.24
@@ -60,12 +60,11 @@
 
 ad_proc -public forum::attachments_enabled_p {} {
     if {"forums" eq [ad_conn package_key]} { 
-	set package_id [site_node_apm_integration::child_package_exists_p \
-			    -package_key attachments
-		       ]
+      set return_value [site_node_apm_integration::child_package_exists_p -package_id [ad_conn package_id] -package_key attachments]
     } else { 
-	return 0
+      set return_value 0
     }
+    return $return_value
 }
 
 ad_proc -public forum::list_forums {