Subversion Repositories wimsdev

Rev

Rev 16693 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
751 bpr 1
!!##language independant
23 reyssat 2
!set parm1=!text select /$namechars in $parm1
3
!set parm1=!char 1 to $namelim of $parm1
16693 guerimand 4
!set kblock=!positionof item $block in $filelist
23 reyssat 5
 
6
!if $parm1=$block or $parm1=$empty
12490 bpr 7
  !default parm2=??
8
  !set parm2=!slashsubst $parm2
9
  !set pp=!item 3 to -1 of $parms
10
  !set pp=!slashsubst $pp
16687 guerimand 11
  <a id="primi$(embed_file).$serial"></a>
16693 guerimand 12
  !if $doc/$kblock.$(embed_file).$serial notitemof $foldlist and $printable!=yes
13
    !href cmd=reply&job=read&foldin=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $parm2
12490 bpr 14
  !else
15
    $pp
16
    !if $printable!=yes
16213 bpr 17
      !set wims_ref_class=wims_button small
16693 guerimand 18
      !href cmd=reply&job=read&foldout=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $n_foldout
12490 bpr 19
    !endif
23 reyssat 20
  !endif
12490 bpr 21
  !exit
23 reyssat 22
!endif
23
 
24
!reset titb
25
!read $wims_priv_thisdoc/$parm1.def
26
!set prompt=!item 2 to -1 of $parms
27
!default prompt=$titb
28
!if $titb=$empty
12490 bpr 29
  !default prompt=<span class="tt">$parm1</span>
30
  $prompt
23 reyssat 31
  !if $editable=yes
16213 bpr 32
    !set wims_ref_class=wims_button small
12490 bpr 33
    !href cmd=reply&job=edit&block=$parm1 $n_create
34
  !else
35
    <span class="small">$n_nonavailable</span>
23 reyssat 36
  !endif
12490 bpr 37
!else
16687 guerimand 38
  <a id="primi$(embed_file).$serial"></a>
12490 bpr 39
  $prompt
40
  !if $printable=yes
41
    !goto alwaysin
42
  !endif
16213 bpr 43
  !set wims_ref_class=wims_button small
16693 guerimand 44
  !if $doc/$kblock.$(embed_file).$serial notitemof $foldlist and robot notin $session
45
    !href cmd=reply&job=read&foldin=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $wims_name_detail
12490 bpr 46
  !else
16693 guerimand 47
    !href cmd=reply&job=read&foldout=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $n_foldout
12490 bpr 48
    !if $editable=yes
16213 bpr 49
      !set wims_ref_class=wims_button small
12490 bpr 50
      !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
51
    !endif
52
    :alwaysin
53
    !set blocksave=$blocksave $block
54
    !set block=$parm1
55
    !read $wims_priv_thisdoc/$parm1.def content
56
    !set block=!word -1 of $blocksave
57
    !set blocksave=!word 1 to -2 of $blocksave
58
    !set gotblock=!append item $parm1 to $gotblock
59
  !endif
23 reyssat 60
!endif