Index: openacs-4/packages/logger/tcl/project-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/project-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/logger/tcl/project-procs.xql	22 Apr 2003 09:25:40 -0000	1.4
+++ openacs-4/packages/logger/tcl/project-procs.xql	1 May 2003 14:14:33 -0000	1.5
@@ -14,15 +14,40 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="logger::project::add_variable.insert_mapping">
+  <fullquery name="logger::project::map_variable.insert_mapping">
     <querytext>
         insert into logger_project_var_map (project_id, variable_id, primary_p)
                 values (:project_id, :variable_id, :primary_p)
     </querytext>
   </fullquery>
 
-  <fullquery name="logger::project::add_variable.count_primary_p">
+  <fullquery name="logger::project::unmap_variable.delete_mapping">
     <querytext>
+        delete from logger_project_var_map
+               where project_id = :project_id
+                 and variable_id = :variable_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="logger::project::set_primary_variable.clear_old">
+    <querytext>
+      update logger_project_var_map
+                set primary_p = 'f'
+      where project_id = :project_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="logger::project::set_primary_variable.update_new">
+    <querytext>
+      update logger_project_var_map
+                set primary_p = 't'
+      where project_id = :project_id
+        and variable_id = :variable_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="logger::project::map_variable.count_primary_p">
+    <querytext>
         select count(*)
         from logger_project_var_map
         where project_id = :project_id