%# Every nonzero finite dimensional inner product space has an orthonormal basis.
%# It makes sense, when you don't think about it.

% require RG::Field::Statistics;
% no strict 'refs';

<LABEL>
<&|/l&>Statistics Function</&>
<& /RG/Elements/Select,
    Name	=> 'FIELD-FUNC',
    Choices	=> [
	($field->{FUNC} ? () : ('')),
	sort grep /^[A-Z].*[a-z]/, keys %{'RG::Field::Statistics::'},
    ],
    Loc		=> sub {
	loc($_[0]) || $_[0] || '(' . loc("Please choose") . ')'
    },
    Current	=> $field->{FUNC} &>
</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>
