Index: openacs-4/packages/logger/lib/entries.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/entries.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/logger/lib/entries.tcl	4 Jan 2004 21:27:48 -0000	1.1
+++ openacs-4/packages/logger/lib/entries.tcl	5 Jan 2004 20:54:25 -0000	1.2
@@ -27,6 +27,19 @@
 set weekdayno [clock format [clock seconds] -format %w]
 set monthdayno [string trimleft [clock format [clock seconds] -format %d] 0]
 
+# Projections
+set projection_values [list]
+if { [exists_and_not_null project_id] } {
+    db_foreach select_projections {} -column_array row {
+        lappend projection_values \
+            [list $row(name) [list [list projection_id $row(projection_id)] \
+                                  [list time_stamp:multiple [list $row(start_date_ansi) $row(end_date_ansi)]]]]
+    }
+}
+
+ds_comment $projection_values
+
+
 # Define the list
 
 list::create \
@@ -113,6 +126,11 @@
             add_url_eval {[ad_decode [exists_and_not_null project_id] 1 [export_vars -base "log" { project_id { variable_id $__filter_value } }] ""]}
             has_default_p t
         }
+        projection_id {
+            label "Projections"
+            type multivar
+            values $projection_values
+        }
         user_id {
             label "Users"
             values {[db_list_of_lists select_users {}]}