25 lines
578 B
Text
25 lines
578 B
Text
$doctype 5
|
|
|
|
$if null beverages
|
|
<h1>!!!MATEKALYPSE!!!
|
|
|
|
<article .article #func>
|
|
<a href=@{SelectCashR}>
|
|
<p>_{MsgPayCash}
|
|
|
|
<article .article #func>
|
|
<a href=@{NewUserR}>
|
|
<p>_{MsgCreateUser}
|
|
|
|
$forall (Entity uId user) <- users
|
|
<article .article>
|
|
$if userAvatar user /= Nothing
|
|
<a href=@{SelectR uId} style="background-image: url(@{GetAvatarR $ fromJust $ userAvatar user})">
|
|
<p>#{userIdent user}
|
|
$else
|
|
<a href=@{SelectR uId}>
|
|
<p>#{userIdent user}
|
|
|
|
<article .article #func>
|
|
<a href=@{ReactivateR}>
|
|
<p>_{MsgReactivateOldUser}
|