Index: openacs-4/packages/logger/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/index.tcl,v
diff -u -r1.10.4.1 -r1.10.4.2
--- openacs-4/packages/logger/www/index.tcl	13 May 2003 14:56:49 -0000	1.10.4.1
+++ openacs-4/packages/logger/www/index.tcl	14 May 2003 17:57:59 -0000	1.10.4.2
@@ -300,8 +300,18 @@
 set weekdayno [clock format [clock seconds] -format %w]
 set monthdayno [string trimleft [clock format [clock seconds] -format %d] 0]
 
-foreach type { this_week last_week past_7 this_month last_month past_30 } {
+foreach type { today yesterday this_week last_week past_7 this_month last_month past_30 } {
     switch $type {
+        today {
+            set name "Today"
+            set new_start_date [clock format [clock seconds] -format "%Y-%m-%d"]
+            set new_end_date [clock format [clock seconds] -format "%Y-%m-%d"]
+        }
+        yesterday {
+            set name "Yesterday"
+            set new_start_date [clock format [clock scan "-1 days"] -format "%Y-%m-%d"]
+            set new_end_date [clock format [clock scan "-1 days"] -format "%Y-%m-%d"]
+        }
         this_week {
             set name "This week"
             set new_start_date [clock format [clock scan "-$weekdayno days"] -format "%Y-%m-%d"]