[perl options]
my $elements = '';
for my $option (@{$Tag->query({sql
=> "SELECT o_group,o_label,o_value,o_widget FROM options WHERE sku='[item-code]' ORDER BY o_sort"})}) {
my $o_label = $Tag->loc('', $option->[1]);
$elements .= qq(
);
}
return $elements;
[/perl]