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.9.2.1 -r1.9.2.2
--- openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	11 Jul 2022 12:56:05 -0000	1.9.2.1
+++ openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	12 Jul 2022 11:30:59 -0000	1.9.2.2
@@ -26,7 +26,7 @@
         @param user_id
         @param delivery_method_id
     } {
-        return [db_string user_approved_p {} -default 0]
+        return [expr {[acs_user::get_user_info -user_id $user_id -element member_state] eq "approved"}]
     }
 
     ad_proc -public can_notify_object_p {
Fisheye: Tag 1.2.30.1 refers to a dead (removed) revision in file `openacs-4/packages/notifications/tcl/notifications-security-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?