diff options
| -rw-r--r-- | cljssss-g.clj | 4 | ||||
| -rw-r--r-- | login.st | 2 |
2 files changed, 1 insertions, 5 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index f57275f..e1cee88 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -26,10 +26,6 @@ (sql/transaction ~@body))) -(defn login-view [] - (.toString (.getInstanceOf templates "login"))) - - (defservlet cljssss-g (GET "/login" (if (= (params :valuesofbetawillgiverisetodom) "true") @@ -9,7 +9,7 @@ <body> $logintext$ - <form method="POST"> + <form action="login" method="POST"> Username: <input name="name" type="text" /> <br /> Password: <input name="password" type="password" /> <br /> <input type="submit" value="Log In" /> |