X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/f432bce2e8a41a84b0cea40ac7b7ae27af2d5958..cebd52f715dd2572c567d44c2d58a634e38859e4:/support.sml

diff --git a/support.sml b/support.sml
index 48a818d..9c30d24 100644
--- a/support.sml
+++ b/support.sml
@@ -1,4 +1,4 @@
-structure Support :> SUPPORT =
+\structure Support :> SUPPORT =
 struct
 
 open Util Sql Init
@@ -232,7 +232,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