%# "There is no reason for any individual to have a computer in their home."
%#   -- Ken Olson, President of DEC, World Future Society Convention, 1977

% require RG::Field::Grouping;

<LABEL>
<&|/l&>Period</&>
<& /RG/Elements/Select,
    Name	=> 'FIELD-GRPCOND',
    Choices	=> [
	($field->{GRPCOND} ? () : ('')),
	keys %{$RG::Field::Grouping::grpfmt{$RG::CurrentDriver}},
    ],
    Loc		=> sub {
	loc($_[0]) || $_[0] || '(' . loc("Please choose") . ')'
    },
    Current	=> $field->{GRPCONF} &>
</LABEL>

<& /RG/Elements/VerticalBar &>

<& DATA, %ARGS &>

<%ARGS>
$Id	=> ''
$FID	=> undef
$Field	=> undef
$Descr	=> undef
$Cond	=> undef
$CF
$obj
$dbh
$table
$field
$curfield
$curtable
@tables
</%ARGS>
