Index: openacs-4/packages/logger/tcl/variable-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/variable-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/logger/tcl/variable-procs.tcl	1 May 2003 10:00:24 -0000	1.5
+++ openacs-4/packages/logger/tcl/variable-procs.tcl	1 May 2003 14:14:33 -0000	1.6
@@ -18,7 +18,7 @@
 } {
     Create a new variable to use for logger entries. The
     variable can be tied to logger projects through the
-    logger::project::add_variable proc.
+    logger::project::map_variable proc.
 
     @param variable_id Any pre-generated id of the variable. Optional.
     @param name The name of the new variable. Required.
@@ -44,6 +44,14 @@
 
     set variable_id [db_exec_plsql insert_variable {}]
 
+    if { $pre_installed_p } {
+        # Registered users should have read privilege on pre-installed variables
+        permission::grant \
+            -party_id [acs_magic_object registered_users] \
+            -object_id $variable_id \
+            -privilege read
+    } 
+
     return $variable_id
 }