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 -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 24 Oct 2003 13:19:41 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl 13 Feb 2004 15:57:34 -0000 1.4.2.1 @@ -10,41 +10,41 @@ namespace eval acs_privacy { ad_proc -public privacy_control_enabled_p {} { - Returns whether privacy control is turned on or not. - This is provided in order to have complete backwards - compatibility with past behaviors, where private information - was in no way regulated. + Returns whether privacy control is turned on or not. + This is provided in order to have complete backwards + compatibility with past behaviors, where private information + was in no way regulated. } { - # If no parameter set, then we assume privacy control is DISABLED - return [ad_parameter -package_id [ad_acs_kernel_id] PrivacyControlEnabledP 0] + # If no parameter set, then we assume privacy control is DISABLED + return [ad_parameter -package_id [ad_acs_kernel_id] PrivacyControlEnabledP 0] } ad_proc -public privacy_control_set {val} { - set the privacy control + set the privacy control } { - ad_parameter -set $val -package_id [ad_acs_kernel_id] PrivacyControlEnabledP + ad_parameter -set $val -package_id [ad_acs_kernel_id] PrivacyControlEnabledP } ad_proc -public user_can_read_private_data_p { - {-user_id ""} - {-object_id:required} + {-user_id ""} + {-object_id:required} } { - check if a user can access an object's private data + check if a user can access an object's private data } { - if {[privacy_control_enabled_p]} { + if {[privacy_control_enabled_p]} { return [ad_permission_p -user_id $user_id $object_id read_private_data] - } else { - # backwards compatibility - return 1 - } + } else { + # backwards compatibility + return 1 + } } ad_proc -public set_user_read_private_data { - {-user_id:required} - {-object_id:required} + {-user_id:required} + {-object_id:required} {-value:required} } { - grant permission to access private data + grant permission to access private data } { if { [template::util::is_true $value] } { ad_permission_grant $user_id $object_id read_private_data