Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql 23 May 2001 18:38:35 -0000 1.2
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql 30 May 2001 07:21:35 -0000 1.3
@@ -57,25 +57,17 @@
--- FIX ME PLSQL
-
--- begin
select acs_mail_gc_object__new (
gc_object_id => :object_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_body__new (
body_id => :body_id,
body_reply_to => :body_reply_to,
@@ -90,127 +82,85 @@
creation_user => :creation_user,
creation_ip => :creation_ip
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_body__body_p (:object_id);
- end;
-
--- FIX ME PLSQL
--- begin
select acs_mail_body__clone (
old_body_id => :old_body_id,
body_id => :body_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_body__set_content_object (
body_id => :body_id,
content_object_id => :content_object_id
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_multipart__new (
multipart_id => :multipart_id,
multipart_kind => :multipart_kind,
creation_user => :creation_user,
creation_ip => :creation_ip
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_multipart__multipart_p (:object_id);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_multipart__add_content (
multipart_id => :multipart_id,
content_object_id => :content_object_id
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_link__new (
mail_link_id => :mail_link_id,
body_id => :body_id,
context_id => :context_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
--- end;
-
--- FIX ME PLSQL
-
--- begin
select acs_mail_link__link_p (:object_id);
--- end;
-
-