Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	4 Jan 2006 09:50:19 -0000	1.6
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	17 Nov 2006 15:14:57 -0000	1.7
@@ -114,5 +114,120 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="acs_mail_lite::complex_send.create_complex_queue_entry">
+        <querytext>
+            insert into acs_mail_lite_complex_queue
+                  (creation_date,
+                   locking_server,
+                   to_party_ids,	
+                   cc_party_ids,
+                   bcc_party_ids,
+                   to_group_ids,
+                   cc_group_ids,
+                   bcc_group_ids,
+                   to_addr,
+                   cc_addr,
+                   bcc_addr,
+                   from_addr,
+                   subject,
+                   body,
+                   package_id,
+                   files,
+                   file_ids,
+                   folder_ids,
+                   mime_type,
+                   object_id,
+                   single_email_p,
+                   no_callback_p,
+                   extraheaders,
+                   alternative_part_p,
+                   use_sender_p     
+                  )
+            values
+                  (:creation_date,
+                   :locking_server,
+                   :to_party_ids,
+                   :cc_party_ids,
+                   :bcc_party_ids,
+                   :to_group_ids,
+                   :cc_group_ids,
+                   :bcc_group_ids,
+                   :to_addr,
+                   :cc_addr,
+                   :bcc_addr,
+                   :from_addr,
+                   :subject,
+                   :body,
+                   :package_id,
+                   :files,
+                   :file_ids,
+                   :folder_ids,
+                   :mime_type,
+                   :object_id,
+                   (case when :single_email_p = '1' then TRUE else FALSE end),
+                   (case when :no_callback_p = '1' then TRUE else FALSE end),
+                   :extraheaders,
+                   (case when :alternative_part_p = '1' then TRUE else FALSE end),
+                   (case when :use_sender_p = '1' then TRUE else FALSE end)          
+                  )
+        </querytext>
+    </fullquery>       
 
+    <fullquery name="acs_mail_lite::complex_sweeper.get_complex_queued_messages">
+        <querytext>
+            select
+                   id,
+                   creation_date,
+                   locking_server,
+                   to_party_ids,
+                   cc_party_ids,
+                   bcc_party_ids,
+                   to_group_ids,
+                   cc_group_ids,
+                   bcc_group_ids,
+                   to_addr,
+                   cc_addr,
+                   bcc_addr,
+                   from_addr,
+                   subject,
+                   body,
+                   package_id,
+                   files,
+                   file_ids,
+                   folder_ids,
+                   mime_type,
+                   object_id,
+                   (case when single_email_p = TRUE then 1 else 0 end) as single_email_p,
+                   (case when no_callback_p = TRUE then 1 else 0 end) as no_callback_p,
+                   extraheaders,
+                   (case when alternative_part_p = TRUE then 1 else 0 end) as alternative_part_p,
+                   (case when use_sender_p = TRUE then 1 else 0 end) as use_sender_p
+            from acs_mail_lite_complex_queue
+            where locking_server = '' or locking_server is NULL
+        </querytext>
+    </fullquery>             
+
+    <fullquery name="acs_mail_lite::complex_sweeper.get_complex_queued_message">
+        <querytext>
+            select id
+            from acs_mail_lite_complex_queue
+            where id=:id and (locking_server = '' or locking_server is NULL)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="acs_mail_lite::complex_sweeper.lock_queued_message">
+        <querytext>
+            update acs_mail_lite_complex_queue
+               set locking_server = :locking_server
+            where id=:id
+        </querytext>
+    </fullquery> 
+
+    <fullquery name="acs_mail_lite::complex_sweeper.delete_complex_queue_entry">
+        <querytext>
+            delete from acs_mail_lite_complex_queue
+            where id=:id
+        </querytext>
+    </fullquery>        
+
 </queryset>