[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]