Index: openacs-4/packages/dotlrn/tcl/privacy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/privacy-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	21 Feb 2004 02:34:38 -0000	1.1.2.1
+++ openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	24 Feb 2004 19:56:30 -0000	1.1.2.2
@@ -44,6 +44,11 @@
         action should be "grant" or "revoke"
         rel_type should be "dotlrn_guest_rel" or "dotlrn_non_guest_rel"
     } {
+        if { [string equal $action "grant"] } {
+            set db_proc "grant_rd_prv_dt_to_rel"
+        } else {
+            set db_proc "revoke_rd_prv_dt_from_rel"
+        }            
         db_exec_plsql set_read_private_data_for_rel {}
     }