nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

hide reactivate button, when there's nothing to reactivate.

Browse source
This commit is contained in:
nek0 2017-05-16 00:25:33 +02:00
parent daf9f838c8
commit 8980d99f7e
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Handler/Home.hs
View file

@ -31,6 +31,7 @@ getHomeR = do
beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
today <- liftIO $ utctDay <$> getCurrentTime today <- liftIO $ utctDay <$> getCurrentTime
users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent] users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent]
ousers <- runDB $ selectList [UserTimestamp <. addDays (-30) today] [Asc UserIdent]
defaultLayout $ do defaultLayout $ do
addScript $ StaticR js_barcode_js addScript $ StaticR js_barcode_js
$(widgetFile "home") $(widgetFile "home")

3
templates/home.hamlet
View file

@ -20,7 +20,8 @@ $forall (Entity uId user) <- users
<a href=@{NewUserR}> <a href=@{NewUserR}>
<p>_{MsgCreateUser} <p>_{MsgCreateUser}
<article .article #func> $if not (null ousers)
<article .article #func>
<a href=@{ReactivateR}> <a href=@{ReactivateR}>
<p>_{MsgReactivateOldUser} <p>_{MsgReactivateOldUser}