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.2 -r1.3
--- openacs-4/packages/logger/www/admin/map-variable-to-project.tcl	1 May 2003 14:16:18 -0000	1.2
+++ openacs-4/packages/logger/www/admin/map-variable-to-project.tcl	4 Jan 2004 17:24:38 -0000	1.3
@@ -15,3 +15,29 @@
 
 # List all variables not already mapped to the project
 logger::package::variables_multirow -not_in_project_id $project_id
+
+template::list::create \
+    -name "variables" \
+    -pass_properties { project_id } \
+    -no_data "No variables not already part of this project" \
+    -actions [list "Create new variable" [export_vars -base variable { project_id }] {}] \
+    -elements {
+        name {
+            label "Variable Name"
+        }
+        unit {
+            label "Unit"
+        }
+        type {
+            label "Additive"
+            display_template {
+                <if @variables.type@ eq additive>Yes</if><else>No</else>
+            }
+        }
+        add {
+            sub_class narrow
+            label "Add"
+            display_template "Add"
+            link_url_eval {[export_vars -base map-variable-to-project-2 { project_id variable_id }]}
+        }
+    }