28 lines
677 B
Text
Executable file
28 lines
677 B
Text
Executable file
$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})" .avatar>
|
|
<p>#{userIdent user}
|
|
$else
|
|
<a href=@{SelectR uId}>
|
|
<p>#{userIdent user}
|
|
|
|
<article .article #func>
|
|
<a href=@{ReactivateR}>
|
|
<p>_{MsgReactivateOldUser}
|
|
|
|
<form action=@{HomeBarcodeR} method=GET>
|
|
<input type=hidden #barcodeInput name=barcode>
|