Index: openacs-4/packages/logger/tcl/test/logger-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/test/logger-test-init.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/logger/tcl/test/logger-test-init.tcl	1 May 2003 10:00:47 -0000	1.6
+++ openacs-4/packages/logger/tcl/test/logger-test-init.tcl	1 May 2003 14:15:28 -0000	1.7
@@ -78,22 +78,22 @@
         set hours_var_id [logger::variable::new -name $hours_var(name) \
                                                 -unit $hours_var(unit) \
                                                 -type $hours_var(type)]
-        logger::project::add_variable -project_id $project_id \
+        logger::project::map_variable -project_id $project_id \
                                       -variable_id $hours_var_id
 
         # Create and map the minutes variable
         # (variate by pre-generating the variable id this time)
         set minutes_var_id [logger::variable::new -name $minutes_var(name) \
                                                   -unit $minutes_var(unit) \
                                                   -type $minutes_var(type)]
-        logger::project::add_variable -project_id $project_id \
+        logger::project::map_variable -project_id $project_id \
                                       -variable_id $minutes_var_id
 
         # Create and map the expense variable (euros)
         set expense_var_id [logger::variable::new -name $expense_var(name) \
                                                   -unit $expense_var(unit) \
                                                   -type $expense_var(type)]
-        logger::project::add_variable -project_id $project_id \
+        logger::project::map_variable -project_id $project_id \
                                       -variable_id $expense_var_id
 
         # Assert that variables are retrievable