%# 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' &>
% }
<table width="100%" border="0" cellspacing="4" cellpadding="0" class="tableEmboss">
  <tr>
    <td width="156">&nbsp;</td>
    <td width="14"><img src="/img/3Dtoolbar.png" width="2" height="20"></td>
    <td> 
      <table border="0" cellspacing="2" cellpadding="0" width="594">
        <tr>
	  <td valign="top" width="270">
	  <&|/l&>User</&>:
	  <% $session{CurrentUser}->UserObj->Name %>
% if ($NoUI) {
	  &nbsp;&nbsp;
	  <&|/l&>Member since</&>:
	  <% eval { $OriginObj->CreatedObj->ISO } %>
% }
	  </td>
	</tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr><td>
% $m->print($rv);
  </td></tr>
  <tr><td align="right">
  <input type="submit" value="<&|/l&>Save</&>">
  </td></tr>
</table>

<& /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>
