Rev 7077 | Rev 8355 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $block=main
module_title=$tit
!else
module_title=$tit / $titb
!endif
!if robot isin $session
!exit
!endif
!if $doctoc=yes and $block!=doctoc
!set header=$header\
<script type="text/javascript">jQuery(function() {jQuery( "#doc_toc" ).menu();});</script>
!endif
sheetdata=
!if $foldin!=$empty
foldin=!word 1 of $foldin
foldin=!char 1 to 50 of $foldin
foldlist=!item 1 to 200 of $foldlist
foldlist=!listunion $foldlist and $doc/$foldin
!endif
!if $foldout!=$empty
foldlist=!listcomplement $doc/$foldout in $foldlist
!endif
!bound readcntadv between integer -1 and 1 default 0
readcnt=$[max(0,$readcnt+($readcntadv))]
!if $readcnt>0
rlast=!line $readcnt of $readhist
!endif
!distribute item $rlast into doclast,blocklast
!if $doc,$block!=$doclast,$blocklast
readhist=!line 1 to $readcnt of $readhist
!advance readcnt
readhist=!append line $doc,$block to $readhist
!if $readcnt>50
readhist=!line -50 to -1 of $readhist
readcnt=!linecnt $readhist
!endif
!else
rlast=!line $readcnt-1 of $readhist
!distribute item $rlast into doclast,blocklast
!endif
histtot=!linecnt $readhist
!if $readcnt<$histtot
rnext=!line $readcnt+1 of $readhist
!distribute item $rnext into docnext,blocknext
!endif
!read popup.proc
!read readdates.proc