Subversion Repositories wimsdev

Rev

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

Rev 8355 Rev 12490
Line 1... Line 1...
1 
!!##language independant
 1 
!!##language independant
2 
!if $printable=yes
 2 
!if $printable=yes
3 
 !exit
 3 
  !exit
4 
!endif
 4 
!endif
5 
!set parm1=!text select /$namechars in $parm1
 5 
!set parm1=!text select /$namechars in $parm1
6 
!set parm1=!char 1 to $namelim*2 of $parm1
 6 
!set parm1=!char 1 to $namelim*2 of $parm1
7 
!if / isin $parm1
 7 
!if / isin $parm1
8 
 !set p_=!translate / to , in $parm1
 8 
  !set p_=!translate / to , in $parm1
9 
 !distribute items $p_ into pdoc,parm1
 9 
  !distribute items $p_ into pdoc,parm1
10 
!else
 10 
!else
11 
 !set pdoc=$doc
 11 
  !set pdoc=$doc
12 
!endif
 12 
!endif
13 
!if $parm1=$empty or $parm1=.
 13 
!if $parm1=$empty or $parm1=.
14 
 !set parm1=$block
 14 
  !set parm1=$block
15 
 !set pdoc=$doc
 15 
  !set pdoc=$doc
16 
!endif
 16 
!endif
17 
 
 17 
 
18 
!set parm2=!word 1 of $parm2
 18 
!set parm2=!word 1 of $parm2
19 
!if $parm2!=$empty
 19 
!if $parm2!=$empty
20 
 !set wims_ref_anchor=#$parm2
 20 
  !set wims_ref_anchor=#$parm2
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
!set pp=!item 3 to -1 of $parms
 23 
!set pp=!item 3 to -1 of $parms
24 
!set pp=!replace internal $     $ by $\
 24 
!set pp=!replace internal $     $ by $\
25 
$ in $pp
 25 
$ in $pp
26 
!set pp=!slashsubst $pp
 26 
!set pp=!slashsubst $pp
27 
 
 27 
 
28 
!if $printable=yes
 28 
!if $printable=yes
29 
 $pp
 29 
  $pp
30 
 !exit
 30 
  !exit
31 
!endif
 31 
!endif
32 
!set wims_form_method=post
 32 
!set wims_form_method=post
33 
!form reply
 33 
!form reply
34 
<input type="hidden" name="job" value="read" />
 34 
<input type="hidden" name="job" value="read" />
35 
<input type="hidden" name="doc" value="$doc" />
 35 
<input type="hidden" name="doc" value="$doc" />