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

3
src/babillard_page.eml.html
View file

@ -1,9 +1,8 @@
let f request =
% let redirect = Dream.to_percent_encoded "/new_thread" in
% let new_thread_url =
% if Option.is_none @@ Dream.session "nick" request then
% Format.sprintf "/login?redirect=%s" redirect
% Format.sprintf "/login?redirect=%s" (Dream.to_percent_encoded "/new_thread")
% else "/new_thread"
% in
<script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>