diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-23 06:50:54 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-23 06:50:54 +0000 |
| commit | 492c32c9fc89ca289b3f37573f643c2fc64b8d2d (patch) | |
| tree | 52b78ea98690f9b37c1f658be09fe77a004ede44 | |
| parent | bf55e5144004be26ec533de7ace57840329142e8 (diff) | |
| download | sariulclocks-devel.tar.gz | |
make it possible to hit enter to submit end of class formdevel
| -rw-r--r-- | src/sariulccgi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |