Index: openacs-4/packages/xowiki/www/view-book.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-book.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/www/view-book.tcl	6 Jan 2007 03:27:07 -0000	1.2
+++ openacs-4/packages/xowiki/www/view-book.tcl	7 Jan 2007 21:52:38 -0000	1.3
@@ -1,11 +1,12 @@
-
+set title [[$package_id folder_id] title]
 #ns_log notice "--including_page= $__including_page, portlet=$portlet"
 set toc [$page include_portlet [list toc -open_page $name  -decoration plain -remove_levels 1]]
 set i [$page set __last_includelet]
 my log "--last includelet = [$page set __last_includelet] [$page exists __is_book_page]"
 if {$i ne "" && ![$page exists __is_book_page]} {
   set p [$i position]
   set count [$i count]
+  if {$count == 0} {set count 1}
   set book_relpos [format %.2f%% [expr {100.0 * $p / $count}]]
   if {$p>1}      {set book_prev_link [$package_id pretty_link [$i page_name [expr {$p - 1}]]]}
   if {$p<$count} {set book_next_link [$package_id pretty_link [$i page_name [expr {$p + 1}]]]}