Subversion Repositories wimsdev

Rev

Rev 5971 | Rev 7318 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5971 Rev 7270
Line 1... Line 1...
1 
!!##language independant
 1 
!read getparm $module_init_parm wksheet
- 
 
 2 
 
2 
!set parm1=!text select /$namechars in $parm1
 3 
!set parm1=!text select /$namechars in $parm1
3 
!set parm1=!char 1 to $namelim*2 of $parm1
 4 
!set parm1=!char 1 to $namelim*2 of $parm1
4 
 
 5 
 
5 
!if \ isin $parm2$parm3$parm4
 6 
!if \ isin $parm2$parm3$parm4
6 
 !for p in 2,3,4
 7 
 !for p in 2,3,4
Line 47... Line 48...
47 
 !if $printable=yes and $pdoc=$doc
 48 
 !if $printable=yes and $pdoc=$doc
48 
  <a href="#$parm1">$pname</a>
 49 
  <a href="#$parm1">$pname</a>
49 
  !readproc docu/printlink.proc $parm1
 50 
  !readproc docu/printlink.proc $parm1
50 
 !else
 51 
 !else
51 
  !if $pdoc=$doc
 52 
  !if $pdoc=$doc
52 
   !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms$anchor $pname
 53 
   !href module=$module&cmd=reply&job=read&doc=$pdoc&block=$parm1$mparms&wksheet=$wksheet$anchor $pname
53 
  !else
 54 
  !else
54 
   !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname
 55 
   !href module=$pdoc&cmd=new&job=read&block=$parm1$mparms$anchor $pname
55 
  !endif
 56 
  !endif
56 
 !endif
 57 
 !endif
57 
!endif
 58 
!endif