unified 'create new foo' buttons

This commit is contained in:
nek0 2016-06-04 15:53:51 +02:00
parent bc3e52cb90
commit a6517a399f
2 changed files with 8 additions and 12 deletions

View File

@ -7,16 +7,12 @@ $if null avatars
<h3>
<p>
_{MsgNoAvatars}
<article .article #func>
<a href=@{NewAvatarR}>
<p>_{MsgNewAvatar}
$else
<article .article #func>
<a href=@{NewAvatarR}>
<p>_{MsgNewAvatar}
$forall (Entity aId avatar) <- avatars
<article .article>
<a href=@{ModifyAvatarR aId} style="background-image: url(@{GetAvatarR aId})" .avatar>
<p>#{avatarIdent avatar}
<article .article #func>
<a href=@{NewAvatarR}>
<p>_{MsgNewAvatar}

View File

@ -1,9 +1,5 @@
$doctype 5
<article .article #func>
<a href=@{NewSupplierR}>
<p>_{MsgCreateSupplier}
$forall (Entity sId sup) <- sups
<article .article>
$if supplierAvatar sup /= Nothing
@ -12,3 +8,7 @@ $forall (Entity sId sup) <- sups
$else
<a href=@{SupplierActionsR sId}>
<p>#{supplierIdent sup}
<article .article #func>
<a href=@{NewSupplierR}>
<p>_{MsgCreateSupplier}