Rev 9616 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
9616 | guerimand | 1 | !!read getparm $module_init_parm wksheet |
7352 | bpr | 2 | !! output is get_wksheet |
20 | reyssat | 3 | !set parm1=!text select /$namechars in $parm1 |
4 | !set parm1=!char 1 to $namelim*2 of $parm1 |
||
5 | |||
6 | !if \ isin $parm2$parm3$parm4 |
||
12586 | bpr | 7 | !for p in 2,3,4 |
8 | !set parm$p=!slashsubst $(parm$p) |
||
9 | !next p |
||
20 | reyssat | 10 | !endif |
11 | !if / isin $parm1 |
||
12586 | bpr | 12 | !set p_=!translate / to $ $ in $parm1 |
13 | !set parm1=!word -1 of $p_ |
||
14 | !set pdoc=!word 1 to -2 of $p_ |
||
15 | !set pdoc=!translate $ $ to / in $pdoc |
||
20 | reyssat | 16 | !else |
12586 | bpr | 17 | !set pdoc=$doc |
20 | reyssat | 18 | !endif |
19 | !if $parm1=$empty or $parm1=. |
||
12586 | bpr | 20 | !set parm1=$block |
21 | !set pdoc=$doc |
||
20 | reyssat | 22 | !endif |
23 | !set pname=$parm2 |
||
24 | !reset titb |
||
25 | !if c isin $pdoc and $wims_class!=$empty |
||
12586 | bpr | 26 | !set dd=classes/$wims_class/doc |
20 | reyssat | 27 | !else |
12586 | bpr | 28 | !set dd=doc |
20 | reyssat | 29 | !endif |
30 | !read $dd/$pdoc/$parm1.def |
||
31 | !default pname=$titb |
||
32 | !default pname=$parm1 |
||
33 | !set parm3=!word 1 of $parm3 |
||
34 | !if $parm3!=$empty |
||
12586 | bpr | 35 | !set anchor=#$parm3 |
20 | reyssat | 36 | !else |
12586 | bpr | 37 | !reset anchor |
20 | reyssat | 38 | !endif |
39 | !set parm4=!word 1 of $parm4 |
||
40 | !if $parm4!=$empty |
||
12586 | bpr | 41 | !set mparms=&$parm4 |
20 | reyssat | 42 | !else |
12586 | bpr | 43 | !reset mparms |
20 | reyssat | 44 | !endif |
45 | !if $titb=$empty and $pdoc=$doc |
||
12586 | bpr | 46 | $pname |
20 | reyssat | 47 | !else |
12586 | bpr | 48 | !if $printable=yes and $pdoc=$doc |
49 | <a href="#$parm1">$pname</a> |
||
50 | !readproc docu/printlink.proc $parm1 |
||
20 | reyssat | 51 | !else |
12586 | bpr | 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 |
||
60 | !endif |
||
20 | reyssat | 61 | !endif |
62 | !endif |