%# President Reagan has noted that there are too many economic pundits and
%# forecasters and has decided on an excess prophets tax.
% if (!$NoUI) {
<& /Work/Elements/104Header, Title => 'Preferences', Method => 'Post' &>
% }
|
 |
<&|/l&>User&>:
<% $session{CurrentUser}->UserObj->Name %>
% if ($NoUI) {
<&|/l&>Member since&>:
<% eval { $OriginObj->CreatedObj->ISO } %>
% }
|
|
<& /Work/Elements/104Footer &>
<%INIT>
my $OriginObj;
if ($NoUI) {
$OriginObj = $session{CurrentUser}->UserObj->OriginObj;
$ARGS{OriginObj} = $OriginObj;
}
my $rv = $m->scomp('Info', %ARGS);
%INIT>
<%ARGS>
$Category => ''
$Begin => 0
$Prefix => ''
$Queue => ''
$NoUI => 0
$CurrentUser => $session{'CurrentUser'}->UserObj
%ARGS>