Change pager behavior to make more sense
This commit is contained in:
parent
8a4c5eab44
commit
627fe02bda
|
@ -45,7 +45,7 @@ under sub ($c) {
|
|||
get '/' => sub ($c) {
|
||||
my $posts = $c->message->get_posts();
|
||||
my $last_page = $c->message->get_last_page(@$posts);
|
||||
my $this_page = $c->param('page') || $last_page;
|
||||
my $this_page = $c->param('page') || 1;
|
||||
my @view_posts = $c->message->view_posts($this_page, $last_page, @$posts);
|
||||
|
||||
$c->stash(
|
||||
|
|
|
@ -14,7 +14,11 @@ sub new($class, $pg, $pg_object) {
|
|||
}
|
||||
|
||||
sub get_posts($self) {
|
||||
$self->pg->db->query('SELECT date, name, msg FROM messages;')->arrays()
|
||||
$self->pg->db
|
||||
->query('SELECT to_char(date, \'Dy Mon DD HH:MI:SS AM TZ YYYY\'),
|
||||
name, msg
|
||||
FROM messages
|
||||
ORDER BY date DESC;')->arrays()
|
||||
}
|
||||
|
||||
sub send_post($self, $name, $msg) {
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
% title 'Home';
|
||||
<h2>Messages from the World Wide Web</h2>
|
||||
<table>
|
||||
<% for my $row (reverse @$view_posts) { %>
|
||||
<% for my $row (@$view_posts) { %>
|
||||
<tr>
|
||||
<th>Date:</th>
|
||||
<td><%= @$row[0] %></td>
|
||||
|
|
Loading…
Reference in a new issue