diff --git a/lib/PostText/Model/Remark.pm b/lib/PostText/Model/Remark.pm new file mode 100644 index 0000000..92a2019 --- /dev/null +++ b/lib/PostText/Model/Remark.pm @@ -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;