Index: openacs-4/packages/cms/tcl/workflow-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/workflow-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/tcl/workflow-procs-oracle.xql 11 Aug 2001 17:41:34 -0000 1.1
+++ openacs-4/packages/cms/tcl/workflow-procs-oracle.xql 24 Aug 2001 14:58:13 -0000 1.2
@@ -37,6 +37,23 @@
+
+
+
+ begin
+ :1 := acs_mail_nt.post_request(
+ party_from => :user_id,
+ party_to => :party_id,
+ expand_group => 'f',
+ subject => :subject,
+ message => :message
+ );
+ end;
+
+
+
+
+
@@ -76,6 +93,23 @@
+
+
+
+ begin
+ :1 := acs_mail_nt.post_request(
+ party_from => -1,
+ party_to => :admin_id,
+ expand_group => 'f',
+ subject => :subject,
+ message => :message
+ );
+ end;
+
+
+
+
+
@@ -114,6 +148,23 @@
+
+
+
+ begin
+ :1 := acs_mail_nt.post_request(
+ party_from => -1,
+ party_to => :admin_id,
+ expand_group => 'f',
+ subject => :subject,
+ message => :message
+ );
+ end;
+
+
+
+
+
Index: openacs-4/packages/cms/tcl/workflow-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/workflow-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/tcl/workflow-procs-postgresql.xql 20 Aug 2001 04:35:42 -0000 1.2
+++ openacs-4/packages/cms/tcl/workflow-procs-postgresql.xql 24 Aug 2001 14:58:13 -0000 1.3
@@ -37,6 +37,24 @@
+
+
+
+ begin
+ return acs_mail_nt__post_request(
+ :user_id, -- party_from
+ :party_id, -- party_to
+ 'f', -- expand_group
+ :subject, -- subject
+ :message, -- message
+ 0 -- max_retries
+ );
+ end;
+
+
+
+
+
@@ -76,6 +94,24 @@
+
+
+
+ begin
+ return acs_mail_nt__post_request(
+ -1, -- party_from
+ :admin_id, -- party_to
+ 'f', -- expand_group
+ :subject, -- subject
+ :message, -- message
+ 0 -- max_retries
+ );
+ end;
+
+
+
+
+
@@ -114,6 +150,24 @@
+
+
+
+ begin
+ return acs_mail_nt__post_request(
+ -1, -- party_from
+ :admin_id, -- party_to
+ 'f', -- expand_group
+ :subject, -- subject
+ :message, -- message
+ 0 -- max_retries
+ );
+ end;
+
+
+
+
+
Index: openacs-4/packages/cms/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/Attic/workflow-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/workflow-procs.tcl 20 Aug 2001 04:35:42 -0000 1.4
+++ openacs-4/packages/cms/tcl/workflow-procs.tcl 24 Aug 2001 14:58:13 -0000 1.5
@@ -65,7 +65,7 @@
set request_id [db_exec_plsql notify "
begin
- :1 := nt.post_request(
+ :1 := acs_mail_nt.post_request(
party_from => :user_id,
party_to => :party_id,
expand_group => 'f',
@@ -149,7 +149,7 @@
set request_id [db_exec_plsql notify "
begin
- :1 := nt.post_request(
+ :1 := acs_mail_nt.post_request(
party_from => -1,
party_to => :admin_id,
expand_group => 'f',
@@ -218,7 +218,7 @@
set request_id [db_exec_plsql notify "
begin
- :1 := nt.post_request(
+ :1 := acs_mail_nt.post_request(
party_from => -1,
party_to => :admin_id,
expand_group => 'f',