Index: openacs-4/packages/bookshelf/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bookshelf/www/index.tcl	20 Mar 2004 18:32:04 -0000	1.3
+++ openacs-4/packages/bookshelf/www/index.tcl	29 Jun 2004 10:17:50 -0000	1.4
@@ -78,8 +78,8 @@
            b.book_author,
            b.book_title,
            b.main_entry,
+           b.main_entry_mime_type,
            b.additional_entry,
-           b.excerpt,
            b.publish_status,
            b.read_status,
            bookshelf_book__read_status_pretty(b.read_status) as read_status_pretty,
@@ -95,13 +95,11 @@
     order  by o.creation_date desc
 "
 
-db_multirow -extend { view_url edit_url } book books $sql {
-    if { [empty_string_p $excerpt] } {
-        set excerpt [string_truncate -len 300 -- $main_entry]
-    }
+db_multirow -extend { view_url edit_url main_entry_html } book books $sql {
     set read_status_pretty [string totitle $read_status_pretty]
     set view_url "book-view?[export_vars { book_no }]"
     set edit_url "book-edit?[export_vars { book_no }]"
+    set main_entry_html [ad_html_text_convert -from $main_entry_mime_type -to text/html -- $main_entry]
 }
 
 db_multirow -extend { name_url stat_name } stats stats_by_read_status {