[open-ils-commits] r15455 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-02-05 11:34:26 -0500 (Fri, 05 Feb 2010)
New Revision: 15455

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
retain timezone information when building a DateTime object from an epoch timestamp

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-02-05 16:34:02 UTC (rev 15454)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2010-02-05 16:34:26 UTC (rev 15455)
@@ -741,7 +741,8 @@
 					last;
 				}
 				
-				my $billing_ts = DateTime->from_epoch( epoch => $last_fine + $fine_interval * $bill );
+				# XXX Use org time zone (or default to 'local') once we have the ou setting built for that
+				my $billing_ts = DateTime->from_epoch( epoch => $last_fine + $fine_interval * $bill, time_zone => 'local' );
 
 				my $dow = $billing_ts->day_of_week_0();
 				my $dow_open = "dow_${dow}_open";