Index: openacs-4/packages/bookshelf/www/book-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/www/book-chunk.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bookshelf/www/book-chunk.tcl	30 Sep 2002 18:10:56 -0000	1.1
+++ openacs-4/packages/bookshelf/www/book-chunk.tcl	12 Jan 2003 22:34:37 -0000	1.2
@@ -17,11 +17,10 @@
 set google_url "http://www.google.com/search?[export_vars { {q $book(book_title) } }]"
 
 if { $write_p } {
-    set edit_url "book-edit?[export_vars { book_no }]"
+    set edit_url "book-edit?[export_vars { {book_no $book(book_no)}}]"
     if { [string equal $book(publish_status) "draft"] } {
         set publish_url "book-publish?[export_vars { {book_no $book(book_no)} }]"
     } else {
         set draft_url "book-publish?[export_vars { {book_no $book(book_no)} { publish_status "draft"} }]"
     }
 }
-