swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix login button

Browse source
This commit is contained in:
Swrup 2022-02-20 18:37:24 +01:00
parent a156669b6a
commit d7f56ecfd0
5 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/thread_page.eml.html
View file

@ -3,8 +3,8 @@ let f thread_view thread_id request =
<%s! thread_view %>
% begin match Dream.session "nick" request with
% | None ->
% let redirect = Dream.to_percent_encoded (Format.sprintf "redirect=/thread/%s" thread_id) in
<a href="/login?<%s redirect%>">Login to reply!</a>
% let redirect = Dream.to_percent_encoded (Format.sprintf "/thread/%s" thread_id) in
<a href="/login?redirect=<%s redirect%>">Login to reply!</a>
% | Some _ ->
<div class="post-form">
<%s! Dream.form_tag ~action:( Format.sprintf "/thread/%s" thread_id)