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.3 -r1.4
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql	30 May 2001 07:21:35 -0000	1.3
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs-postgresql.xql	8 Jul 2001 18:40:49 -0000	1.4
@@ -56,33 +56,41 @@
 
  
 <fullquery name="acs_mail_content_new.acs_mail_content_new">      
-      <querytext>
-        select acs_mail_gc_object__new (
-            gc_object_id => :object_id,
-            creation_user => :creation_user,
-            creation_ip => :creation_ip
-        );
-      </querytext>
+<querytext>
+
+select acs_mail_gc_object__new (
+  :object_id,				-- gc_object_id 
+  'acs_mail_gc_object',		-- object_type
+  now(),					-- creation_date
+  :creation_user,			-- creation_user 
+  :creation_ip,				-- creation_ip 
+  null						-- context_id
+);
+
+</querytext>
 </fullquery>
 
  
+
 <fullquery name="acs_mail_body_new.acs_mail_body_new">      
-      <querytext>
-    select acs_mail_body__new (
-        body_id => :body_id,
-        body_reply_to => :body_reply_to,
-        body_from => :body_from,
-        body_date => :body_date,
-        header_message_id => :header_message_id,
-        header_reply_to => :header_reply_to,
-        header_subject => :header_subject,              
-        header_from => :header_from,
-        header_to => :header_to,
-        content_object_id => :content_object_id,
-        creation_user => :creation_user,
-        creation_ip => :creation_ip
-    );
-      </querytext>
+<querytext>
+
+select acs_mail_body__new (
+  :body_id,				-- body_id 
+  :body_reply_to,		-- body_reply_to 
+  :body_from,			-- body_from 
+  :body_date,			-- body_date 
+  :header_message_id,	-- header_message_id 
+  :header_reply_to,		-- header_reply_to 
+  :header_subject,      -- header_subject 
+  :header_from,			-- header_from 
+  :header_to,			-- header_to 
+  :content_object_id,	-- content_object_id 
+  :creation_user,		-- creation_user 
+  :creation_ip			-- creation_ip 
+);
+
+</querytext>
 </fullquery>
 
  
@@ -93,70 +101,88 @@
 </fullquery>
 
  
+
 <fullquery name="acs_mail_body_clone.acs_mail_body_clone">      
-      <querytext>
-        select acs_mail_body__clone (
-                old_body_id => :old_body_id,
-                body_id => :body_id,
-                creation_user => :creation_user,
-                creation_ip => :creation_ip
-            );
-      </querytext>
+<querytext>
+
+select acs_mail_body__clone (
+  :old_body_id,		-- old_body_id 
+  :body_id,			-- body_id 
+  :creation_user,	-- creation_user 
+  :creation_ip		-- creation_ip 
+);
+
+</querytext>
 </fullquery>
 
  
+ 
+
 <fullquery name="acs_mail_body_set_content_object.acs_mail_body_set_content_object">      
-      <querytext>
-             select acs_mail_body__set_content_object (
-                body_id => :body_id,
-                content_object_id => :content_object_id
-            );
-      </querytext>
+<querytext>
+
+select acs_mail_body__set_content_object (
+  :body_id,				-- body_id 
+  :content_object_id	-- content_object_id 
+);
+
+</querytext>
 </fullquery>
 
  
+
+ 
 <fullquery name="acs_mail_multipart_new.acs_mail_multipart_new">      
-      <querytext>
-            select acs_mail_multipart__new (
-                multipart_id => :multipart_id,
-                multipart_kind => :multipart_kind,
-                creation_user => :creation_user,
-                creation_ip => :creation_ip
-            );
-      </querytext>
+<querytext>
+
+select acs_mail_multipart__new (
+  :multipart_id,	-- multipart_id 
+  :multipart_kind,	-- multipart_kind 
+  :creation_user,	-- creation_user 
+  :creation_ip		-- creation_ip 
+);
+
+</querytext>
 </fullquery>
 
  
+ 
 <fullquery name="acs_mail_multipart_p.acs_mail_multipart_p">      
       <querytext>
             select acs_mail_multipart__multipart_p (:object_id);
       </querytext>
 </fullquery>
 
  
+
 <fullquery name="acs_mail_multipart_add_content.acs_mail_multipart_add_content">      
-      <querytext>
-            select acs_mail_multipart__add_content (
-                multipart_id => :multipart_id,
-                content_object_id => :content_object_id
-            );
-      </querytext>
+<querytext>
+select acs_mail_multipart__add_content (
+  :multipart_id,		-- multipart_id 
+  :content_object_id	-- content_object_id 
+);
+
+</querytext>
 </fullquery>
 
  
+ 
 <fullquery name="acs_mail_link_new.acs_mail_link_new">      
-      <querytext>
-            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
-            );
-      </querytext>
+<querytext>
+
+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 
+);
+
+</querytext>
 </fullquery>
 
  
+ 
 <fullquery name="acs_mail_link_p.acs_mail_link_p">      
       <querytext>
             select acs_mail_link__link_p (:object_id);