_/prolog-point-of-sale
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Move cart_entry to session

Browse source
This commit is contained in:
Sijmen 2019-11-05 00:05:56 +01:00
parent 71b2d0a4e9
commit f9780b11be
Signed by: vijfhoek
GPG key ID: DAF7821E067D9C48
3 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
main.pl
View file

@ -51,9 +51,6 @@ run :-
:- persistent :- persistent
session(session:atom, username:atom). session(session:atom, username:atom).
:- persistent
cart_entry(session:atom, items:atom).
:- json_object :- json_object
error(error:atom). error(error:atom).

3
views/cart.pl
View file

@ -6,7 +6,6 @@ cart_add(ProductName, Request) :-
http_redirect(see_other, root(.), Request). http_redirect(see_other, root(.), Request).
cart_add(ProductName, Request) :- cart_add(ProductName, Request) :-
http_session_id(SessionId), http_session_assert(cart_entry(ProductName)),
assert_cart_entry(SessionId, ProductName),
http_redirect(see_other, root(.), Request). http_redirect(see_other, root(.), Request).

3
views/products.pl
View file

@ -78,9 +78,8 @@ account -->
html(a(href('/login'), 'Log in')). html(a(href('/login'), 'Log in')).
products_view(get, _Request) :- products_view(get, _Request) :-
http_session_id(SessionId),
(bagof(product(X, Y), product(X, Y), Products); Products = []), (bagof(product(X, Y), product(X, Y), Products); Products = []),
(bagof(Name, cart_entry(SessionId, Name), CartEntries); CartEntries = []), (bagof(Name, http_session_data(cart_entry(Name)), CartEntries); CartEntries = []),
reply_html_page( reply_html_page(
[ [
title('point of shit'), title('point of shit'),