Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl,v
diff -u -r1.1.1.1.2.5 -r1.1.1.1.2.6
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	17 Jan 2006 23:07:28 -0000	1.1.1.1.2.5
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	16 Feb 2006 15:59:59 -0000	1.1.1.1.2.6
@@ -157,7 +157,17 @@
     
     set limit [ad_parameter -package_id $package_id "number_of_items_shown"]
     set sql_limit [expr $limit_multiple*$limit]
-    
+
+    # Convert to local time while retrieving entries
+    if { [lang::system::timezone_support_p] } {
+        set utc_offset_raw [lang::system::timezone_utc_offset] 
+        set operation [string index $utc_offset_raw 0]
+        set hours "[string range $utc_offset_raw 1 end] hours"
+        set with_utc_offset "$operation '$hours' ::interval"
+    } else {
+        set with_utc_offset ""
+    }
+
     set sql [db_map items]
     return $sql
 }