Allow commas in ticket titles

[hcoop/zz_old/portal.git] / group.sml

diff --git a/group.sml b/group.sml
index fc72152..6df85de 100644 (file)
--- a/group.sml
+++ b/group.sml
@@ -132,7 +132,7 @@ fun requireGroupName grp =
 
 fun validGroupName name =
     size name <= 10
-    andalso CharVector.all Char.isAlpha name
+    andalso CharVector.all Char.isAlphaNum name
 
 fun groupNameToId name =
     case C.oneOrNoRows (getDb ()) ($`SELECT id FROM WebGroup WHERE name = ^(C.stringToSql name)`) of