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

allow twitter enable/disable from settings

Browse source
This commit is contained in:
Doug Bell 2010-06-25 12:52:52 -05:00
parent f522d9e69d
commit a2e246705f
3 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -19,6 +19,36 @@ sub createTwitterUser {
return $user;
}
sub editUserSettingsForm {
my $self = shift;
my $session = $self->session;
my ( $setting ) = $session->quick(qw( setting ));
my $f = WebGUI::HTMLForm->new( $session );
$f->yesNo(
name => 'twitterEnabled',
value => $settings->get( 'twitterEnabled' ),
label => 'Enabled?',
hoverHelp => 'Enabled Twitter-based login',
);
return $f->printRowsOnly;
}
sub editUserSettingsFormSave {
my $self = shift;
my $session = $self->session;
my ( $form, $setting ) = $session->quick(qw( form setting ));
my @fields = qw( twitterEnabled );
for my $field ( @fields ) {
$setting->set( $field, $form->get( $field ) );
}
return;
}
sub www_login {
my ( $self ) = @_;
my $session = $self->session;