Index: openacs-4/packages/acs-core-docs/www/groups-design.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/groups-design.adp,v diff -u -r1.4.2.4 -r1.4.2.5 --- openacs-4/packages/acs-core-docs/www/groups-design.adp 27 Apr 2022 16:52:19 -0000 1.4.2.4 +++ openacs-4/packages/acs-core-docs/www/groups-design.adp 28 Mar 2023 11:20:36 -0000 1.4.2.5 @@ -227,13 +227,6 @@ procedure acs_user.delete ( user_id users.user_id%TYPE ); -

-acs_user.receives_alerts_p -returns 't' if the user should receive email alerts and -'f' otherwise. The interface for this function is:

-function acs_user.receives_alerts_p (
-  user_id       users.user_id%TYPE
-) return varchar;
 

Use the procedures acs_user.approve_email and acs_user.unapprove_email to specify whether the user's email address is valid. The interface for these procedures are:

Index: openacs-4/packages/acs-core-docs/www/groups-design.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/groups-design.html,v
diff -u -r1.36.2.1 -r1.36.2.2
--- openacs-4/packages/acs-core-docs/www/groups-design.html	2 Mar 2019 19:30:04 -0000	1.36.2.1
+++ openacs-4/packages/acs-core-docs/www/groups-design.html	28 Mar 2023 11:20:36 -0000	1.36.2.2
@@ -187,12 +187,6 @@
 procedure acs_user.delete (
   user_id       users.user_id%TYPE
 );
-

acs_user.receives_alerts_p returns 't' if the user should -receive email alerts and 'f' otherwise. The interface for this -function is:

-function acs_user.receives_alerts_p (
-  user_id       users.user_id%TYPE
-) return varchar;
 

Use the procedures acs_user.approve_email and acs_user.unapprove_email to specify whether the user's email address is valid. The interface for these procedures are:

Index: openacs-4/packages/acs-core-docs/www/parties.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/parties.adp,v
diff -u -r1.4.2.5 -r1.4.2.6
--- openacs-4/packages/acs-core-docs/www/parties.adp	27 Apr 2022 16:52:20 -0000	1.4.2.5
+++ openacs-4/packages/acs-core-docs/www/parties.adp	28 Mar 2023 11:20:36 -0000	1.4.2.6
@@ -101,7 +101,6 @@
     email_bouncing_p    char(1) default 'f' not null
                 constraint users_email_bouncing_p_ck
                 check (email_bouncing_p in ('t','f')),
-    no_alerts_until     date,
     last_visit      date,
     second_to_last_visit    date,
     n_sessions      integer default 1 not null,
Index: openacs-4/packages/acs-core-docs/www/parties.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/parties.html,v
diff -u -r1.54.2.6 -r1.54.2.7
--- openacs-4/packages/acs-core-docs/www/parties.html	15 Sep 2021 16:11:34 -0000	1.54.2.6
+++ openacs-4/packages/acs-core-docs/www/parties.html	28 Mar 2023 11:20:36 -0000	1.54.2.7
@@ -99,7 +99,6 @@
     email_bouncing_p    char(1) default 'f' not null
                 constraint users_email_bouncing_p_ck
                 check (email_bouncing_p in ('t','f')),
-    no_alerts_until     date,
     last_visit      date,
     second_to_last_visit    date,
     n_sessions      integer default 1 not null,
Index: openacs-4/packages/acs-core-docs/www/xml/developers-guide/parties.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/developers-guide/parties.xml,v
diff -u -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/acs-core-docs/www/xml/developers-guide/parties.xml	22 Nov 2019 16:30:46 -0000	1.10.2.1
+++ openacs-4/packages/acs-core-docs/www/xml/developers-guide/parties.xml	28 Mar 2023 11:20:36 -0000	1.10.2.2
@@ -154,7 +154,6 @@
     email_bouncing_p    char(1) default 'f' not null
                 constraint users_email_bouncing_p_ck
                 check (email_bouncing_p in ('t','f')),
-    no_alerts_until     date,
     last_visit      date,
     second_to_last_visit    date,
     n_sessions      integer default 1 not null,
Index: openacs-4/packages/acs-core-docs/www/xml/kernel/ext-auth-design.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/kernel/ext-auth-design.xml,v
diff -u -r1.13.2.7 -r1.13.2.8
--- openacs-4/packages/acs-core-docs/www/xml/kernel/ext-auth-design.xml	8 Apr 2021 15:52:08 -0000	1.13.2.7
+++ openacs-4/packages/acs-core-docs/www/xml/kernel/ext-auth-design.xml	28 Mar 2023 11:20:36 -0000	1.13.2.8
@@ -2384,7 +2384,6 @@
         email_bouncing_p        char(1) default 'f' not null
                                 constraint users_email_bouncing_p_ck
                                 check (email_bouncing_p in ('t','f')),
-        no_alerts_until         date,
         last_visit              date,
         second_to_last_visit    date,
         n_sessions              integer default 1 not null,
Index: openacs-4/packages/acs-core-docs/www/xml/kernel/groups-design.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/kernel/groups-design.xml,v
diff -u -r1.8 -r1.8.4.1
--- openacs-4/packages/acs-core-docs/www/xml/kernel/groups-design.xml	27 Oct 2014 16:39:32 -0000	1.8
+++ openacs-4/packages/acs-core-docs/www/xml/kernel/groups-design.xml	28 Mar 2023 11:20:36 -0000	1.8.4.1
@@ -457,16 +457,6 @@
 );
 
 
-acs_user.receives_alerts_p returns 't' if the user should
-receive email alerts and 'f' otherwise. The interface for this
-function is:
-
-
-function acs_user.receives_alerts_p (
-  user_id       users.user_id%TYPE
-) return varchar;
-
-
 Use the procedures acs_user.approve_email and
 acs_user.unapprove_email to specify whether the user's email
 address is valid. The interface for these procedures are:
Index: openacs-4/packages/acs-kernel/acs-kernel.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/acs-kernel.info,v
diff -u -r1.150.2.53 -r1.150.2.54
--- openacs-4/packages/acs-kernel/acs-kernel.info	10 Feb 2023 19:07:31 -0000	1.150.2.53
+++ openacs-4/packages/acs-kernel/acs-kernel.info	28 Mar 2023 11:20:36 -0000	1.150.2.54
@@ -9,15 +9,15 @@
     f
     t
 
-    
+    
         OpenACS Core Team
         Routines and data models providing the foundation for OpenACS-based Web services.
         2021-09-15
         OpenACS
         The OpenACS kernel contains the core datamodel create and drop scripts for such things as objects, groups, parties and the supporting PL/SQL and PL/pgSQL procedures.
         3
 
-        
+        
 
         
         
Index: openacs-4/packages/acs-kernel/sql/oracle/acs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-create.sql,v
diff -u -r1.21 -r1.21.14.1
--- openacs-4/packages/acs-kernel/sql/oracle/acs-create.sql	27 Oct 2007 22:10:59 -0000	1.21
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-create.sql	28 Mar 2023 11:20:36 -0000	1.21.14.1
@@ -162,7 +162,7 @@
 create or replace view registered_users
 as
   select p.email, p.url, pe.first_names, pe.last_name,
-  u.user_id,u.authority_id,u.username,u.password,u.salt,u.screen_name,u.priv_name,u.priv_email,u.email_verified_p,u.email_bouncing_p,u.no_alerts_until,u.last_visit,u.second_to_last_visit,u.n_sessions,u.password_question,u.password_answer,u.password_changed_date,
+  u.user_id,u.authority_id,u.username,u.password,u.salt,u.screen_name,u.priv_name,u.priv_email,u.email_verified_p,u.email_bouncing_p,u.last_visit,u.second_to_last_visit,u.n_sessions,u.password_question,u.password_answer,u.password_changed_date,
   mr.member_state
   from parties p, persons pe, users u, group_member_map m, membership_rels mr
   where party_id = person_id
@@ -192,7 +192,7 @@
 o.object_id,o.object_type,o.context_id,o.security_inherit_p,o.creation_user,o.creation_date,o.creation_ip,o.last_modified,o.modifying_user,o.modifying_ip,
 pa.party_id, pa.email, pa.url, 
 pe.person_id, pe.first_names, pe.last_name, 
-u.user_id,u.authority_id,username,u.password,u.salt,u.screen_name,u.priv_name,u.priv_email,u.email_verified_p,u.email_bouncing_p,u.no_alerts_until,u.last_visit,u.second_to_last_visit,u.n_sessions,u.password_question,u.password_answer,password_changed_date,
+u.user_id,u.authority_id,username,u.password,u.salt,u.screen_name,u.priv_name,u.priv_email,u.email_verified_p,u.email_bouncing_p,u.last_visit,u.second_to_last_visit,u.n_sessions,u.password_question,u.password_answer,password_changed_date,
 mr.member_state, mr.rel_id
 from acs_objects o, parties pa, persons pe, users u, group_member_map m, membership_rels mr
 where o.object_id = pa.party_id
Index: openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql,v
diff -u -r1.19.10.4 -r1.19.10.5
--- openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql	1 Oct 2021 07:30:11 -0000	1.19.10.4
+++ openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql	28 Mar 2023 11:20:36 -0000	1.19.10.5
@@ -572,7 +572,6 @@
 	email_bouncing_p	char(1) default 'f' not null
 				constraint users_email_bouncing_p_ck
 				check (email_bouncing_p in ('t','f')),
-	no_alerts_until		date,
 	last_visit		date,
 	second_to_last_visit	date,
 	n_sessions		integer default 1 not null,
@@ -634,10 +633,6 @@
  constraint ("email must not be null") to the parent type?
 ';
 
-comment on column users.no_alerts_until is '
- For suppressing email alerts
-';
-
 comment on column users.last_visit is '
  Set when user reappears at site
 ';
@@ -681,11 +676,6 @@
  )
  return users.user_id%TYPE;
 
- function receives_alerts_p (
-  user_id	in users.user_id%TYPE
- )
- return char;
-
  procedure approve_email (
   user_id	in users.user_id%TYPE
  );
@@ -760,22 +750,6 @@
   return v_user_id;
  end new;
 
- function receives_alerts_p (
-  user_id in users.user_id%TYPE
- )
- return char
- is
-  counter	char(1);
- begin
-  select decode(count(*),0,'f','t') into counter
-   from users
-   where no_alerts_until >= sysdate
-   and user_id = acs_user.receives_alerts_p.user_id;
-
-  return counter;
-
- end receives_alerts_p;
-
  procedure approve_email (
   user_id	in users.user_id%TYPE
  )
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.10.1d17-5.10.1d18.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql,v
diff -u -r1.29.6.5 -r1.29.6.6
--- openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	1 Oct 2021 07:30:12 -0000	1.29.6.5
+++ openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	28 Mar 2023 11:20:36 -0000	1.29.6.6
@@ -638,7 +638,6 @@
         priv_email              integer default 5 not null,
         email_verified_p        boolean default 't',
         email_bouncing_p        boolean default 'f' not null,
-        no_alerts_until         timestamptz,
         last_visit              timestamptz,
         second_to_last_visit    timestamptz,
         n_sessions              integer default 1 not null,
@@ -705,10 +704,6 @@
  constraint ("email must not be null") to the parent type?
 ';
 
-comment on column users.no_alerts_until is '
- For suppressing email alerts
-';
-
 comment on column users.last_visit is '
  Set when user reappears at site
 ';
@@ -752,11 +747,6 @@
 --  )
 --  return users.user_id%TYPE;
 -- 
---  function receives_alerts_p (
---   user_id	in users.user_id%TYPE
---  )
---  return char;
--- 
 --  procedure approve_email (
 --   user_id	in users.user_id%TYPE
 --  );
@@ -893,32 +883,6 @@
 $$ LANGUAGE plpgsql;
 
 
--- function receives_alerts_p
-
-
--- added
-select define_function_args('acs_user__receives_alerts_p','user_id');
-
---
--- procedure acs_user__receives_alerts_p/1
---
-CREATE OR REPLACE FUNCTION acs_user__receives_alerts_p(
-   receives_alerts_p__user_id integer
-) RETURNS boolean AS $$
-DECLARE
-  found_p boolean;       
-BEGIN
-  select exists into found_p (
-        select 1 from users
-        where no_alerts_until >= now()
-        and user_id = receives_alerts_p__user_id
-  );
-
-  return found_p;
-END;
-$$ LANGUAGE plpgsql stable;
-
-
 -- procedure approve_email
 
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.10.1d17-5.10.1d18.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.6.4.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-to-null.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.6.2.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-to-null.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.32.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-to-null.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.6.4.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-until.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.6.2.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-until.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.32.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/pvt/set-on-vacation-until.xql'.
Fisheye: No comparison available.  Pass `N' to diff?