retain timezone information when building a DateTime object from an epoch timestamp

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15453 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 9b3590c..a90b27c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -817,7 +817,8 @@ sub generate_fines {
                                        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";