Index: openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-1.0a3-1.0a4.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/upgrade/Attic/upgrade-1.0a3-1.0a4.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-1.0a3-1.0a4.sql	14 Dec 2003 11:10:44 -0000	1.3
+++ openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-1.0a3-1.0a4.sql	14 Dec 2003 12:32:27 -0000	1.4
@@ -21,3 +21,73 @@
 
 alter table pinds_blog_entries drop column posted_date;
 
+
+create or replace function pinds_blog_entry__new (
+    integer,     -- entry_id
+    integer,     -- package_id
+    varchar,     -- title
+    varchar,     -- title_url
+    integer,     -- category_id
+    varchar,     -- content
+    varchar,     -- content_format
+    timestamptz, -- entry_date
+    char,        -- draft_p
+    integer,     -- creation_user
+    varchar      -- creation_ip
+) returns integer as '
+declare
+    p_entry_id             alias for $1;
+    p_package_id           alias for $2;
+    p_title                alias for $3;
+    p_title_url            alias for $4;
+    p_category_id          alias for $5;
+    p_content              alias for $6;
+    p_content_format       alias for $7;
+    p_entry_date           alias for $8;
+    p_draft_p              alias for $9;
+    p_creation_user        alias for $10;
+    p_creation_ip          alias for $11;
+    v_entry_id             integer;
+begin
+    v_entry_id := acs_object__new (
+        p_entry_id,
+        ''pinds_blog_entry'',
+        current_timestamp,
+        p_creation_user,
+        p_creation_ip,
+        p_package_id
+    );
+
+    insert into pinds_blog_entries (
+      entry_id, 
+      package_id,
+      title,
+      title_url,
+      category_id,
+      content,
+      content_format,
+      entry_date,
+      draft_p,
+      deleted_p
+    ) values (
+      v_entry_id, 
+      p_package_id,
+      p_title,
+      p_title_url,
+      p_category_id,
+      p_content,
+      p_content_format,
+      p_entry_date,
+      p_draft_p,
+      ''f''
+    );
+
+    PERFORM acs_permission__grant_permission(
+        v_entry_id,
+	p_creation_user,
+	''admin''
+    );
+
+    return v_entry_id;   
+end;
+' language 'plpgsql';