Index: openacs-4/packages/logger/tcl/variable-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/variable-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/logger/tcl/variable-procs.tcl	1 May 2003 14:14:33 -0000	1.6
+++ openacs-4/packages/logger/tcl/variable-procs.tcl	29 Sep 2003 10:21:52 -0000	1.7
@@ -113,3 +113,9 @@
 
     db_1row select_variable {} -column_array variable_array
 }
+
+ad_proc -public logger::variable::get_default_variable_id {} {
+    Get the ID of the default (first) variable.
+} {
+    return [db_string select_first_variable_id {} -default {}]
+}