%# Never call a man a fool; borrow from him.
% if ($UserObj->IsPublic('RealName')) { % } % if ($UserObj->IsPublic('PersonalHomepage')) { % } % if ($UserObj->IsPublic('Email')) { % my $Email = $UserObj->EmailAddress; % $Email =~ s{\@}{ at }; % } % if ($UserObj->IsPublic('Intro')) { % }
<&|/l&>Personal Info
<&|/l&>User Id <% $UserObj->Id %>
<&|/l&>Login Name <% $UserObj->Name %>
<&|/l&>Real Name <% $UserObj->RealName %>
<&|/l&>Personal Homepage <% $UserObj->OriginObj->CustomFieldValue('PersonalHomepage') %>
<&|/l&>Email<% $Email %>
<&|/l&>Member Since <% eval { $UserObj->OriginObj->CreatedObj->ISO } %>
<&|/l&>About Me <% $UserObj->OriginObj->Transactions->First->Content %>
% while (my $queue = $Queues->Next) { % my $IsAdmin = $queue->HasAdminCc($UserObj); % next unless $IsAdmin or $queue->HasCc($UserObj); % my $bg = 'ffffff'; % my $clicky = ''; % }
<&|/l&>Involved Projects
<&|/l&>Name <&|/l&>Role
<% $queue->Name %> <% loc($IsAdmin ? 'Admin' : 'Member') %>
<%INIT> my $Queues = RT::Queues->new($session{'CurrentUser'}); $Queues->LimitToEnabled; <%ARGS> $UserObj