From da7a86a78cd41b3c910624ee82358b443d4e3b35 Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Thu, 17 May 2007 22:35:58 +0000
Subject: [PATCH] Allow commas in ticket titles

---
 group.sml   | 2 +-
 support.sml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/group.sml b/group.sml
index fc72152..6df85de 100644
--- 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
diff --git a/support.sml b/support.sml
index 7ea7809..43bb9fb 100644
--- a/support.sml
+++ b/support.sml
@@ -240,7 +240,7 @@ fun unsubscribe {usr, cat} =
     ignore (C.dml (getDb ()) ($`DELETE FROM SupSubscription
 				WHERE usr = ^(C.intToSql usr) AND cat = ^(C.intToSql cat)`))
 
-val okChars = [#" ", #"-", #".", #"!", #"?", #":", #";", #"'", #"\"", #"/", #"(", #")", #"{", #"}", #"[", #"]"]
+val okChars = [#" ", #"-", #".", #"!", #"?", #":", #",", #";", #"'", #"\"", #"/", #"(", #")", #"{", #"}", #"[", #"]"]
 
 fun validTitle s = CharVector.exists (fn ch => not (Char.isSpace ch)) s
 		   andalso CharVector.all (fn ch => Char.isAlphaNum ch orelse List.exists (fn ch' => ch = ch') okChars) s
-- 
2.20.1