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.7 -r1.8
--- openacs-4/packages/lars-blogger/www/index.adp	16 Sep 2002 09:25:51 -0000	1.7
+++ openacs-4/packages/lars-blogger/www/index.adp	16 Sep 2002 13:01:33 -0000	1.8
@@ -40,7 +40,7 @@
           <tr>
             <td align="center">
               <a href="admin/entry-edit" title="Add an entry to this blog">Add entry</a><br>
-              <a href="admin/" title="Visit the administration pages for this blog">Administer<a/>
+              <a href="admin/drafts" title="View draft entries">Draft entries<a/>
             </td>
           </tr>
           <tr>
Index: openacs-4/packages/lars-blogger/www/admin/drafts.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/drafts.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/www/admin/drafts.adp	14 Sep 2002 22:05:25 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/admin/drafts.adp	16 Sep 2002 13:01:34 -0000	1.5
@@ -2,34 +2,40 @@
 <property name="title">@page_title@</property>
 <property name="context_bar">@context_bar@</property>
 
-<table cellspacing=0 cellpadding=0 border=0>
-  <tr>
-    <td bgcolor="#cccccc">
-      <table cellspacing=1 cellpadding=2 border=0 width="100%">
-        <tr bgcolor="@header_background_color@">
-          <th>Date</th>
-          <th>Title</th>
-          <th>Content</th>
-          <th>Action</th>
-        </tr>
-        <multiple name="draft_entries">
-          <tr bgcolor="#eeeeee">
-            <td>@draft_entries.entry_date_pretty@</td>
-            <td>@draft_entries.title@</td>
-            <td>@draft_entries.content@</td>
-            <td align="center">
-	      <a href="@draft_entries.preview_url@">Preview</a>
-	      <a href="@draft_entries.publish_url@">Publish</a>
-	      <a href="@draft_entries.edit_url@">Edit</a>
-	      <a href="@draft_entries.delete_url@">Delete</a>
-	    </td>
+<if @draft_entries:rowcount@ eq 0>
+  <i>No draft entries.</i>
+</if>
+<else>
+  <table cellspacing=0 cellpadding=0 border=0>
+    <tr>
+      <td bgcolor="#cccccc">
+        <table cellspacing=1 cellpadding=2 border=0 width="100%">
+          <tr bgcolor="@header_background_color@">
+            <th>Date</th>
+            <th>Title</th>
+            <th>Content</th>
+            <th>Action</th>
           </tr>
-        </multiple>
-      </table>
-    </td>
-  </tr>
-</table>
+          <multiple name="draft_entries">
+            <tr bgcolor="#eeeeee">
+              <td>@draft_entries.entry_date_pretty@</td>
+              <td>@draft_entries.title@</td>
+              <td>@draft_entries.content@</td>
+              <td align="center">
+                <a href="@draft_entries.preview_url@">Preview</a>
+                <a href="@draft_entries.publish_url@">Publish</a>
+                <a href="@draft_entries.edit_url@">Edit</a>
+                <a href="@draft_entries.delete_url@">Delete</a>
+              </td>
+            </tr>
+          </multiple>
+        </table>
+      </td>
+    </tr>
+  </table>
+</else>
 
-<ul>
-<li><a href="@entry_add_url@">Add another draft entry</a>
-</ul>
\ No newline at end of file
+<p>
+  <a href="@entry_add_url@"><img src="@arrow_url@" width="11" height="11" border="0" alt="Add entry"></a>
+  <a href="@entry_add_url@" class="action_link">Add entry</a>
+</p>
Index: openacs-4/packages/lars-blogger/www/admin/drafts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/drafts.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/www/admin/drafts.tcl	14 Sep 2002 22:05:25 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/admin/drafts.tcl	16 Sep 2002 13:01:34 -0000	1.4
@@ -15,13 +15,15 @@
     set return_url "[ad_conn url][ad_decode [ad_conn query] "" "" "?[ad_conn query]"]"
     set edit_url "[ad_conn package_url]admin/entry-edit?[export_vars { entry_id return_url }]"
     set delete_url "[ad_conn package_url]admin/entry-delete?[export_vars { entry_id return_url }]"
-    set preview_url "[ad_conn package_url]admin/entry-preview?[export_vars { entry_id return_url }]"
+    set preview_url "[ad_conn package_url]one-entry?[export_vars { entry_id return_url }]"
     set publish_url "[ad_conn package_url]admin/entry-publish?[export_vars { entry_id return_url }]"
     set content [ns_adp_parse -string $content]
 }
 
 set entry_add_url "entry-edit"
 
+set arrow_url "[ad_conn package_url]graphics/arrow-box.gif"
+
 set header_background_color [lars_blog_header_background_color]
 
 ad_return_template
Index: openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	14 Sep 2002 21:43:37 -0000	1.6
+++ openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	16 Sep 2002 13:01:34 -0000	1.7
@@ -91,7 +91,7 @@
     }
     
     if { [empty_string_p $return_url] } {
-        set return_url "entry-preview?[export_vars { entry_id }]"
+        set return_url "[ad_conn package_url]one-entry?[export_vars { entry_id }]"
     }
 
     ad_returnredirect $return_url
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-preview.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/entry-preview.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lars-blogger/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/www/admin/index.adp	8 Sep 2002 11:29:23 -0000	1.2
+++ openacs-4/packages/lars-blogger/www/admin/index.adp	16 Sep 2002 13:01:34 -0000	1.3
@@ -4,6 +4,5 @@
 <ul>
   <li><a href="entry-edit">Add blog entry</a>
   <li><a href="drafts">Draft entries</a>
-  <li><a href="recently-published">Recently published entries</a>
 </ul>
 
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/recently-published-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/recently-published-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/recently-published.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/recently-published.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?