sub {
my $column = $_[0];
my $selected = $_[0];
my $table = $DB->table("Users");
my %hash;
my $i = 0;
my $names = $table->form_names->{$column};
my $vals = sort $table->form_values->{$column};
for my $val (@$vals) {
$hash{$val} = $names->[$i++];
}
my $html = $DB->html($table, $IN);
my $form = $html->checkbox({
name => "$column",
values => \%hash,
multiple => 1,
value => $selected });
return $form;
}