From: adamch <adamch>
Date: Thu, 17 May 2007 20:01:30 +0000 (+0000)
Subject: Add more allowed characters in support issue titles
X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/commitdiff_plain/a5520ba055675fdf593cdf4e21e48749bf42f6b1

Add more allowed characters in support issue titles
---

diff --git a/support.sml b/support.sml
index c5895bf..7ea7809 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