33 lines
805 B
Perl
33 lines
805 B
Perl
#!/usr/bin/env perl
|
|
|
|
package PostText::Model::Remark;
|
|
|
|
use Mojo::Base -base, -signatures;
|
|
|
|
has 'pg';
|
|
|
|
sub new($class, $pg, $pg_reference) {
|
|
bless {
|
|
$pg => $pg_reference,
|
|
remarks_per_page => 5,
|
|
date_format => 'Dy Mon FMDD HH24:MI TZ YYYY'
|
|
}, $class
|
|
}
|
|
|
|
sub get_remarks_by_thread_id($self, $thread_id) {
|
|
my $date_format = %$self{'date_format'};
|
|
|
|
$self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hashes();
|
|
SELECT remark_id AS id,
|
|
TO_CHAR(remark_date, ?) AS date,
|
|
remark_author AS author,
|
|
remark_body AS body
|
|
FROM remarks
|
|
WHERE thread_id = ?
|
|
AND NOT hidden_status
|
|
ORDER BY remark_date ASC;
|
|
END_SQL
|
|
}
|
|
|
|
1;
|