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.
96 lines
2.9 KiB
96 lines
2.9 KiB
<table class="attr"> |
|
<tr> |
|
<th><label for="user-number">Number</label></th> |
|
<td><input size="8" type="text" name="number" |
|
value="{{user.number}}" id="user-number"/></td> |
|
</tr> |
|
<tr> |
|
<th><label for="user-name">Name</label></th> |
|
<td><input type="text" name="name" |
|
value="{{user.name}}" |
|
id="user-name"/></td> |
|
</tr> |
|
<tr> |
|
<th><label for="user-full-name">Full Name</label></th> |
|
<td><input type="text" value="{{user.full-name}}" |
|
name="full-name" id="user-full-name"/></td> |
|
</tr> |
|
<tr> |
|
<th>Sex</th> |
|
<td> |
|
<input type="radio" value="1" |
|
{% ifequal user.sex 1 %}checked="checked"{% endifequal %} |
|
name="sex" id="member-sex-1"/> |
|
<label for="member-sex-1">Male</label> |
|
<input type="radio" value="2" |
|
{% ifequal user.sex 2 %}checked="checked"{% endifequal %} |
|
name="sex" id="member-sex-2"/> |
|
<label for="member-sex-2">Female</label> |
|
</td> |
|
</tr> |
|
|
|
<tr> |
|
<th><label for="user-email">Email</label></th> |
|
<td><input type="text" name="email" id="user-email"/></td> |
|
</tr> |
|
<tr> |
|
<th>Administration</th> |
|
<td> |
|
<input name="administrator" type="hidden" value="0"/> |
|
<input type="checkbox" value="1" name="administrator" id="user-administrator"/> |
|
<label for="user-administrator">Administrator</label> |
|
</td> |
|
</tr> |
|
|
|
<tr> |
|
<th><label for="user-birthday">Birthday</label></th> |
|
<td> |
|
<select id="member-birthday-li" name="birthday-year"> |
|
{{ user.birthday |
|
| lisp: (lambda(timestamp) |
|
(let((current-year(local-time:timestamp-year(local-time:now)))) |
|
(loop :for i :upfrom 1940 :to current-year |
|
:with target = (or (and timestamp |
|
(local-time:timestamp-year timestamp)) |
|
(- current-year 20)) |
|
:collect (format nil "<option value=\"~D\"~@[ ~A~]>~2:*~D</option>~%" |
|
i (when(= target i) |
|
"selected=\"selected\""))))) |
|
| join:"" |
|
| safe |
|
}} |
|
</select> |
|
<select id="member-birthday-2i" name="birthday-month"> |
|
{{ user.birthday |
|
| lisp: (lambda(timestamp) |
|
(loop :for i :upfrom 1 to 12 |
|
:with target = (or (and timestamp |
|
(local-time:timestamp-month timestamp)) |
|
1) |
|
:collect (format nil "<option value=\"~D\"~@[ ~A~]>~A</option>~%" |
|
i (when(= target i) |
|
"selected=\"selected\"") |
|
(aref local-time:+month-names+ i)))) |
|
| join:"" |
|
| safe |
|
}} |
|
</select> |
|
<select id="birthday-3i" name="birthday-day"> |
|
{{ user.birthday |
|
| lisp: (lambda(timestamp) |
|
(loop :for i :upfrom 1 to 31 |
|
:with target = (or (and timestamp |
|
(local-time:timestamp-day timestamp)) |
|
1) |
|
:collect (format nil "<option value=\"~D\"~@[ ~A~]>~2:*~D</option>~%" |
|
i (when(= target i) |
|
"selected=\"selected\"")))) |
|
| join:"" |
|
| safe |
|
}} |
|
</select> |
|
</td> |
|
</tr> |
|
|
|
|
|
</table>
|
|
|