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.208.2.1 -r1.208.2.2
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	26 Aug 2014 10:25:23 -0000	1.208.2.1
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	26 Aug 2014 10:45:58 -0000	1.208.2.2
@@ -265,9 +265,9 @@
             ]
 
             # 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
-            ad_parameter -package_id $package_id -set 1 community_level_p
+            parameter::set_value -package_id $package_id -parameter dotlrn_level_p -value 0
+            parameter::set_value -package_id $package_id -parameter community_type_level_p -value 0
+            parameter::set_value -package_id $package_id -parameter community_level_p -value 1
 
             # Set up the node
             dotlrn_community::set_package_id $community_id $package_id
Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.28.2.1 -r1.28.2.2
--- openacs-4/packages/dotlrn/www/admin/user.tcl	18 Aug 2014 19:22:04 -0000	1.28.2.1
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	26 Aug 2014 10:45:58 -0000	1.28.2.2
@@ -94,7 +94,7 @@
 }
 
 set portrait_p 0
-if {[ad_parameter "show_portrait_p" dotlrn] && [db_0or1row select_portrait_info {}]} {
+if {[parameter::get -parameter "show_portrait_p"] && [db_0or1row select_portrait_info {}]} {
     set portrait_p 1
 }