Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	28 Aug 2003 09:41:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	8 Dec 2003 05:23:42 -0000	1.3
@@ -2,6 +2,27 @@
 
 <queryset>
 
+    <fullquery name="lars_blog_entry_edit.package_id">
+        <querytext>
+            select package_id from pinds_blog_entries 
+            where entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="lars_blog_entry_edit.org_draft_p">
+        <querytext>
+            select draft_p from pinds_blog_entries where entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="lars_blog_entry_edit.update_entry">
+        <querytext>
+            update pinds_blog_entries
+            set    [join $set_clauses ", "]
+            where  entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="lars_blog_setup_feed.select_instance_channel">
         <querytext>
             select w.channel_id
@@ -65,4 +86,17 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog_list_user_blogs.blog_list">
+        <querytext>
+
+    select p.package_id 
+     from apm_packages p, acs_object_party_privilege_map perm
+    where p.package_key = 'lars-blogger' 
+      and p.package_id = perm.object_id
+      and perm.privilege = 'create'
+      and perm.party_id = :user_id
+
+        </querytext>
+    </fullquery>
+
 </queryset>