Subversion Repositories wimsdev

Rev

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

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