%# Real programmers don't write in BASIC.  Actually, no programmers write
%# in BASIC after reaching puberty.
<& /Edit/Elements/List,
    Data  => [
	[ '', loc('Name'),       sub { $_[0]->Name } ],
	[ '', loc('Real Name'),       sub { $_[0]->RealName } ],
	[ '', loc('Email'),       sub {
	    return $_[0]->EmailAddress;
	    # ||
	    do {
		my $m = eval {
		    $_[0]->OriginObj->CustomFieldValue('Email')
		};
		if ($m) {
		    #my $u = RT::User->new($session{CurrentUser});
		    #print "Dup!", $u->Name if $u->LoadByEmail($m);
		    #$u->SetEmailAddress('') if $u->LoadByEmail($m);
		    #print "!";
		    print $_[0]->SetEmailAddress("$m..");
		}
		return '';
		#$m;
	    };
	} ],
    ],
    Link    => sub {
	"/Edit/Users/index.html?Begin=$Begin&Show=$ARGS->{Show}&User=" . $_[0]->Id
    },
    Size    => 14,
    Delete  => sub { !$_[0]->Disabled },
    %ARGS,
&>
<%ARGS>
$Begin	=> 0
$ARGS	=> {}
</%ARGS>
