oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix key URL

Browse source
This commit is contained in:
Doug Bell 2010-06-25 15:10:48 -05:00
parent 7af21286c2
commit 4ee85e9239
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Auth/Twitter.pm
View file

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