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