Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql 27 Jan 2003 16:19:15 -0000 1.3
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql 28 Aug 2003 09:41:55 -0000 1.4
@@ -5,20 +5,69 @@
- begin
- :1 := pinds_blog_entry.new (
- entry_id => :entry_id,
- package_id => :package_id,
- title => :title,
- content => :content,
- content_format => :content_format,
- entry_date => to_date(:entry_date, 'YYYY-MM-DD'),
- draft_p => :draft_p,
- creation_user => :creation_user,
- creation_ip => :creation_ip
- );
- end;
+ 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 => to_date(:entry_date, 'YYYY-MM-DD'),
+ draft_p => :draft_p,
+ creation_user => :creation_user,
+ creation_ip => :creation_ip
+ );
+ end;
+
+
+ begin
+ :1 := weblogger_channel.new (
+ null,
+ :package_id,
+ NULL,
+ :creation_user,
+ :creation_ip
+ );
+ end;
+
+
+
+
+
+ begin
+ :1 := weblogger_channel.new (
+ null,
+ :package_id,
+ :creation_user,
+ :creation_user,
+ :creation_ip
+ );
+ end;
+
+
+
+
+
+ begin
+ :1 := rss_gen_subscr.new (
+ null, -- subscr_id
+ acs_sc_impl.get_id('RssGenerationSubscriber','pinds_blog_entries'),
+ -- impl_id
+ :summary_context_id, -- summary_context_id
+ :timeout, -- timeout
+ null, -- lastbuild
+ 'rss_gen_subscr', -- object_type
+ sysdate, -- creation_date
+ :creation_user, -- creation_user
+ :creation_ip, -- creation_ip
+ :package_id -- context_id
+ );
+ end;
+
+
+