Support follow-up posting and e-mail notification

[hcoop/portal.git] / support.sig

diff --git a/support.sig b/support.sig
index 2c5e127..e67494f 100644 (file)
--- a/support.sig
+++ b/support.sig
@@ -19,12 +19,15 @@ sig
 
     val lookupIssue : int -> issue
     val listIssues : unit -> issue list
+    val listCategoryIssues : int -> issue list
+    val listOpenCategoryIssues : int * int -> issue list
+    val listOpenCategoryIssuesAdmin : int -> issue list
     val addIssue : int * int * string * bool * status -> int
     val modIssue : issue -> unit
     val deleteIssue : int -> unit
 
     val lookupPost : int -> post
-    val listPosts : int -> post list
+    val listPosts : int -> (string * post) list
     val addPost : int * int * string -> int
     val modPost : post -> unit
     val deletePost : int -> unit
@@ -32,4 +35,12 @@ sig
     val subscribed : subscription -> bool
     val subscribe : subscription -> unit
     val unsubscribe : subscription -> unit
+                                     
+    val validTitle : string -> bool
+    val allowedToSee : int -> bool
+    val allowedToEdit : int -> bool
+                              
+    val notifyCreation : int -> bool
+    val notifyPost : int -> bool
+    val notifyStatus : int * status * status * int -> bool
 end
\ No newline at end of file