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 -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	11 Dec 2003 21:40:05 -0000	1.4
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	13 Dec 2003 16:26:33 -0000	1.5
@@ -80,4 +80,23 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog_setup_feed.screen_name">
+        <querytext>
+            select screen_name from users where user_id = :creation_user
+        </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>