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

fix sub to match doc

Browse source
This commit is contained in:
Doug Bell 2010-06-25 18:10:02 -05:00
parent 52ad887163
commit 78f0be42df
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -56,9 +56,9 @@ Create a new Auth::Twitter user with the given twitter userId and screen name.
=cut =cut
sub createTwitterUser { sub createTwitterUser {
my ( $self, $twitterUserId, $twitterScreenName ) = @_; my ( $self, $twitterUserId, $username ) = @_;
my $user = WebGUI::User->create( $self->session ); my $user = WebGUI::User->create( $self->session );
$user->username( $twitterScreenName ); $user->username( $username );
$self->saveParams( $user->userId, $self->authMethod, { $self->saveParams( $user->userId, $self->authMethod, {
"twitterUserId" => $twitterUserId, "twitterUserId" => $twitterUserId,
} ); } );
@ -83,7 +83,7 @@ sub editUserSettingsForm {
my $f = WebGUI::HTMLForm->new( $session ); my $f = WebGUI::HTMLForm->new( $session );
$f->yesNo( $f->yesNo(
name => 'twitterEnabled', name => 'twitterEnabled',
value => $setting->get( 'twitterEnabled' ), value => $setting->get( 'twitterEnabled' ),
label => $i18n->get('enabled'), label => $i18n->get('enabled'),
@ -98,7 +98,7 @@ sub editUserSettingsForm {
subtext => sprintf( $i18n->get('get key'), ($keyUrl) x 2 ), subtext => sprintf( $i18n->get('get key'), ($keyUrl) x 2 ),
); );
$f->text( $f->text(
name => 'twitterConsumerSecret', name => 'twitterConsumerSecret',
value => $setting->get( 'twitterConsumerSecret' ), value => $setting->get( 'twitterConsumerSecret' ),
label => $i18n->get('consumer secret'), label => $i18n->get('consumer secret'),