Index: openacs-4/packages/logger/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/project-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/logger/tcl/project-procs.tcl	28 Aug 2003 09:45:30 -0000	1.7
+++ openacs-4/packages/logger/tcl/project-procs.tcl	5 Jan 2004 21:05:27 -0000	1.8
@@ -289,3 +289,12 @@
     
     return $users_list
 }
+
+ad_proc -public logger::project::get_current_projection {
+    -project_id:required
+    -variable_id:required
+} {
+    Gets the active projection for the given project and variable, if any. Returns empty string if none.
+} {
+    return [db_string select_current_projection {} -default {}]
+}