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.6 -r1.7
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	14 Dec 2003 11:10:44 -0000	1.6
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	27 Feb 2004 18:30:58 -0000	1.7
@@ -78,4 +78,13 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::count.entry_count">
+        <querytext>
+            select count(*) 
+              from pinds_blog_entries 
+             where package_id = :package_id 
+               and draft_p = 'f'
+        </querytext>
+    </fullquery>
+
 </queryset>