[Rt-commit] r9899 - in rt/branches/3.7-RTIR-RELENG/html/Admin: Elements

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec 11 19:22:19 2007
New Revision: 9899

Added:
   rt/branches/3.7-RTIR-RELENG/html/Admin/Users/GnuPG.html
Modified:
   rt/branches/3.7-RTIR-RELENG/html/Admin/Elements/UserTabs
   rt/branches/3.7-RTIR-RELENG/html/Admin/Users/Modify.html

Log:
* move User's gnupg things into its own page

Modified: rt/branches/3.7-RTIR-RELENG/html/Admin/Elements/UserTabs
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/html/Admin/Elements/UserTabs	(original)
+++ rt/branches/3.7-RTIR-RELENG/html/Admin/Elements/UserTabs	Tue Dec 11 19:22:19 2007
@@ -69,13 +69,16 @@
 	       'MyRT' => { title => loc('RT at a glance'),
 			   path => "Admin/Users/MyRT.html?id=".$id
 			 },
-#	       Scrips => { title => loc('Rights'),
-#			   path => "Admin/Users/Rights.html?id=".$id
-#			 }
-	       
 	}
+};
+    if ( RT->Config->Get('GnuPG')->{'Enable'} ) {
+        $tabs->{'this'}{'subtabs'}{'GnuPG'} = {
+            title => loc('GnuPG'),
+            path  => "Admin/Users/GnuPG.html?id=".$id,
+        };
+    }
 }
-}
+
 if ($session{'CurrentUser'}->HasRight( Object => $RT::System, Right => 'AdminUsers')) {
   $tabs->{"A"} = { title => loc('Select user'),
   		     	path => "Admin/Users/",

Added: rt/branches/3.7-RTIR-RELENG/html/Admin/Users/GnuPG.html
==============================================================================
--- (empty file)
+++ rt/branches/3.7-RTIR-RELENG/html/Admin/Users/GnuPG.html	Tue Dec 11 19:22:19 2007
@@ -0,0 +1,28 @@
+<& /Admin/Elements/Header, Title => $title  &>
+<& /Admin/Elements/UserTabs, 
+    id          => $id, 
+    UserObj     => $UserObj,
+    current_tab => 'Admin/Users/GnuPG.html?id='. $id,
+    Title       => $title,
+&>
+
+<& /Elements/ListActions, actions => \@results &>
+
+% if ( my $email = $UserObj->EmailAddress ) {
+<& /Admin/Elements/ShowKeyInfo, EmailAddress => $email &>
+% }
+
+<%ARGS>
+$id => undef
+</%ARGS>
+<%INIT>
+return unless RT->Config->Get('GnuPG')->{'Enable'};
+
+my @results;
+
+my $UserObj = RT::User->new( $session{'CurrentUser'} );
+$UserObj->Load( $id );
+
+my $title = loc("User's GnuPG keys");
+
+</%INIT>

Modified: rt/branches/3.7-RTIR-RELENG/html/Admin/Users/Modify.html
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/html/Admin/Users/Modify.html	(original)
+++ rt/branches/3.7-RTIR-RELENG/html/Admin/Users/Modify.html	Tue Dec 11 19:22:19 2007
@@ -234,10 +234,6 @@
 </&>
 % }
 
-% if ( RT->Config->Get('GnuPG')->{'Enable'} && (my $email = $UserObj->EmailAddress )) {
-<& /Admin/Elements/ShowKeyInfo, EmailAddress => $email &>
-% }
-
 </td>
 </tr>
 </table>