Subversion Repositories wimsdev

Rev

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

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