Index: openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl	8 Jan 2008 16:22:05 -0000	1.17
+++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl	1 Mar 2008 16:25:50 -0000	1.18
@@ -272,4 +272,90 @@
      }
 
 
-}
+
+  #
+  # view-book, wiki cmds in rhs
+  #
+  ADP_Generator create view-book -master 1 -footer 1  -wikicmds 0 \
+    -extra_header_stuff {
+    } \
+    -proc before_render {page} {
+      #::xo::cc set_parameter weblog_page weblog-portlet
+    } \
+    -proc content_part {} {
+       return [subst -novariables -nobackslashes \
+{<div style="float:left; width: 25%; font-size: .8em;
+     background: url(/resources/xowiki/bw-shadow.png) no-repeat bottom right;
+     margin-left: 2px; margin-top: 2px; padding: 0px 6px 6px 0px;			    
+">
+<div style="margin-top: -2px; margin-left: -2px; border: 1px solid #a9a9a9; padding: 5px 5px; background: #f8f8f8">
+@toc;noquote@
+</div></div>
+<div style="float:right; width: 70%;">@top_includelets;noquote@
+
+<if @book_prev_link@ not nil or @book_relpos@ not nil or @book_next_link@ not nil>
+<div class="book-navigation" style="background: #f8f8f8; border: 1px solid #a9a9a9;  width: 500px;">
+<table width='100%'>
+   <tr>
+   <td width='20'>
+   <if @book_prev_link@ not nil>
+        <a href="@book_prev_link@" accesskey='p' ID="bookNavPrev.a" onclick='return TocTree.getPage("@book_prev_link@");'>
+        <img border='0' alt='Previous' src='/resources/xowiki/previous.png' width='15px' ID="bookNavPrev.img"></a>
+    </if>
+    <else>
+        <a href="" accesskey='p' ID="bookNavPrev.a" onclick="">
+        <img border='0' alt='No Previous' src='/resources/xowiki/previous-end.png' width='15px' ID="bookNavPrev.img"></a>
+    </else>
+     </td>
+
+   <td>
+   <if @book_relpos@ not nil>
+     <table style='display: inline; text-align: center;'>
+     <tr><td width='450px' style='font-size: 75%'><div style='width: @book_relpos@;' ID='bookNavBar'></div><span ID='bookNavRelPosText'>@book_relpos@</span></td></tr>
+     </table>
+   </if>
+   </td>
+
+   <td width='20' ID="bookNavNext">
+   <if @book_next_link@ not nil>
+        <a href="@book_next_link@" accesskey='n' ID="bookNavNext.a" onclick='return TocTree.getPage("@book_next_link@");'>
+        <img border='0' alt='Next' src='/resources/xowiki/next.png' width='15px' ID="bookNavNext.img"></a>
+   </if>
+    <else>
+        <a href="" accesskey='n' ID="bookNavNext.a" onclick="">
+       <img border='0' alt='No Next' src='/resources/xowiki/next-end.png' width='15px' ID="bookNavNext.img"></a>
+    </else>
+   </td>
+   </tr>
+</table>
+</div>
+</if>
+
+<div id='book-page'>
+<include src="view-page" &="package_id"
+      &="references" &="name" &="title" &="item_id" &="page" &="context" &="header_stuff" &="return_url" 
+      &="content" &="references" &="lang_links" &="package_id" 
+      &="rev_link" &="edit_link" &="delete_link" &="new_link" &="admin_link" &="index_link" 
+      &="tags" &="no_tags" &="tags_with_links" &="save_tag_link" &="popular_tags_link" 
+      &="per_object_categories_with_links" 
+      &="digg_link" &="delicious_link" &="my_yahoo_link" 
+      &="gc_link" &="gc_comments" &="notification_subscribe_link" &="notification_image" 
+      &="top_includelets" &="page">
+</div>
+</div>
+}]}
+
+
+  #
+  # view-book-no-ajax, adp identical to view-book.
+  #
+  ADP_Generator create view-book-no-ajax -master 1 -footer 1 -wikicmds 0 \
+    -extra_header_stuff {
+    } \
+    -proc before_render {page} {
+      #::xo::cc set_parameter weblog_page weblog-portlet
+    } \
+    -proc content_part {} {
+      return [view-book content_part]
+    }
+}
\ No newline at end of file