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.2 -r1.3
--- openacs-4/packages/bookshelf/www/book-chunk.tcl	12 Jan 2003 22:34:37 -0000	1.2
+++ openacs-4/packages/bookshelf/www/book-chunk.tcl	21 Jan 2003 14:54:51 -0000	1.3
@@ -3,6 +3,7 @@
 
 set package_id [ad_conn package_id]
 set write_p [ad_permission_p $package_id write]
+set book_no $book(book_no)
 
 set book(url) [bookshelf::amazon::get_book_url $book(isbn)]
 
@@ -17,10 +18,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 $book(book_no)}}]"
+    set edit_url "book-edit?[export_vars { book_no }]"
     if { [string equal $book(publish_status) "draft"] } {
-        set publish_url "book-publish?[export_vars { {book_no $book(book_no)} }]"
+        set publish_url "book-publish?[export_vars { book_no }]"
     } else {
-        set draft_url "book-publish?[export_vars { {book_no $book(book_no)} { publish_status "draft"} }]"
+        set draft_url "book-publish?[export_vars { book_no { publish_status "draft"} }]"
     }
 }