Subversion Repositories wimsdev

Rev

Rev 7352 | Go to most recent revision | 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
7
 !for p in 2,3,4
8
  !set parm$p=!slashsubst $(parm$p)
9
 !next p
10
!endif
11
!if / isin $parm1
12
 !set p_=!translate / to $ $ in $parm1
5320 bpr 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
17
 !set pdoc=$doc
18
!endif
19
!if $parm1=$empty or $parm1=.
20
 !set parm1=$block
21
 !set pdoc=$doc
22
!endif
23
!set pname=$parm2
24
!reset titb
25
!if c isin $pdoc and $wims_class!=$empty
26
 !set dd=classes/$wims_class/doc
27
!else
28
 !set dd=doc
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
35
 !set anchor=#$parm3
36
!else
37
 !reset anchor
38
!endif
39
!set parm4=!word 1 of $parm4
40
!if $parm4!=$empty
41
 !set mparms=&$parm4
42
!else
43
 !reset mparms
44
!endif
45
!if $titb=$empty and $pdoc=$doc
46
 $pname
47
!else
48
 !if $printable=yes and $pdoc=$doc
1043 bpr 49
  <a href="#$parm1">$pname</a>
20 reyssat 50
  !readproc docu/printlink.proc $parm1
51
 !else
52
  !if $pdoc=$doc
7352 bpr 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
7318 bpr 55
   !else
56
     !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
57
   !endif
20 reyssat 58
  !else
5971 bpr 59
   !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname
20 reyssat 60
  !endif
61
 !endif
62
!endif