Index: openacs-4/packages/logger/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/index.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/logger/www/index.tcl	5 Jan 2004 20:54:25 -0000	1.19
+++ openacs-4/packages/logger/www/index.tcl	5 Jan 2004 21:05:27 -0000	1.20
@@ -41,9 +41,17 @@
 
 set instance_name [ad_conn instance_name]
 
+
 if { ![exists_and_not_null project_id] } {
     set package_projects [logger::package::all_projects_in_package -package_id [ad_conn package_id]]
     if { [llength $package_projects] == 1 } {
         set project_id $package_projects
     }
 }
+
+# Default to the current projection
+if { [exists_and_not_null project_id] && [exists_and_not_null variable_id] && ![exists_and_not_null projection_id] } {
+    set projection_id [logger::project::get_current_projection \
+                           -project_id $project_id \
+                           -variable_id $variable_id]
+}