[Rt-commit] r3606 - in RT-Authen-Bitcard: . html/Callbacks/Bitcard/Elements/Header

[kevinr at bestpractical.com]

Author: kevinr
Date: Thu Aug  4 17:54:39 2005
New Revision: 3606

Added:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default
Modified:
   RT-Authen-Bitcard/   (props changed)
Log:
 r6911 at SAD-GIRL-IN-SNOW:  kevinr | 2005-08-04 17:54:00 -0400
 * Adds a "manage my account" link if you're logged in with credentials from 
 Bitcard


Added: RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default
==============================================================================
--- (empty file)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default	Thu Aug  4 17:54:39 2005
@@ -0,0 +1,11 @@
+<%INIT>
+  use Authen::Bitcard;
+  my $bc = Authen::Bitcard->new;
+  die 'No Bitcard auth token provided as $BitcardToken in the RT configuration file on this server' unless $RT::BitcardToken;
+  $bc->token($RT::BitcardToken);
+  my $account_url = $bc->account_url( r => $RT::WebURL );
+</%INIT>
+
+% if ($session{'BitcardUser'}) {
+    | <a href="<% $account_url %>"><&|/l&>Manage Bitcard account</&></a>
+% }