Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 23 Dec 2008 12:23:00 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 30 Jan 2009 03:24:59 -0000 1.7 @@ -22,7 +22,7 @@ ad_proc -public privacy_control_set {val} { set the privacy control } { - return [parameter::get -set $val -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP] + return [parameter::set_value -value $val -package_id [ad_acs_kernel_id] -parameter PrivacyControlEnabledP] } ad_proc -public user_can_read_private_data_p {