Subversion Repositories wimsdev

Rev

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