Index: openacs-4/packages/bookshelf/www/bookshelf-include.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/www/bookshelf-include.adp,v
diff -u -r1.1 -r1.1.4.1
--- openacs-4/packages/bookshelf/www/bookshelf-include.adp	30 Sep 2002 18:10:56 -0000	1.1
+++ openacs-4/packages/bookshelf/www/bookshelf-include.adp	11 Dec 2004 23:11:35 -0000	1.1.4.1
@@ -1,5 +1,7 @@
 <multiple name="book">
+  <if @limit@ nil>
   <h3>@book.read_status_pretty@</h3>
+  </if>
   <group column="read_status">
     <div style="border-bottom:1px dashed #3366cc;">
       <include src="book-chunk" &book="book">
Index: openacs-4/packages/bookshelf/www/bookshelf-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/www/bookshelf-include.tcl,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/bookshelf/www/bookshelf-include.tcl	7 Nov 2003 17:35:42 -0000	1.2
+++ openacs-4/packages/bookshelf/www/bookshelf-include.tcl	11 Dec 2004 23:11:35 -0000	1.2.4.1
@@ -5,11 +5,19 @@
 # Expects:
 #   package_id:optional
 
+# optional: limit (sets a limit to how many are shown)
+
 if { ![exists_and_not_null package_id] } {
     set package_id [ad_conn package_id]
 }
 
-db_multirow -extend { view_url } book books {
+if { [exists_and_not_null limit] } {
+    set limit_clause "limit $limit"
+} else {
+    set limit_clause ""
+}
+
+db_multirow -extend { view_url } book books "
     select b.book_id,
            b.book_no,
            b.isbn,
@@ -28,11 +36,12 @@
            u.last_name as creation_user_last_name
     from   bookshelf_books b join 
            acs_objects o on (o.object_id = b.book_id) join
-           cc_users u on (u.user_id = o.creation_user)
+           persons u on (u.person_id = o.creation_user)
     where  package_id = :package_id
     and    publish_status = 'publish'
     order  by bookshelf_book__read_status_sort_order(b.read_status) desc, o.creation_date desc
-} {
+    $limit_clause
+" {
     if { [empty_string_p $excerpt] } {
         set excerpt [string_truncate -len 300 -- $main_entry]
     }