fix time interval selection
[pulsecounter.git] / web / query.cgi
index 967127650427e5fda18d04e8a2b27d2bec937f7b..839f7885faf7ea19016e7b344762655314feb50c 100755 (executable)
@@ -30,6 +30,7 @@ cgiMain = do
                                               , connectPassword = pass conf
                                               , connectDatabase = dbnm conf
                                               }
+  _ <- liftIO $ execute_ conn "set time_zone = '+00:00';";
   today <- liftIO getClockTime
   let tomorrow = addToClockTime (noTimeDiff {tdDay = 1}) today
       daystart x = (toUTCTime x) { ctHour = 0, ctMin = 0