Subversion Repositories wimsdev

Rev

Rev 6676 | Rev 12733 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!nocache
2
!if $block=main
3
 module_title=$tit
4
!else
5
 module_title=$tit / $titb
6
!endif
7
!if robot isin $session
8
 !exit
9
!endif
6682 bpr 10
 
11
!if $doctoc=yes and $block!=doctoc
6676 bpr 12
  !set header=$header\
13
 <script type="text/javascript">jQuery.noConflict();jQuery(function() {jQuery( "#doc_toc" ).menu();});</script>
14
!endif
6682 bpr 15
!!( "#doc_toc" ).menu({ position: { my: "left top", at: "right-5 top+5" } });
20 reyssat 16
 
17
sheetdata=
18
 
19
!if $foldin!=$empty
20
 foldin=!word 1 of $foldin
21
 foldin=!char 1 to 50 of $foldin
22
 foldlist=!item 1 to 200 of $foldlist
23
 foldlist=!listunion $foldlist and $doc/$foldin
24
!endif
25
 
26
!if $foldout!=$empty
27
 foldlist=!listcomplement $doc/$foldout in $foldlist
28
!endif
29
 
30
!bound readcntadv between integer -1 and 1 default 0
31
readcnt=$[max(0,$readcnt+($readcntadv))]
32
!if $readcnt>0
33
 rlast=!line $readcnt of $readhist
34
!endif
35
!distribute item $rlast into doclast,blocklast
36
 
37
!if $doc,$block!=$doclast,$blocklast
38
 readhist=!line 1 to $readcnt of $readhist
39
 !advance readcnt
40
 readhist=!append line $doc,$block to $readhist
41
 !if $readcnt>50
42
  readhist=!line -50 to -1 of $readhist
43
  readcnt=!linecnt $readhist
44
 !endif
45
!else
46
 rlast=!line $readcnt-1 of $readhist
47
 !distribute item $rlast into doclast,blocklast
48
!endif
49
 
50
histtot=!linecnt $readhist
51
!if $readcnt<$histtot
52
 rnext=!line $readcnt+1 of $readhist
53
 !distribute item $rnext into docnext,blocknext
54
!endif
55
 
56
!read docu/popup.proc
57
!read docu/readdates.proc