42 lines
1.5 KiB
Plaintext
42 lines
1.5 KiB
Plaintext
$newline never
|
|
|
|
$maybe ident <- identSecret
|
|
<input type=hidden name=#{fieldName} id=#{fieldId}--ident value=#{ident}>
|
|
|
|
$if not (null fileInfos)
|
|
<div .file-uploads-label>_{MsgPreviouslyUploadedInfo}
|
|
<ul .list--iconless .file-input__list>
|
|
$forall FileUploadInfo{..} <- fileInfos
|
|
<li>
|
|
<div .file-container>
|
|
<input type=checkbox id=#{fuiHtmlId} name=#{fieldName} :fuiChecked:checked value=#{toPathPiece fuiId} :fuiForced:readonly>
|
|
$if fuiSession
|
|
^{messageTooltip uploadOnlySessionMessage}
|
|
<label for=#{fuiHtmlId}>
|
|
#{fuiTitle}
|
|
|
|
<div .file-input__info>
|
|
_{MsgPreviouslyUploadedDeletionInfo}
|
|
|
|
<div .file-uploads-label>_{MsgAddMoreFiles}
|
|
|
|
$# new files
|
|
<input type="file" uw-file-input name=#{fieldName} id=#{fieldId} :fieldMultiple:multiple :acceptRestricted:accept=#{accept} :req && null fileInfos:required>
|
|
|
|
$if fieldMultiple
|
|
<div .file-input__info>
|
|
_{MsgMultiFileUploadInfo}
|
|
|
|
$maybe exts <- fmap toNullable fieldRestrictExtensions
|
|
<div .file-input__info>
|
|
_{MsgUploadModeExtensionRestriction}: #
|
|
<ul .list--inline .list--comma-separated .list--iconless>
|
|
$forall ext <- bool id (mappend zipExtensions) mayUnpack exts
|
|
<li style="font-family: monospace">#{ext}
|
|
|
|
$if not (fieldOptionForce fieldUnpackZips)
|
|
<div .file-input__unpack>
|
|
^{iconTooltip (i18n MsgAutoUnzipInfo) Nothing False}
|
|
<label for=#{fieldId}_zip>_{MsgAutoUnzip}
|
|
<input type=checkbox id=#{fieldId}--zip name=#{fieldName} value=#{unpackZips} :fieldOptionDefault fieldUnpackZips:checked>
|