Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl 9 Oct 2001 14:35:58 -0000 1.7
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 9 Oct 2001 15:49:17 -0000 1.8
@@ -232,6 +232,15 @@
} {
return [db_string select_package_id {} -default ""]
}
+
+ ad_proc -public get_applet_package_id {
+ community_id
+ applet_key
+ } {
+ get the package ID for a particular community
+ } {
+ return [db_string select_package_id {} -default ""]
+ }
ad_proc -public add_applet {
community_id
Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 9 Oct 2001 14:35:58 -0000 1.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 9 Oct 2001 15:49:17 -0000 1.3
@@ -109,6 +109,12 @@
+
+
+select package_id from dotlrn_community_applets where community_id= :community_id and applet_key= :applet_key
+
+
+
insert into dotlrn_community_applets
Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 9 Oct 2001 03:43:38 -0000 1.2
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 9 Oct 2001 15:49:10 -0000 1.3
@@ -84,7 +84,7 @@
set page_id [dotlrn_community::get_page_id $community_id $user_id]
# Get the package_id by callback
- set package_id [dotlrn_community::get_package_id $community_id]
+ set package_id [dotlrn_community::get_applet_package_id $community_id dotlrn_bboard]
# Allow user to see the bboard forums
# nothing for now