Subversion Repositories wimsdev

Rev

Rev 9616 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9616 Rev 12586
Line 2... Line 2...
2 
!! output is get_wksheet
 2 
!! output is get_wksheet
3 
!set parm1=!text select /$namechars in $parm1
 3 
!set parm1=!text select /$namechars in $parm1
4 
!set parm1=!char 1 to $namelim*2 of $parm1
 4 
!set parm1=!char 1 to $namelim*2 of $parm1
5 
 
 5 
 
6 
!if \ isin $parm2$parm3$parm4
 6 
!if \ isin $parm2$parm3$parm4
7 
 !for p in 2,3,4
 7 
  !for p in 2,3,4
8 
  !set parm$p=!slashsubst $(parm$p)
 8 
    !set parm$p=!slashsubst $(parm$p)
9 
 !next p
 9 
  !next p
10 
!endif
 10 
!endif
11 
!if / isin $parm1
 11 
!if / isin $parm1
12 
 !set p_=!translate / to $ $ in $parm1
 12 
  !set p_=!translate / to $ $ in $parm1
13 
 !set parm1=!word -1 of $p_
 13 
  !set parm1=!word -1 of $p_
14 
 !set pdoc=!word 1 to -2 of $p_
 14 
  !set pdoc=!word 1 to -2 of $p_
15 
 !set pdoc=!translate $ $ to / in $pdoc
 15 
  !set pdoc=!translate $ $ to / in $pdoc
16 
!else
 16 
!else
17 
 !set pdoc=$doc
 17 
  !set pdoc=$doc
18 
!endif
 18 
!endif
19 
!if $parm1=$empty or $parm1=.
 19 
!if $parm1=$empty or $parm1=.
20 
 !set parm1=$block
 20 
  !set parm1=$block
21 
 !set pdoc=$doc
 21 
  !set pdoc=$doc
22 
!endif
 22 
!endif
23 
!set pname=$parm2
 23 
!set pname=$parm2
24 
!reset titb
 24 
!reset titb
25 
!if c isin $pdoc and $wims_class!=$empty
 25 
!if c isin $pdoc and $wims_class!=$empty
26 
 !set dd=classes/$wims_class/doc
 26 
  !set dd=classes/$wims_class/doc
27 
!else
 27 
!else
28 
 !set dd=doc
 28 
  !set dd=doc
29 
!endif
 29 
!endif
30 
!read $dd/$pdoc/$parm1.def
 30 
!read $dd/$pdoc/$parm1.def
31 
!default pname=$titb
 31 
!default pname=$titb
32 
!default pname=$parm1
 32 
!default pname=$parm1
33 
!set parm3=!word 1 of $parm3
 33 
!set parm3=!word 1 of $parm3
34 
!if $parm3!=$empty
 34 
!if $parm3!=$empty
35 
 !set anchor=#$parm3
 35 
  !set anchor=#$parm3
36 
!else
 36 
!else
37 
 !reset anchor
 37 
  !reset anchor
38 
!endif
 38 
!endif
39 
!set parm4=!word 1 of $parm4
 39 
!set parm4=!word 1 of $parm4
40 
!if $parm4!=$empty
 40 
!if $parm4!=$empty
41 
 !set mparms=&$parm4
 41 
  !set mparms=&$parm4
42 
!else
 42 
!else
43 
 !reset mparms
 43 
  !reset mparms
44 
!endif
 44 
!endif
45 
!if $titb=$empty and $pdoc=$doc
 45 
!if $titb=$empty and $pdoc=$doc
46 
 $pname
 46 
  $pname
47 
!else
 47 
!else
48 
 !if $printable=yes and $pdoc=$doc
 48 
  !if $printable=yes and $pdoc=$doc
49 
  <a href="#$parm1">$pname</a>
 49 
    <a href="#$parm1">$pname</a>
50 
  !readproc docu/printlink.proc $parm1
 50 
    !readproc docu/printlink.proc $parm1
51 
 !else
 - 
 
52 
  !if $pdoc=$doc
 - 
 
53 
   !if $get_wksheet!=$empty and $get_wksheet!=0
 - 
 
54 
     !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms&wksheet=$get_wksheet$anchor $pname
 - 
 
55 
   !else
 - 
 
56 
     !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
 - 
 
57 
   !endif
 - 
 
58 
  !else
 51 
  !else
- 
 
 52 
    !if $pdoc=$doc
- 
 
 53 
      !if $get_wksheet!=$empty and $get_wksheet!=0
- 
 
 54 
        !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms&wksheet=$get_wksheet$anchor $pname
- 
 
 55 
      !else
- 
 
 56 
        !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
- 
 
 57 
      !endif
- 
 
 58 
    !else
59 
   !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname
 59 
      !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname
- 
 
 60 
    !endif
60 
  !endif
 61 
  !endif
61 
 !endif
 - 
 
62 
!endif
 62 
!endif