Subversion Repositories wimsdev

Rev

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