[Bps-public-commit] r10918 - RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb 22 14:44:28 2008
New Revision: 10918

Modified:
   RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default

Log:
* use new method

Modified: RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default
==============================================================================
--- RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default	(original)
+++ RT-Authen-Bitcard/html/Callbacks/Bitcard/Elements/Header/Default	Fri Feb 22 14:44:28 2008
@@ -1,11 +1,8 @@
 <%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 . 'index.html' );
-</%INIT>
+return unless $session{'BitcardUser'};
 
-% if ($session{'BitcardUser'}) {
-    | <a href="<% $account_url %>"><&|/l&>Manage Bitcard account</&></a>
-% }
+use RT::Authen::Bitcard;
+my $bc = RT::Authen::Bitcard->handler;
+my $account_url = $bc->account_url( r => $RT::WebURL . 'index.html' );
+</%INIT>
+| <a href="<% $account_url %>"><&|/l&>Manage Bitcard account</&></a>