You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
3.2 KiB
62 lines
3.2 KiB
{% include "shared/errors.html" %} |
|
<p>{{entry.date-posted}}</p> |
|
<table class="attr"> |
|
<tr> |
|
<th width="80"><label for="title">Title</label></th> |
|
<td><input type="text" name="TITLE" id="title" size="50" value="{{entry.title}}"/></td> |
|
</tr> |
|
<tr> |
|
<th><label for="body">Body</label></th> |
|
<td><textarea name="BODY" id="body" rows="10" cols="45">{{entry.body}}</textarea></td> |
|
</tr> |
|
<tr> |
|
<th><label for="posted-at">Date</label></th> |
|
<td> |
|
<select id="posted-year" name="POSTED-YEAR"> |
|
{{ entry.date-posted |
|
| lisp: (lambda(timestamp) |
|
(let ((year (local-time:timestamp-year (local-time:now)))) |
|
(date-options :start 2000 :end (1+ year) |
|
:target (local-time:timestamp-year timestamp)))) |
|
| safe |
|
}} |
|
</select> |
|
<select id="posted-month" name="POSTED-MONTH"> |
|
{{ entry.date-posted |
|
| lisp: (lambda(timestamp) |
|
(date-options :start 1 :end 12 |
|
:target (local-time:timestamp-month timestamp))) |
|
| safe }} |
|
</select> |
|
<select id="posted-day" name="POSTED-DAY"> |
|
{{ entry.date-posted |
|
| lisp: (lambda(timestamp) |
|
(date-options :start 1 :end 31 |
|
:target (local-time:timestamp-day timestamp))) |
|
| safe }} |
|
</select> |
|
- |
|
<select id="posted-hour" name="POSTED-HOUR"> |
|
{{ entry.date-posted |
|
| lisp: (lambda(timestamp) |
|
(date-options :end 59 :target (local-time:timestamp-hour timestamp))) |
|
| safe }} |
|
</select> |
|
<select id="posted-min" name="POSTED-MIN"> |
|
{{ entry.date-posted |
|
| lisp: (lambda(timestamp) |
|
(date-options :end 59 :target (local-time:timestamp-minute timestamp))) |
|
| safe }} |
|
</select> |
|
</td> |
|
</tr> |
|
<tr> |
|
<th><label for="status">Status</label></th> |
|
<td><select id="status" name="STATUS"> |
|
<option value="draft" selected>Draft</option> |
|
<option value="member-only">Member only</option> |
|
<option value="public">Public</option> |
|
</select> |
|
</td> |
|
</tr> |
|
</table>
|
|
|