Redirect to thread once thread is posted
This commit is contained in:
parent
e91c22a0f8
commit
2b8721d76f
|
@ -88,7 +88,7 @@ sub startup($self) {
|
||||||
$c->stash(status => 400)
|
$c->stash(status => 400)
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$c->thread->create(
|
my $new_thread_id = $c->thread->create(
|
||||||
$thread_author,
|
$thread_author,
|
||||||
$thread_title,
|
$thread_title,
|
||||||
$thread_body
|
$thread_body
|
||||||
|
@ -96,7 +96,9 @@ sub startup($self) {
|
||||||
|
|
||||||
$c->session(author => $thread_author);
|
$c->session(author => $thread_author);
|
||||||
|
|
||||||
return $c->redirect_to('list');
|
return $c->redirect_to(
|
||||||
|
thread_page => {thread_id => $new_thread_id}
|
||||||
|
);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -128,8 +130,7 @@ sub startup($self) {
|
||||||
$c->session(author => $remark_author);
|
$c->session(author => $remark_author);
|
||||||
|
|
||||||
return $c->redirect_to(
|
return $c->redirect_to(
|
||||||
'thread_page',
|
thread_page => {thread_id => $thread_id}
|
||||||
{thread_id => $thread_id}
|
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -17,7 +17,7 @@ sub new($class, $pg, $pg_reference) {
|
||||||
sub create($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
|
sub create($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
|
||||||
my @data = ($author, $title, $body, $hidden, $flagged);
|
my @data = ($author, $title, $body, $hidden, $flagged);
|
||||||
|
|
||||||
$self->pg->db->query(<<~'END_SQL', @data);
|
$self->pg->db->query(<<~'END_SQL', @data)->hash->{'thread_id'};
|
||||||
INSERT INTO threads (
|
INSERT INTO threads (
|
||||||
thread_author,
|
thread_author,
|
||||||
thread_title,
|
thread_title,
|
||||||
|
@ -25,7 +25,8 @@ sub create($self, $author, $title, $body, $hidden = 0, $flagged = 0) {
|
||||||
hidden_status,
|
hidden_status,
|
||||||
flagged_status
|
flagged_status
|
||||||
)
|
)
|
||||||
VALUES (?, ?, ?, ?, ?);
|
VALUES (?, ?, ?, ?, ?)
|
||||||
|
RETURNING thread_id;
|
||||||
END_SQL
|
END_SQL
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue