[Rt-commit] r7402 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 29 21:27:45 2007
New Revision: 7402

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo

Log:
 r4869 at cubic-pc:  cubic | 2007-03-30 05:15:37 +0400
 * update according to new API, now we support keys with multiple uids


Modified: rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo	Thu Mar 29 21:27:45 2007
@@ -1,11 +1,23 @@
 <&| /Widgets/TitleBox, title => loc('GnuPG private key for [_1]', $EmailAddress) &>
-% if ( $res{'exit_code'} ) {
+% if ( $res{'exit_code'} || !keys %{ $res{'info'} } ) {
 <% loc('No private key') %>
 % } else {
 <table>
-<tr><th><% loc('User') %>:</th>   <td><% $res{'info'}{'User'} %></td></tr>
-<tr><th><% loc('Created') %>:</th><td><% $res{'info'}{'Created'} %></td></tr>
-<tr><th><% loc('Expire') %>:</th>  <td><% $res{'info'}{'Expire'} %></td></tr>
+
+<tr><th><% loc('Created') %>:</th>
+<td><% $res{'info'}{'Created'}? $res{'info'}{'Created'}->AsString( Time => 0 ): loc('never') %></td></tr>
+
+<tr><th><% loc('Expire') %>:</th>
+<td><% $res{'info'}{'Expire'}? $res{'info'}{'Expire'}->AsString( Time => 0 ): loc('never') %></td></tr>
+
+% foreach my $uinfo( @{ $res{'info'}{'User'} } ) {
+<tr><th><% loc('User (created - expire)') %>:</th>
+<td><% $uinfo->{'String'} %>\
+(<% $uinfo->{'Created'}->AsString( Time => 0 ) %> - \
+<% $uinfo->{'Expire'}? $uinfo->{'Expire'}->AsString( Time => 0 ): loc('never') %>)
+</td></tr>
+% }
+
 </table>
 % }
 </&>