Index: openacs-4/packages/lars-blogger/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index-oracle.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lars-blogger/www/index-oracle.xql	3 Jul 2003 18:37:04 -0000	1.1.2.1
+++ openacs-4/packages/lars-blogger/www/index-oracle.xql	3 Jul 2003 18:47:40 -0000	1.1.2.2
@@ -5,13 +5,14 @@
 
     <fullquery name="bloggers">
         <querytext>
-		    select distinct screen_name
+		    select distinct u.screen_name, u.user_id
 		    from   pinds_blog_entries e,
 		           acs_objects o,
 		           users u
 		    where  package_id = :package_id
                     and    o.object_id = e.entry_id
                     and    u.user_id = o.creation_user
+                    and    u.screen_name is not null
         </querytext>
     </fullquery>
 
Index: openacs-4/packages/lars-blogger/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index-postgresql.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lars-blogger/www/index-postgresql.xql	3 Jul 2003 18:37:04 -0000	1.1.2.1
+++ openacs-4/packages/lars-blogger/www/index-postgresql.xql	3 Jul 2003 18:47:40 -0000	1.1.2.2
@@ -5,12 +5,12 @@
 
     <fullquery name="bloggers">
         <querytext>
-		    select distinct screen_name
+		    select distinct u.screen_name, u.user_id
 		    from   pinds_blog_entries e join 
 		           acs_objects o on (o.object_id = e.entry_id) join 
 		           users u on (u.user_id = o.creation_user)
-		    where  package_id = :package_id
-                    and    screen_name != ''
+		    where  e.package_id = :package_id
+                    and    u.screen_name != ''
         </querytext>
     </fullquery>
 
Index: openacs-4/packages/lars-blogger/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.adp,v
diff -u -r1.9.2.7 -r1.9.2.8
--- openacs-4/packages/lars-blogger/www/index.adp	3 Jul 2003 18:37:04 -0000	1.9.2.7
+++ openacs-4/packages/lars-blogger/www/index.adp	3 Jul 2003 18:47:40 -0000	1.9.2.8
@@ -20,17 +20,23 @@
   </else>
 
   <if @write_p@ true>
-    <p>
-      <b>&raquo;</b> <a href="@package_url@entry-edit" title="Add an entry to your weblog, or start a new weblog">Add entry or start a new weblog</a><br>
-    </p>
+    <if @user_has_blog_p@ true>
+      <p>
+        <b>&raquo;</b> <a href="@package_url@entry-edit" title="Add an entry to your weblog">Add entry</a><br>
+      </p>
+    </if>
+    <else>
+      <p>
+        <b>&raquo;</b> <a href="@package_url@entry-edit" title="Start your weblog">Start your weblog</a><br>
+      </p>
+    </else>
   </if>
 
   <if @admin_p@ true>
     <p>
       <b>&raquo;</b> <a href="@package_url@admin/" title="Visit administration pages">Administer<a/>
     </p>
   </if>
-
   
 </if>
 
Index: openacs-4/packages/lars-blogger/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v
diff -u -r1.4.2.9 -r1.4.2.10
--- openacs-4/packages/lars-blogger/www/index.tcl	1 Jul 2003 13:28:26 -0000	1.4.2.9
+++ openacs-4/packages/lars-blogger/www/index.tcl	3 Jul 2003 18:47:40 -0000	1.4.2.10
@@ -44,6 +44,14 @@
 
     db_multirow bloggers bloggers { *SQL* }
 
+    set user_has_blog_p 0
+    multirow foreach bloggers {
+        if { $user_id == [ad_conn user_id] } {
+            set user_has_blog_p 1
+            break
+        }
+    }
+
     ad_return_template
 
 } else {