Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	12 Jun 2004 09:14:12 -0000	1.18.2.1
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	21 Jun 2004 17:00:30 -0000	1.18.2.2
@@ -76,8 +76,10 @@
 ad_proc -public calendar::item::get {
     {-cal_item_id:required}
     {-array:required}
+    {-normalize_system_time 1}
 } {
     Get the data for a calendar item
+
 } {
     upvar $array row
 
@@ -86,11 +88,15 @@
     } else {
         set query_name select_item_data
     }
-    
+
     db_1row $query_name {} -column_array row
-    # Timezonize
-    set row(start_date_ansi) [lc_time_system_to_conn $row(start_date_ansi)]
-    set row(end_date_ansi) [lc_time_system_to_conn $row(end_date_ansi)]
+    if {$normalize_system_time} {
+	set row(start_date_ansi) [lc_time_system_to_conn $row(start_date_ansi)]
+	set row(end_date_ansi) [lc_time_system_to_conn $row(end_date_ansi)]
+    } else {
+	set row(start_date_ansi) [lc_time_conn_to_system $row(start_date_ansi)]
+	set row(end_date_ansi) [lc_time_conn_to_system $row(end_date_ansi)]
+    }
 
     if { $row(start_date_ansi) ==  $row(end_date_ansi) && [string equal [lc_time_fmt $row(start_date_ansi) "%T"] "00:00:00"]} {
         set row(time_p) 0