validateEntries entries names =
    foldl' (\bs (v,st) ->
                --let st' = "maintenance works in "++ st
                if v >= 0 then bs
                else (Right ("The value entered for "++ st ++ " is not valid"))) (Left uevls) evals
    where evals     = zip (map entVal entries) names
          (uevls,_) = unzip evals
-------------------------------------------------------------------------------------
-- advanced options box for the display
--- tis shoulw be loaded from settings
validateEntries entries names =
    foldl' (\bs (v,st) ->
                --let st' = "maintenance works in "++ st
                if v >= 0 then bs
                else (Right ("The value entered for "++ st ++ " is not valid"))) (Left uevls) evals
    where evals     = zip (map entVal entries) names
          (uevls,_) = unzip evals
-------------------------------------------------------------------------------------
-- advanced options box for the display
--- tis shoulw be loaded from settings
validateEntries entries names =
    foldl' (\bs (v,st) ->
                --let st' = "maintenance works in "++ st
                if v >= 0 then bs
                else (Right ("The value entered for "++ st ++ " is not valid"))) (Left uevls) evals
    where evals     = zip (map entVal entries) names
          (uevls,_) = unzip evals
-------------------------------------------------------------------------------------
-- advanced options box for the display
--- tis shoulw be loaded from settings