Index: openacs-4/packages/logger/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/logger/www/log.tcl	1 May 2003 10:01:00 -0000	1.4
+++ openacs-4/packages/logger/www/log.tcl	6 May 2003 17:36:53 -0000	1.5
@@ -202,3 +202,9 @@
 }
 
 set show_log_history_p [expr $entry_edited_by_owner_p || ! $entry_exists_p]
+
+set log_history_n_days 31
+set seconds_per_day [expr 60*60*24]
+set start_date_seconds [expr [clock seconds] - $log_history_n_days * $seconds_per_day]
+set start_date_ansi [clock format $start_date_seconds \
+                        -format "%Y-%m-%d"]
\ No newline at end of file