Index: openacs-4/packages/logger/tcl/project-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/project-procs-oracle.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/logger/tcl/project-procs-oracle.xql	11 Dec 2003 21:40:07 -0000	1.3
+++ openacs-4/packages/logger/tcl/project-procs-oracle.xql	5 Jan 2004 21:05:27 -0000	1.4
@@ -37,4 +37,14 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="logger::project::get_current_projection.select_current_projection">
+    <querytext>
+        select min(p.projection_id)
+        from   logger_projections p
+        where  p.project_id = :project_id
+        and    p.variable_id = :variable_id
+        and    sysdate between p.start_time and p.end_time
+    </querytext>
+  </fullquery>
+
 </queryset>