Subversion Repositories wimsdev

Rev

Rev 2286 | Rev 3616 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
747 bpr 1 
!!##language independant
23 reyssat 2 
 !if $parm1=$empty
3 
  !exit
4 
 !endif
5 
!if \ isin $parm1$parm2$parm3$parm4
6 
 !for p in 1,2,3,4
7 
  !set parm$p=!slashsubst $(parm$p)
8 
 !next p
9 
!endif
10 
 !reset titb
11 
 !read $wims_priv_thisdoc/$parm1.def
12 
 !set prompt=!item 2 to -1 of $parms
13 
 !default prompt=$titb
14 
 !if $titb=$empty
15 
  !default prompt=<tt>$parm1</tt>
16 
  $prompt
17 
  !if $editable=yes
18 
   <small>[
747 bpr 19 
   !href cmd=reply&job=edit&block=$parm1 $n_create
1042 bpr 20 
   ]</small>
23 reyssat 21 
  !else
747 bpr 22 
   <small>$n_nonavailable</small>
23 reyssat 23 
  !endif
24 
 !else
3549 bpr 25 
  <a name="$parm1"></a>
23 reyssat 26 
  $prompt
27 
  !if $editable=yes
28 
   <small>[
1685 bpr 29 
   !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
23 reyssat 30 
   ]</small>
31 
  !endif
32 
  !read $wims_priv_thisdoc/$parm1.def content
33 
  !set gotblock=!append item $parm1 to $gotblock
34 
 !endif