Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql	4 May 2002 18:27:52 -0000	1.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql	8 May 2002 02:57:45 -0000	1.2
@@ -1,18 +1,17 @@
 <?xml version="1.0"?>
-<queryset>
 
+<queryset>
     <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
     <fullquery name="acs_mail_lite::send.create_queue_entry">
         <querytext>
             insert into acs_mail_lite_queue 
             (message_id, to_addr, from_addr, subject, body, extra_headers, bcc)
             values
-            (acs_mail_lite_id_seq.nextval, :to, :from, :subject, :body, :eh_list, :bcc)
+            (acs_mail_lite_id_seq.nextval, :to_addr, :from_addr, :subject, :body, :eh_list, :bcc)
         </querytext>
     </fullquery>
 
-
     <fullquery name="acs_mail_lite::sweeper.get_queued_messages">
         <querytext>
             select message_id,
@@ -25,7 +24,6 @@
             from acs_mail_lite_queue
         </querytext>
     </fullquery>
- 
 
     <fullquery name="acs_mail_lite::sweeper.delete_queue_entry">
         <querytext>
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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	4 May 2002 18:27:52 -0000	1.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	8 May 2002 02:57:45 -0000	1.2
@@ -1,18 +1,17 @@
 <?xml version="1.0"?>
+
 <queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
     <fullquery name="acs_mail_lite::send.create_queue_entry">
         <querytext>
             insert into acs_mail_lite_queue 
             (message_id, to_addr, from_addr, subject, body, extra_headers, bcc)
             values
-            (nextval('acs_mail_lite_id_seq'), :to, :from, :subject, :body, :eh_list, :bcc)
+            (nextval('acs_mail_lite_id_seq'), :to_addr, :from_addr, :subject, :body, :eh_list, :bcc)
         </querytext>
     </fullquery>
 
-
     <fullquery name="acs_mail_lite::sweeper.get_queued_messages">
         <querytext>
             select message_id,
@@ -25,7 +24,6 @@
             from acs_mail_lite_queue
         </querytext>
     </fullquery>
- 
 
     <fullquery name="acs_mail_lite::sweeper.delete_queue_entry">
         <querytext>
Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	4 May 2002 18:27:52 -0000	1.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 May 2002 02:57:45 -0000	1.2
@@ -11,8 +11,8 @@
 namespace eval acs_mail_lite {
 
     ad_proc -public send {
-        {-to:required}
-        {-from:required}
+        {-to_addr:required}
+        {-from_addr:required}
         {-subject ""}
         {-body:required}
         {-extraheaders ""}
@@ -29,7 +29,6 @@
         db_dml create_queue_entry {}
     }
 
-
     ad_proc -private sweeper {} {
         Send messages in the acs_mail_lite_queue table.
     } {