<table>
<tr>
<td>
<&|/l&>Available Columns</&>:
</td>
<td>
Format:
</td>
<td></td>
<td>
<&|/l&>Show Columns</&>:
</td>
<tr>
<td valign=top>
<select size="6" name="SelectDisplayColumns" multiple>
% my $i = 0;
% while ($i < scalar @$AvailableColumns) {
% my $field = $AvailableColumns->[$i];
% if ($field) {
<option value=<%$i%>
><%$field%></option>
% }
% $i++;
% }
</select>
</td>
<td>
Link:
<select name=Link>
<option value="None">-</option>
<option value="Display">Display</option>
<option value="Take">Take</option>
</select>
<br>Title: <input name="Title" size=10>
<br>Size:
<select name=Size>
<option value="">-</option>
<option value="Small">Small</option>
<option value="Large">Large</option>
</select>
<br>Face:
<select name=Face>
<option value="">-</option>
<option value="Bold">Bold</option>
<option value="Italic">Italic</option>
</select>
</td>
<td>
<input type=submit name="AddCol" value="->">
</td>
<td valign=top>
<select size=4 name="CurrentDisplayColumns" style="width : 100%">
% $i = 0;
% while ($i < scalar @$CurrentFormat) {
% my $field = $CurrentFormat->[$i];
% if ($field) {
<option value=<%$i%>><%$field->{Column}%></option>
% }
% $i++;
% }
</select>
<br>
<center>
<input type="submit" name="ColUp" value="^">
<input type="submit" name="ColDown" value="v">
<input type="submit" name="RemoveCol" value="<%loc('Delete')%>">
</center>
</td>
<td colspan=3 align=center>
</td>
</tr>
</table>

<%ARGS>
$CurrentFormat => undef
$AvailableColumns => undef
</%ARGS>
