Index: openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-package-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-package-create.sql	27 Jan 2003 16:17:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-package-create.sql	28 Aug 2003 09:41:54 -0000	1.3
@@ -14,6 +14,7 @@
         entry_id in pinds_blog_entries.entry_id%TYPE default null,
         package_id in pinds_blog_entries.package_id%TYPE,
         title in pinds_blog_entries.title%TYPE default null,
+        title_url in pinds_blog_entries.title_url%TYPE default null,
         content in varchar default null,
         content_format in varchar default 'text/html',
         entry_date in pinds_blog_entries.entry_date%TYPE default null,
@@ -41,6 +42,7 @@
         entry_id in pinds_blog_entries.entry_id%TYPE default null,
         package_id in pinds_blog_entries.package_id%TYPE,
         title in pinds_blog_entries.title%TYPE default null,
+        title_url in pinds_blog_entries.title_url%TYPE default null,
         content in varchar default null,
         content_format in varchar default 'text/html',
         entry_date in pinds_blog_entries.entry_date%TYPE default null,
@@ -65,6 +67,7 @@
             entry_id, 
             package_id,
             title,
+            title_url,
             content,
             content_format,
             entry_date,
@@ -75,6 +78,7 @@
             v_entry_id, 
             pinds_blog_entry.new.package_id,
             pinds_blog_entry.new.title,
+            pinds_blog_entry.new.title_url,
             pinds_blog_entry.new.content,
             pinds_blog_entry.new.content_format,
             pinds_blog_entry.new.entry_date,
@@ -123,3 +127,78 @@
 end pinds_blog_entry;
 /
 show errors
+
+create or replace package weblogger_channel
+as
+
+    function new (
+        channel_id in weblogger_channels.channel_id%TYPE default null,
+        package_id in weblogger_channels.package_id%TYPE,
+        user_id in weblogger_channels.user_id%TYPE default null,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return weblogger_channels.channel_id%TYPE;
+
+    procedure delete (
+        channel_id in weblogger_channels.channel_id%TYPE
+    );
+
+end weblogger_channel;
+/
+show errors
+
+
+create or replace package body weblogger_channel
+as
+
+    function new (
+        channel_id in weblogger_channels.channel_id%TYPE default null,
+        package_id in weblogger_channels.package_id%TYPE,
+        user_id in weblogger_channels.user_id%TYPE default null,
+        creation_user in acs_objects.creation_user%TYPE default null,
+        creation_ip in acs_objects.creation_ip%TYPE default null
+    ) return weblogger_channels.channel_id%TYPE
+    is
+        v_channel_id weblogger_channels.channel_id%TYPE;
+    begin
+
+        v_channel_id := acs_object.new(
+            object_id => weblogger_channel.new.channel_id,
+            object_type => 'weblogger_channel',
+            creation_date => sysdate,
+            creation_user => weblogger_channel.new.creation_user,
+            creation_ip => weblogger_channel.new.creation_ip,
+            context_id => weblogger_channel.new.package_id
+        );
+
+        insert into weblogger_channels (
+           channel_id, 
+           package_id,
+           user_id      
+        ) values (
+           v_channel_id, 
+           weblogger_channel.new.package_id,
+           weblogger_channel.new.user_id
+        );
+
+        return v_channel_id;
+
+    end new;
+
+    procedure delete (
+        channel_id in weblogger_channels.channel_id%TYPE
+    )
+    is
+    begin
+
+        delete
+        from weblogger_channels
+        where channel_id = weblogger_channel.delete.channel_id;
+
+        acs_object.delete(weblogger_channel.delete.channel_id);
+
+    end delete;
+
+end weblogger_channel;
+/
+show errors
