Index: openacs-4/packages/logger/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.tcl,v
diff -u -r1.21.2.7 -r1.21.2.8
--- openacs-4/packages/logger/www/log.tcl	9 May 2005 14:49:38 -0000	1.21.2.7
+++ openacs-4/packages/logger/www/log.tcl	28 Jul 2005 11:14:42 -0000	1.21.2.8
@@ -10,7 +10,7 @@
     project_id:integer,optional
     variable_id:integer,optional
     {edit:boolean "f"}
-    {return_url "."}
+    {return_url ""}
     {pm_project_id:integer ""}
     {pm_task_id:integer ""}
     {__refreshing_p "0"}
@@ -414,7 +414,11 @@
     ad_set_client_property logger time_stamp $time_stamp
 
     # Present the user with an add form again for quick logging
-    ad_returnredirect -message "[_ logger.lt_Log_entry_for_value_v]" [export_vars -base [ad_conn url] { project_id variable_id pm_project_id pm_task_id}]
+    if {[exists_and_not_null return_url]} {
+	ad_returnredirect -message "[_ logger.lt_Log_entry_for_value_v]" $return_url
+    } else {
+	ad_returnredirect -message "[_ logger.lt_Log_entry_for_value_v]" [export_vars -base [ad_conn url] { project_id variable_id pm_project_id pm_task_id}]
+    }
     ad_script_abort
 
 } -edit_data {