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.4 -r1.5
--- openacs-4/packages/forums/tcl/forums-procs.tcl	2 Jul 2002 02:00:01 -0000	1.4
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	2 Jul 2002 19:42:19 -0000	1.5
@@ -41,6 +41,10 @@
         db_dml update_forum {}
     }
 
+    ad_proc -public attachments_enabled_p {} {
+        return [apm_package_registered_p attachments]
+    }
+
     ad_proc -public list_forums {
         {-package_id:required}
     } {