From: Eugene Crosser <crosser@average.org>
Date: Wed, 23 Dec 2015 18:11:32 +0000 (+0300)
Subject: fix time interval selection
X-Git-Url: http://www.average.org/gitweb/?p=pulsecounter.git;a=commitdiff_plain;h=b246f5335d4cd6747f1ead82f7037d3e5d8dbd15;ds=sidebyside

fix time interval selection
---

diff --git a/web/index.html b/web/index.html
index 2041d70..51a8da9 100644
--- a/web/index.html
+++ b/web/index.html
@@ -13,6 +13,11 @@
   var xzero = 20, yzero = 20;
   var cold_d = [], hot_d = [];
 
+  function showdate(utime) {
+    var dt = new Date(utime*1000);
+    return dt.toLocaleDateString() + " " + dt.toLocaleTimeString();
+  }
+
   function getcomb(lo, hi) {
     var comb = [], lb = [];
     var d = hi - lo;
@@ -142,6 +147,8 @@
       (data.current.hot / 100).toFixed(2);
     tmin = data.range.lo;
     tmax = data.range.hi;
+    dbg.innerHTML = "from " + tmin + " to " + tmax
+                  + "<br>from " + showdate(tmin) + " to " + showdate(tmax);
     /* differetiate() updates hmax */
     hmax = 0;
     cold_d = differentiate(data.cold);
@@ -156,7 +163,7 @@
   }
 
   function sendquery(lo, hi) {
-    var url = "query.cgi" + "?lo=" + iso2qu(lo) + "&" + iso2qu(hi);
+    var url = "query.cgi" + "?lo=" + iso2qu(lo) + "&hi=" + iso2qu(hi);
 
     //dbg.innerHTML = url;
     xmlhttp.onreadystatechange = function() {
diff --git a/web/query.cgi b/web/query.cgi
index 9671276..839f788 100755
--- a/web/query.cgi
+++ b/web/query.cgi
@@ -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