Add Remark model
This commit is contained in:
parent
7088480a9a
commit
9062d983b4
32
lib/PostText/Model/Remark.pm
Normal file
32
lib/PostText/Model/Remark.pm
Normal file
|
@ -0,0 +1,32 @@
|
|||
#!/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 replies
|
||||
WHERE thread_id = ?
|
||||
AND NOT hidden_status
|
||||
ORDER BY remark_date ASC;
|
||||
END_SQL
|
||||
}
|
||||
|
||||
1;
|
Loading…
Reference in a new issue