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.183.2.3.4.4 -r1.183.2.3.4.5 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 29 Jun 2004 19:34:48 -0000 1.183.2.3.4.4 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 30 Jun 2004 19:50:21 -0000 1.183.2.3.4.5 @@ -259,10 +259,7 @@ -context_id $community_id \ ] - ns_write "
You are here
"
-
-
# Set the right parameters
ad_parameter -package_id $package_id -set 0 dotlrn_level_p
ad_parameter -package_id $package_id -set 0 community_type_level_p
@@ -300,7 +297,6 @@
set default_applets_list [string trim [split $default_applets {,}]]
- ns_write "default applets list $default_applets_list
"
foreach applet_key $default_applets_list {
if {[dotlrn_applet::applet_exists_p -applet_key $applet_key]} {
@@ -1512,7 +1508,7 @@
} {
Adds an applet to the community
} {
- ns_write "add applet to community $applet_key
"
+
db_transaction {
set package_id [applet_call \
$applet_key \
@@ -1953,7 +1949,7 @@
} {
call a particular applet op
} {
- ns_write "applet call is $applet_key
"
+
acs_sc_call dotlrn_applet $op $list_args $applet_key
}