-sub def_log {
- my ($c,$call, $message) = @_;
- my $log = $c->model->prepare(q{
-INSERT INTO forum_posts (ftid,uid,message) VALUES(
- (SELECT ftid FROM calls WHERE call = $3),$1,$2)
- });
- $log->execute($c->uid,$message,$call);
-}
-
-sub _build_roles {
- my ($self) = @_;
-
- my $query = $self->model->prepare(q{
-SELECT role FROM group_roles
-WHERE gid IN (SELECT gid FROM groupmembers JOIN users USING (uid)
- WHERE hostmask = $1)
- });
- $query->execute($self->host);
-
- my @roles;
- while (my $group = $query->fetchrow_hashref){
- push @roles,$group->{role};
- }
- return Set::Object->new(@roles);