25 lines
727 B
Plaintext
25 lines
727 B
Plaintext
<section>
|
|
$maybe summary' <- summary
|
|
<h2>
|
|
#{summary'}
|
|
<p>
|
|
#{content}
|
|
|
|
$maybe (((_, modifyView), modifyEnctype), modifyTranss, ((_, addTransView), addTransEnctype)) <- forms
|
|
<section>
|
|
<h2>_{MsgSystemMessageEdit}
|
|
<form method=post action=@{MessageR cID} enctype=#{modifyEnctype}>
|
|
^{modifyView}
|
|
|
|
<section>
|
|
<h2>_{MsgSystemMessageAddTranslation}
|
|
<form method=post action=@{MessageR cID} enctype=#{addTransEnctype}>
|
|
^{addTransView}
|
|
|
|
$if not (null modifyTranss)
|
|
<section>
|
|
<h2>_{MsgSystemMessageEditTranslations}
|
|
$forall ((_, transView), transEnctype) <- modifyTranss
|
|
<form method=post action=@{MessageR cID} enctype=#{transEnctype}>
|
|
^{transView}
|