Add delete links on poll pages

[bpt/portal.git] / poll.sml

diff --git a/poll.sml b/poll.sml
index 74fcaa9..34868cf 100644 (file)
--- a/poll.sml
+++ b/poll.sml
@@ -177,9 +177,9 @@ fun dateLtNow d =
 
 fun canModify (poll : poll) =
     Group.inGroupName "poll"
-    orelse (#usr poll = Init.getUserId()
-           andalso (dateLtNow (#starts poll)
-                    orelse not (#ready poll)))
+    orelse ((#usr poll = Init.getUserId()
+            andalso (dateLtNow (#starts poll)
+                     orelse not (#ready poll))))
 
 fun requireCanModify poll =
     if canModify poll then