Index: openacs-4/packages/notifications/tcl/notifications-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notifications-security-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	29 May 2002 05:12:01 -0000	1.1
+++ openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	20 Sep 2002 21:19:00 -0000	1.2
@@ -10,11 +10,23 @@
 
 namespace eval notification::security {
 
+    ad_proc -public can_notify_user {
+        {-user_id:required}
+        {-delivery_method_id ""}
+    } {
+        This proc can be expanded to deal with cases when we don't want to 
+        send a notification.  For instance we could check email_bouncing_p 
+        or if a user is on vacation. Right now it just makes sure its an 
+        approved user.
+    } {
+        return [db_string user_approved_p {}]
+    }
+
     ad_proc -public can_notify_object_p {
         {-user_id ""}
         {-object_id:required}
-    } {
-        # HACK
+    } { 
+        # hack
         return 1
     }