# A horizontal checkbox fitting the table
# <row_checkbox	title="<b>Wednesday</b>"
#		name=dinner-07-04
# 		descr="Dinner&nbsp;&nbsp;&nbsp;: "
# 		checked="<? if ($row['list']==1) { echo \"checked\";} ?>"
# 		>
<define-tag row_checkbox>
<preserve title descr name checked>
<set-var %attributes>

<if <not <get-var title>>
  <set-var title="&nbsp;">>
<if <not <get-var descr>>
  <set-var descr="&nbsp;">>

<tr><td align=right bgcolor="<colh>"><font face="Helvetica,Arial"><get-var title></font></td>
<td bgcolor="<cold>"><font face="Helvetica,Arial"><get-var descr>
<input name=<get-var name> type=checkbox value="1" <get-var checked>>
</font></td></tr>

<restore title descr name checked>
</define-tag>

# A horizontal radiobox fitting the table
# <row_radiobox	title="<b>Night</b>"
#		name=night
# 		descr_0=no  [optional]
# 		descr_1=yes [optional]
# 		checked_0="<? if ($row['night']==0) { echo \"checked\";} ?>"
# 		checked_1="<? if ($row['night']==1) { echo \"checked\";} ?>"
# 		>
<define-tag row_radiobox>
<preserve title descr_0 descr_1 name checked_0 checked_1>
<set-var %attributes>

<if <not <get-var title>>
  <set-var title="&nbsp;">>
<if <not <get-var descr_0>>
  <set-var descr_0="no">>
<if <not <get-var descr_1>>
  <set-var descr_1="yes">>

<tr><td align=right bgcolor="<colh>"><font face="Helvetica,Arial"><get-var title></font></td>
<td bgcolor="<cold>"><font face="Helvetica,Arial">
<input name=<get-var name> type=radio value="0" <get-var checked_0>> <get-var descr_0>
<input name=<get-var name> type=radio value="1" <get-var checked_1>> <get-var descr_1>
</font></td></tr>

<restore title descr_0 descr_1 name checked_0 checked_1>
</define-tag>

# A horizontal input line fitting the table
# <row_input	name=name
# 		title="<b>Name</b>"
# 		value="<? echo $row['name']; ?>"
# 		size=50   (optional)
# 		maxlength=100   (optional)
# 		>
<define-tag row_input>
<preserve title name value size maxlength>
<set-var %attributes>

<if <not <get-var title>>
  <set-var title="&nbsp;">>
<if <not <get-var size>>
  <set-var size="50">>
<if <not <get-var maxlength>>
  <set-var maxlength="100">>

<tr><td align=right bgcolor="<colh>"><font face="Helvetica,Arial"><get-var title></font></td>
<td bgcolor="<cold>"><font face="Helvetica,Arial"><input name=<get-var name> value="<get-var value>" size=<get-var size> maxlength=<get-var maxlength>></font></td></tr>

<restore title name value size maxlength>
</define-tag>

# A textarea input field fitting the table
# <row_textarea	name=name
# 		title="<b>Name</b>"
# 		value="<? echo $row['name']; ?>"
# 		cols=47   (optional)
# 		rows=5    (optional)
# 		>
<define-tag row_textarea>
<preserve title name value rows cols>
<set-var %attributes>

<if <not <get-var title>>
  <set-var title="&nbsp;">>
<if <not <get-var cols>>
  <set-var cols="47">>
<if <not <get-var rows>>
  <set-var rows="5">>

<tr><td align=right valign=top bgcolor="<colh>"><font face="Helvetica,Arial"><get-var title></font></td>
<td valign=top bgcolor="<cold>"><font face="Helvetica,Arial"><textarea name=<get-var name> cols=<get-var cols> rows=<get-var rows>><get-var value></textarea></font></td></tr>

<restore title name value rows cols>
</define-tag>

# A simple submit/reset button
# <row_submit>
<define-tag row_submit>
<tr>
<td colspan=2 align=center bgcolor="<cold>"><font face="Helvetica,Arial"><b><input type=submit value="<?echo $oid?"Change":"Submit";?>"> <input type=reset value="Reset"></b></font></td></tr>
</define-tag>

# A simple submit/reset button
# <row_submit_plain>
<define-tag row_submit_plain>
<tr>
<td colspan=2 align=center bgcolor="<cold>"><font face="Helvetica,Arial"><b><input type=submit value="Submit"> <input type=reset value="Reset"></b></font></td></tr>
</define-tag>