<%doc>
###############################################################################

=head1 NAME

=head1 VERSION

$LastChangedRevision$

=cut

use Bric; our $VERSION = Bric->VERSION;

=head1 DATE

$LastChangedDate: 2005-10-01 05:11:00 +0200 (Sat, 01 Oct 2005) $

=head1 SYNOPSIS

$m->comp("/widgets/profile/dumpRemainingFields.mc", objVals => $objVals,
fieldsUsed => \@fieldsUsed);

=head1 DESCRIPTION

Called by /admin/profile/user/dhandler (or any profile dhandler) to display
fields not explicitly displayed by profile element.

=cut
</%doc>
<%args>
%fieldsUsed => ()
$objref
$useTable => 1
$readOnly => 0
$localize => 1
</%args>
<%perl>
my $methods = $objref->my_meths(1);
foreach my $meth ( @{$methods} ) {
    unless ( $fieldsUsed{$meth->{name}} ) {
        $m->comp(
            '/widgets/profile/displayFormElement.mc',
            key      => $meth->{name},
            objref   => $objref,
            useTable => $useTable,
            localize => $localize,
            readOnly => $readOnly
		);
    }
}
</%perl>
