Index: openacs-4/packages/logger/www/admin/map-variable-to-project.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/map-variable-to-project.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/logger/www/admin/map-variable-to-project.tcl	22 Apr 2003 09:27:03 -0000	1.1
+++ openacs-4/packages/logger/www/admin/map-variable-to-project.tcl	1 May 2003 14:16:18 -0000	1.2
@@ -14,17 +14,4 @@
 set context [list $page_title]
 
 # List all variables not already mapped to the project
-logger::package::variables_multirow $project_id
-
-db_multirow variables variables_to_map {
-    select variable_id,
-           name,
-           unit,
-           type
-      from logger_variables lv
-      where not exists (select 1
-                        from logger_project_var_map
-                        where project_id = :project_id
-                        and variable_id = lv.variable_id
-                       )            
-}
+logger::package::variables_multirow -not_in_project_id $project_id