Subversion Repositories wimsdev

Rev

Rev 8355 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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