Index: openacs-4/packages/lars-blogger/www/drafts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/drafts.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/www/drafts.tcl	28 Aug 2003 09:41:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/www/drafts.tcl	16 Oct 2003 23:10:45 -0000	1.3
@@ -6,22 +6,70 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-if { [ad_permission_p $package_id admin] } {
+set page_title "Draft Entries"
+
+set context [list $page_title]
+
+set elements [list]
+lappend elements edit {
+    label {}
+    sub_class narrow
+    display_template {
+        <img src="/resources/acs-subsite/Edit16.gif" height="16" width="16" border="0">
+    }
+    link_url_eval {[export_vars -base entry-edit { entry_id { return_url [ad_return_url] } }]}
+    link_html { title "Edit entry" }
+}
+lappend elements entry_date {
+    label "Date"
+    display_col entry_date_pretty
+}
+
+if { [permission::permission_p -object_id $package_id -privilege write] } {
     set statement "all_draft_entries"
+    lappend elements creation_user {
+        label "Author"
+        display_template {@entries.first_names@ @entries.last_name@}
+        link_url_eval {[acs_community_member_url -user_id $creation_user]}
+    }
 } else {
     set statement "draft_entries"
 }
 
-set page_title "Draft Entries"
+lappend elements content {
+    label "Entry"
+    link_url_eval {[export_vars -base one-entry { entry_id { return_url [ad_return_url] } }]}
+    link_html { title "Preview entry" }
+}
+lappend elements publish {
+    label {Publish}
+    sub_class narrow
+    display_template {
+        Publish
+    }
+    link_url_eval {[export_vars -base entry-publish { entry_id { return_url [ad_return_url] } }]}
+    link_html { title "Publish entry" }
+    html { align center }
+}
+lappend elements delete {
+    label {}
+    sub_class narrow
+    display_template {
+        <img src="/resources/acs-subsite/Delete16.gif" height="16" width="16" border="0">
+    }
+    link_url_eval {[export_vars -base entry-delete { entry_id { return_url [ad_return_url] } }]}
+    link_html { title "Delete entry" }
+}
 
-set context [list $page_title]
 
-db_multirow -extend { edit_url publish_url delete_url preview_url } draft_entries $statement {} {
-    set return_url "[ad_conn url][ad_decode [ad_conn query] "" "" "?[ad_conn query]"]"
-    set edit_url "[ad_conn package_url]entry-edit?[export_vars { entry_id return_url }]"
-    set delete_url "[ad_conn package_url]entry-delete?[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]entry-publish?[export_vars { entry_id return_url }]"
+template::list::create \
+    -name entries \
+    -multirow entries \
+    -elements $elements
+
+db_multirow -extend { entry_date_pretty edit_url publish_url delete_url preview_url } entries $statement {} {
+    set entry_date_pretty [lc_time_fmt $entry_date_ansi "%q"]
+    set content [string_truncate -len 80 $content]
 }
 
 set entry_add_url "entry-edit"