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