my ($self, $user) = @_;
my @tlist;
- if($user && $user ne 'public') {
+ if(ref $user) {
## We have a user object already, so just fetch its traditions and use tose
- foreach my $t (@{ $self->lookup($user)->traditions }) {
+ foreach my $t (@{ $user->traditions }) {
push( @tlist, { 'id' => $self->object_to_id( $t ),
'name' => $t->name } );
}
return @tlist;
+ } elsif($user ne 'public') {
+ die "Passed neither a user object nor 'public' to user_traditionlist";
}
## Search for all traditions which allow public viewing
# 'url' => 'http://castaway.myopenid.com/',
my $username = $userinfo->{url} || $userinfo->{username};
- return $self->lookup(Text::Tradition::User->id_for_user($username));
+ ## No logins if user is deactivated (use lookup to fetch to re-activate)
+ my $user = $self->lookup(Text::Tradition::User->id_for_user($username));
+ return if($user && !$user->active);
+
+ return $user;
}
return if !$username;
- my $user = $self->find_user({ username => $username });
+ my $user = $self->lookup(Text::Tradition::User->id_for_user($username));
return if !$user;
return $user if $user->active;