LP#1485374: Allow server timezone via CStoreEditor

In a few cases, the server's timezone is preferable to the client's.
One such case is display of due dates for circulations in My Account,
so we provide a way to signal that we want to use the server's timezone,
and so signal.

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
index d1a935e..e381b21 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
@@ -797,6 +797,8 @@ sub runmethod {
         $method .= '.atomic';
     }
 
+    local $ENV{TZ} = $$options{no_tz} ? undef : $ENV{TZ};
+
     $method =~ s/search/id_list/o if $options->{idlist};
 
     $method =~ s/\.atomic$//o if $self->substream($$options{substream} || 0);

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 3dae3bf..6af275f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -1415,7 +1415,7 @@ sub fetch_user_circs {
 
     $e->xact_begin;
     my $circs = $e->search_action_circulation(
-        [{id => \@circ_ids}, ($flesh) ? $qflesh : {}], {substream => 1});
+        [{id => \@circ_ids}, ($flesh) ? $qflesh : {}], {substream => 1, no_tz => 1});
 
     my @circs;
     for my $circ (@$circs) {