fix sub to match doc

This commit is contained in:
Doug Bell 2010-06-25 18:10:02 -05:00
parent 52ad887163
commit 78f0be42df

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,
} ); } );