Index: openacs-4/packages/bookshelf/tcl/bookshelf-books-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/tcl/bookshelf-books-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/bookshelf/tcl/bookshelf-books-procs.tcl	20 Mar 2004 18:32:02 -0000	1.2
+++ openacs-4/packages/bookshelf/tcl/bookshelf-books-procs.tcl	25 Mar 2004 16:22:04 -0000	1.3
@@ -70,6 +70,11 @@
                        read_status = :read_status
                 where  book_id = :book_id
             }
+            db_dml update_obj_title_by_id {
+                update acs_objects
+                set    title = :book_title
+                where  object_id = :book_id
+            }
         } else {
             if { ![exists_and_not_null book_no]} {
                 error "You must supply either book_id or book_no"
@@ -90,6 +95,16 @@
                 where  book_no = :book_no
                 and    package_id = :package_id
             }
+            db_dml update_obj_title_by_no {
+                update acs_objects
+                set    title = :book_title
+                where  object_id = (
+                  select book_id 
+                  from bookshelf_books
+                   where book_no = :book_no
+                     and package_id = :package_id)
+            }
+
         }
 
     }