Subversion Repositories wimsdev

Rev

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
12733 bpr 3
  module_title=$tit
20 reyssat 4
!else
12733 bpr 5
  module_title=$tit / $titb
20 reyssat 6
!endif
7
!if robot isin $session
12733 bpr 8
  !exit
20 reyssat 9
!endif
6682 bpr 10
 
11
!if $doctoc=yes and $block!=doctoc
6676 bpr 12
  !set header=$header\
13981 bpr 13
  <script>jQuery.noConflict();jQuery(function() {jQuery( "#doc_toc" ).menu();});</script>
6676 bpr 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
12733 bpr 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
20 reyssat 24
!endif
25
 
26
!if $foldout!=$empty
12733 bpr 27
  foldlist=!listcomplement $doc/$foldout in $foldlist
20 reyssat 28
!endif
29
 
30
!bound readcntadv between integer -1 and 1 default 0
31
readcnt=$[max(0,$readcnt+($readcntadv))]
32
!if $readcnt>0
12733 bpr 33
  rlast=!line $readcnt of $readhist
20 reyssat 34
!endif
35
!distribute item $rlast into doclast,blocklast
36
 
37
!if $doc,$block!=$doclast,$blocklast
12733 bpr 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
20 reyssat 45
!else
12733 bpr 46
  rlast=!line $readcnt-1 of $readhist
47
  !distribute item $rlast into doclast,blocklast
20 reyssat 48
!endif
49
 
50
histtot=!linecnt $readhist
51
!if $readcnt<$histtot
12733 bpr 52
  rnext=!line $readcnt+1 of $readhist
53
  !distribute item $rnext into docnext,blocknext
20 reyssat 54
!endif
55
 
56
!read docu/popup.proc
57
!read docu/readdates.proc