Subversion Repositories wimsdev

Rev

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

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