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//);
}
($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;