Subversion Repositories wimsdev

!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