# 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 value>
<set-var %attributes>

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

<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=checkbox value="<get-var value>" <get-var checked>>&nbsp;<get-var descr>
</font></td></tr>

<restore title descr name checked value>
</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 horizontal line with some text fitting the table
# <row_info	title="<b>Name</b>"
# 		value="<? echo $row['name']; ?>"
# 		>
<define-tag row_info>
<preserve title value name>
<set-var %attributes>

<if <not <get-var title>>
  <set-var title="&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 value></font>
<input type=hidden name=<get-var name> value="<get-var value>">
</td></tr>

<restore title value name>
</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
# 		submit=text   (optional)
# 		reset=text    (optional)
# 		>
<define-tag row_submit_plain>
<preserve submit reset>
<set-var %attributes>

<if <not <get-var submit>>
  <set-var submit="Submit">>
<if <not <get-var reset>>
  <set-var reset="Reset">>

<tr>
<td colspan=2 align=center bgcolor="<cold>"><font face="Helvetica,Arial"><b><input type=submit value="<get-var submit>"> <input type=reset value="<get-var reset>"></b></font></td></tr>
<restore submit reset>
</define-tag>

<define-tag row_delim>
<preserve msg>
<set-var %attributes>

<tr>
<td colspan=2 align=left bgcolor="<cold>"><font face="Helvetica,Arial"><get-var msg></font></td></tr>

<restore msg>
</define-tag>

<define-tag row_select>
<?
  function row_select ($title, $name, $choices, $value, $empty)
  {
    $head = '<tr><td align=right bgcolor="<colh>"><font face="Helvetica,Arial"><b>%s</b></font></td>'
	   .'<td bgcolor="<cold>"><font face="Helvetica,Arial"><select name="%s">';
    $foot = '</select>'
	   .'</font></td></tr>';

    printf ($head, $title, $name);

    if ($empty == 1) {
      echo ("<option value=\"\">-- select one --");
    }

    reset ($choices);
    while (list($key, $val) = each($choices)) {
      if ($key == $value) {
	printf ("<option value=\"%s\" selected>%s", $key, $val);
      } else {
	printf ("<option value=\"%s\">%s", $key, $val);
      }
    }

    echo ($foot);
  }
?>
</define-tag>