Subversion Repositories wimsdev

Rev

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

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