Index: openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	8 Dec 2003 04:47:53 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	11 Dec 2003 21:40:05 -0000	1.6
@@ -3,6 +3,25 @@
 <queryset>
     <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
+    <fullquery name="lars_blogger::entry::new.entry_add">
+        <querytext>
+                        begin
+                            :1 := pinds_blog_entry.new (
+                                entry_id => :entry_id,
+                                package_id => :package_id,
+                                title => :title,
+                                title_url => :title_url,
+                                content => :content,
+                                content_format => :content_format,
+                                entry_date => nvl(to_date(:entry_date, 'YYYY-MM-DD'), sysdate),
+                                draft_p => :draft_p,
+                                creation_user => :creation_user,
+                                creation_ip => :creation_ip
+                            );
+                        end;
+        </querytext>
+    </fullquery>
+
     <fullquery name="lars_blogger::entry::get.select_entry">
         <querytext>
 		    select b.entry_id,