From 492c32c9fc89ca289b3f37573f643c2fc64b8d2d Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 23 Mar 2015 06:50:54 +0000
Subject: make it possible to hit enter to submit end of class form

---
 src/sariulccgi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sariulccgi.hs b/src/sariulccgi.hs
index dab96b1..b700bb7 100644
--- a/src/sariulccgi.hs
+++ b/src/sariulccgi.hs
@@ -60,7 +60,7 @@ lessonButtons Nothing  = bsButton "start-lesson" "btn btn-info" ("Start " +++ uC
                          -- +++ bsButton "end-of-week" "btn btn-default" "End of week"
 lessonButtons (Just _) = primHtml "<div class=\"form-group\"> <input id=\"class_points\" name=\"class_points\" type=\"text\" placeholder=\"Points scored\" class=\"form-control\"> </div> <div class=\"form-group\"> <input type=\"password\" id=\"teachers_password\" name=\"teachers_password\" placeholder=\"Teacher's password\" class=\"form-control\"> </div> "
                           +++ input #= "class_time_wasted" ! [strAttr "name" "class_time_wasted", strAttr "type" "hidden", strAttr "value" ""]
-                          +++ bsButton "end-lesson" "btn btn-success" "End lesson"
+                          +++ input #= "end-lesson" # "btn btn-success" ! [strAttr "value" "End lesson", strAttr "type" "submit"] +++ " "
                           +++ bsButton "lucky-number" "btn btn-danger" (uC 'L' +++ "ucky number")
 
 makeClockToggle   :: Clock -> Html
-- 
cgit v1.2.3