From 8980d99f7e0c542dd75f1f16c9fa6b68c7c3f0a9 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 16 May 2017 00:25:33 +0200
Subject: [PATCH] hide reactivate button, when there's nothing to reactivate.

---
 Handler/Home.hs       | 1 +
 templates/home.hamlet | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index b6a6865..419336e 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -31,6 +31,7 @@ getHomeR = do
   beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
   today <- liftIO $ utctDay <$> getCurrentTime
   users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent]
+  ousers <- runDB $ selectList [UserTimestamp <. addDays (-30) today] [Asc UserIdent]
   defaultLayout $ do
     addScript $ StaticR js_barcode_js
     $(widgetFile "home")
diff --git a/templates/home.hamlet b/templates/home.hamlet
index d1763eb..be953aa 100644
--- a/templates/home.hamlet
+++ b/templates/home.hamlet
@@ -20,9 +20,10 @@ $forall (Entity uId user) <- users
   <a href=@{NewUserR}>
     <p>_{MsgCreateUser}
 
-<article .article #func>
-  <a href=@{ReactivateR}>
-    <p>_{MsgReactivateOldUser}
+$if not (null ousers)
+  <article .article #func>
+    <a href=@{ReactivateR}>
+      <p>_{MsgReactivateOldUser}
 
 <form action=@{HomeBarcodeR} method=GET>
   <input type=hidden #barcodeInput name=barcode>