From 4ee85e9239bcfbf26ebc9736c3760a0722970ac5 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 25 Jun 2010 15:10:48 -0500
Subject: [PATCH] fix key URL

---
 lib/WebGUI/Auth/Twitter.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/WebGUI/Auth/Twitter.pm b/lib/WebGUI/Auth/Twitter.pm
index b257bf3a3..52ecd8547 100644
--- a/lib/WebGUI/Auth/Twitter.pm
+++ b/lib/WebGUI/Auth/Twitter.pm
@@ -79,6 +79,8 @@ sub editUserSettingsForm {
     my ( $setting ) = $session->quick(qw( setting ));
     my $i18n = WebGUI::International->new( $session, 'Auth_Twitter' );
 
+    my $keyUrl  = 'http://dev.twitter.com/apps/new';
+
     my $f = WebGUI::HTMLForm->new( $session );
 
     $f->yesNo( 
@@ -232,6 +234,7 @@ sub www_callback {
     }
 
     # Otherwise ask them for a new username to use
+    my $i18n = WebGUI::International->new( $session, 'Auth_Twitter' );
     $scratch->set( "AuthTwitterUserId", $twitterUserId );
     my $tmpl    = $self->getTemplateChooseUsername;
     my $var     = {
@@ -254,6 +257,7 @@ sub www_setUsername {
     my ( $self ) = @_;
     my $session = $self->session;
     my ( $form, $scratch, $db ) = $session->quick(qw( form scratch db ));
+    my $i18n = WebGUI::International->new( $session, 'Auth_Twitter' );
 
     my $username    = $form->get('newUsername');
     if ( !WebGUI::User->newByUsername( $session, $username ) ) {