The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Parley::ResultSet::Forum;
# vim: ts=8 sts=4 et sw=4 sr sta
use strict;
use warnings;

use Parley::Version;  our $VERSION = $Parley::VERSION;

use base 'DBIx::Class::ResultSet';

# list of available forums (for menus and search-drop-downs)
sub available_list {
    my ($resultsource) = @_;
    my ($rs);

    $rs = $resultsource->search(
        {
            active  => 1,
        },
        {
            order_by    => [\'name ASC'],
        }
    );

    return $rs;
}

sub forum_list {
    my ($resultsource) = @_;
    my ($rs);

    $rs = $resultsource->search(
        {
            active => 1,
        },
        {
            'order_by'  => [\'me.id ASC'],
            prefetch => [
                {'last_post' => { 'creator' => 'authentication' } },
            ],
        }
    );

    return $rs;
}

sub record_from_id {
    my ($resultsource, $forum_id) = @_;
    my ($rs);

    $rs = $resultsource->find(
        {
            'me.id'  => $forum_id,
        },
        {
            prefetch => [
                'last_post',
            ],
        }
    );

    return $rs;
}

1;