swaggboi/PostText
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Clean up date format stuff

Browse source
This commit is contained in:
swagg boi 2022-08-22 01:24:34 -04:00
parent b925f5c118
commit bf5a320e3e
3 changed files with 38 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -27,4 +27,3 @@ Run the tests locally (against development environment)
1. Reply model needs to become Remark (to fix the error handling stuff)
1. Add hyperlink somewhere to single thread view (whoopsie)
1. Paging for replies in single thread view
1. Pick a date format

19
lib/PostText/Model/Reply.pm
View file

@ -9,16 +9,19 @@ has 'pg';
sub new($class, $pg, $pg_reference) {
bless {
$pg => $pg_reference,
replies_per_page => 5
replies_per_page => 5,
date_format => 'Dy Mon FMDD FMHH24:MI TZ YYYY'
}, $class
}
sub get_replies_by_thread_id($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)->hashes()
SELECT reply_id AS id,
TO_CHAR(reply_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY') AS date,
reply_author AS author,
reply_body AS body
my $date_format = %$self{'date_format'};
$self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hashes();
SELECT reply_id AS id,
TO_CHAR(reply_date, ?) AS date,
reply_author AS author,
reply_body AS body
FROM replies
WHERE thread_id = ?
AND NOT hidden_status
@ -26,8 +29,4 @@ sub get_replies_by_thread_id($self, $thread_id) {
END_SQL
}
#sub exception($self, $exception) {
# say $exception
#}
1;

57
lib/PostText/Model/Thread.pm
View file

@ -9,7 +9,8 @@ has 'pg';
sub new($class, $pg, $pg_reference) {
bless {
$pg => $pg_reference,
threads_per_page => 5
threads_per_page => 5,
date_format => 'Dy Mon FMDD FMHH24:MI TZ YYYY'
}, $class
}
@ -29,12 +30,12 @@ sub create_thread($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
}
sub get_all_threads($self) {
$self->pg->db->query(<<~'END_SQL')->hashes()
SELECT thread_id AS id,
TO_CHAR(thread_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY') AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
$self->pg->db->query(<<~'END_SQL', %$self{'date_format'})->hashes()
SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
FROM threads
WHERE NOT hidden_status
ORDER BY bump_date DESC;
@ -42,20 +43,22 @@ sub get_all_threads($self) {
}
sub get_threads_by_page($self, $this_page = 1) {
my $date_format = %$self{'date_format'};
my $row_count = $self->{'threads_per_page'};
my $offset = ($this_page - 1) * $row_count;
$self->pg->db->query(<<~'END_SQL', $row_count, $offset)->hashes();
SELECT thread_id AS id,
TO_CHAR(thread_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY') AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
FROM threads
WHERE NOT hidden_status
ORDER BY bump_date DESC
LIMIT ? OFFSET ?;
END_SQL
$self->pg->db
->query(<<~'END_SQL', $date_format, $row_count, $offset)->hashes();
SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
FROM threads
WHERE NOT hidden_status
ORDER BY bump_date DESC
LIMIT ? OFFSET ?;
END_SQL
}
sub threads_per_page($self, $value = undef) {
@ -81,19 +84,17 @@ sub get_thread_count($self) {
}
sub get_thread_by_id($self, $thread_id) {
$self->pg->db->query(<<~'END_SQL', $thread_id)->hashes->[0]
SELECT thread_id AS id,
TO_CHAR(thread_date, 'Dy Mon DD HH:MI:SS AM TZ YYYY') AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
my $date_format = %$self{'date_format'};
$self->pg->db->query(<<~'END_SQL', $date_format, $thread_id)->hash();
SELECT thread_id AS id,
TO_CHAR(thread_date, ?) AS date,
thread_author AS author,
thread_title AS title,
thread_body AS body
FROM threads
WHERE thread_id = ?;
END_SQL
}
#sub exception($self, $exception) {
# say $exception
#}
1;