Index: openacs-4/packages/logger/www/project-select.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/project-select.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/logger/www/project-select.tcl	9 May 2003 15:07:48 -0000	1.1
+++ openacs-4/packages/logger/www/project-select.tcl	22 Dec 2003 19:45:16 -0000	1.2
@@ -14,10 +14,18 @@
 set page_title "Select Project to log entries in"
 set context [list $page_title]
 
+set project_options [logger::ui::project_options]
+
+if { [llength $project_options] == 1 } {
+    set project_id [lindex [lindex $project_options 0] 1]
+    ad_returnredirect [export_vars -base log { project_id }]
+    ad_script_abort
+}
+
 ad_form -name project_form -form {
     {project_id:integer(select)
         {label Project}
-        {options {[logger::ui::project_options]}}
+        {options {$project_options}}
     }
 } -on_submit {