Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	25 May 2007 09:29:59 -0000	1.12
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	25 May 2007 11:52:02 -0000	1.13
@@ -37,7 +37,8 @@
     set extra_where_clause ""
     
     if {$date ne ""} {
-      set date_clause "and date_trunc('day',p.publish_date) = '$date'"
+      #set date_clause "and date_trunc('day',p.publish_date) = '$date'"
+      set date_clause "and [::xo::db::sql date_trunc_expression day p.publish_date $date]"
       set filter_msg "Filtered by date $date"
       set query_parm "&date=$date"
     } else {
@@ -102,7 +103,7 @@
     set sql \
         [list -folder_id $folder_id \
              -select_attributes $attributes \
-             -orderby "p.publish_date desc" \
+             -orderby "publish_date desc" \
              -from_clause "$extra_from_clause , $base_table p left outer join syndication s on s.object_id = p.revision_id" \
              -where_clause "ci.item_id not in ([my exclude_item_ids]) \
                 and ci.name != '::$folder_id' and ci.name not like '%weblog%' $date_clause \