Index: openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-categories-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-categories-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-categories-create.sql	17 Oct 2003 00:39:22 -0000	1.1
+++ openacs-4/packages/lars-blogger/sql/oracle/lars-blogger-categories-create.sql	31 Oct 2003 14:12:55 -0000	1.2
@@ -39,96 +39,3 @@
 );
 
 
-create or replace package pinds_blog_category
-as
-    function name (
-        object_id in acs_objects.object_id%TYPE
-    ) return varchar2;
-
-    function new (
-        category_id in pinds_blog_categories.category_id%TYPE,
-        package_id in pinds_blog_categories.package_id%TYPE,
-        name in pinds_blog_categories.name%TYPE,
-        short_name in pinds_blog_categories.short_name%TYPE,
-        creation_user in acs_objects.creation_user%TYPE,
-        creation_ip in acs_objects.creation_ip%TYPE
-    ) return integer;
-
-    procedure del (
-        category_id in pinds_blog_categories.category_id%TYPE
-    );
-end pinds_blog_category;
-/
-show errors
-
-
-create or replace package body pinds_blog_category
-as
-
-    function name (
-        object_id in acs_objects.object_id%TYPE
-    ) return varchar2
-    is
-        v_name            varchar2(4000);
-    begin
-        select name
-        into   v_name
-        from   pinds_blog_categories
-        where  category_id = pinds_blog_category.name.object_id;
-        return v_name;
-    end;
-
-    function new (
-        category_id in pinds_blog_categories.category_id%TYPE,
-        package_id in pinds_blog_categories.package_id%TYPE,
-        name in pinds_blog_categories.name%TYPE,
-        short_name in pinds_blog_categories.short_name%TYPE,
-        creation_user in acs_objects.creation_user%TYPE,
-        creation_ip in acs_objects.creation_ip%TYPE
-    ) return integer
-    is
-        v_category_id          integer;
-    begin
-        v_category_id := acs_object.new (
-            object_id => pinds_blog_category.new.category_id,
-            object_type => 'pinds_blog_category',
-            creation_user => pinds_blog_category.new.creation_user,
-            creation_ip => pinds_blog_category.new.creation_ip,
-            context_id => pinds_blog_category.new.package_id
-        );
-
-        insert into pinds_blog_categories (
-            category_id, 
-            package_id,
-            name,
-            short_name
-        ) values (
-            v_category_id, 
-            pinds_blog_category.new.package_id,
-            pinds_blog_category.new.name,
-            pinds_blog_category.new.short_name
-        );
-
-        return v_category_id;   
-    end;
-
-    procedure del (
-        category_id in pinds_blog_categories.category_id%TYPE
-    )
-    is
-    begin
-        update pinds_blog_entries
-        set    category_id = null
-        where  category_id = pinds_blog_category.del.category_id;
-
-        delete 
-        from   pinds_blog_categories
-        where  category_id = pinds_blog_category.del.category_id;
-
-        acs_object.del(pinds_blog_category.del.category_id);
-    end;
-
-
-end pinds_blog_category;
-/
-show errors