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 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 @@acs_user.approve_email andacs_user.unapprove_email to specify whether the user's email address is valid. The interface for these procedures are: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?