X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FAuth%2FUser.pm;h=c5738c3db3c464e93eedd23112e3788450998f41;hb=1589baf3e90bbc7f1305e9691185188e15f326b9;hp=490f188b301db67eafb344bf4f487684c70e5b59;hpb=49c23244b1ba61909b726bb9189665a33027a1af;p=ndwebbie.git diff --git a/lib/NDWeb/Auth/User.pm b/lib/NDWeb/Auth/User.pm index 490f188..c5738c3 100644 --- a/lib/NDWeb/Auth/User.pm +++ b/lib/NDWeb/Auth/User.pm @@ -3,8 +3,7 @@ package NDWeb::Auth::User; use strict; use warnings; use Data::Dumper; -use base qw/Catalyst::Authentication::User/; -use base qw/Class::Accessor::Fast/; +use base qw/Class::Accessor::Fast Catalyst::Authentication::User/; BEGIN { __PACKAGE__->mk_accessors(qw//); @@ -32,7 +31,7 @@ sub load { if (exists $authinfo->{id}){ $self->{id} = $dbh->selectrow_array(q{ - SELECT uid FROM users WHERE lower(username) = lower(?) + SELECT uid FROM users WHERE username = ? },undef,$authinfo->{id}); }elsif (exists $authinfo->{uid}){ $self->{id} = $authinfo->{uid}; @@ -43,7 +42,7 @@ sub load { } ($self->{planet},$self->{username},$self->{css}) = $dbh->selectrow_array(q{ - SELECT planet,username,css FROM users WHERE uid = ? + SELECT pid,username,css FROM users WHERE uid = ? },undef,$self->{id}) or die $dbh->errstr; return $self;