%# What you don't know can hurt you, only you won't know it.

<% loc($Item->Name) %>
<& /RG/Elements/Select,
    Name	=> $Item->Att,
    Choices	=> [ $Item->Values ],
    Current	=> $Current,
    Loc		=> sub {
	my $text = shift;
	my $loc = loc($text);
	$loc = loc(ucfirst($text)) if $text eq $loc;
	$loc =~ s/--.*//;
	$loc =~ s/\(.*\)//;
	$text .= " ($loc)" if ucfirst($text) ne $loc;
	return $text;
    } &>

<%ARGS>
$Item
$Current
</%ARGS>
