Subversion Repositories wimsdev

Rev

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