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.24 -r1.25
--- openacs-4/packages/forums/tcl/forums-procs.tcl	27 Mar 2009 07:54:43 -0000	1.24
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	7 Aug 2017 23:48:11 -0000	1.25
@@ -33,7 +33,7 @@
     set forum_id [package_instantiate_object -var_list $var_list forums_forum]
 
     if {!$no_callback_p} {
-	callback forum::forum_new -package_id $package_id -forum_id $forum_id
+        callback forum::forum_new -package_id $package_id -forum_id $forum_id
     }
 
     return $forum_id
@@ -54,7 +54,7 @@
     db_dml update_forum_object {}
 
     if {!$no_callback_p} {
-	callback forum::forum_edit -package_id [ad_conn package_id] -forum_id $forum_id
+        callback forum::forum_edit -package_id [ad_conn package_id] -forum_id $forum_id
     }
 }
 
@@ -164,8 +164,35 @@
 }
 
 ad_proc -public forum::use_ReadingInfo_p {} {
-	# this depends on site-wide package parameters implemented in openacs core
-	# http://openacs.org/bugtracker/openacs/patch?patch%5fnumber=845
-	# return [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo]
-	return 0
-}
\ No newline at end of file
+    # this depends on site-wide package parameters implemented in OpenACS core
+    # http://openacs.org/bugtracker/openacs/patch?patch%5fnumber=845
+    # return [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo]
+    return 0
+}
+
+ad_proc forum::valid_forum_id_p {
+    {-forum_id:required}
+    {-package_id}
+} {
+    checks forum_id
+} {
+    if {[info exists package_id] && [db_0or1row check_forum_id {
+        select forum_id from forums_forums where forum_id = :forum_id and package_id = :package_id
+    }]} {
+        set result true
+    } elseif {![info exists package_id] && [db_0or1row check_forum_id {
+        select forum_id from forums_forums where forum_id = :forum_id
+    }]} {
+        set result true
+    } else {
+        set result false
+    }
+
+    return $result
+}
+    
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: