Subversion Repositories wimsdev

Rev

Rev 16213 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16213 Rev 16693
Line 2... Line 2...
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
!set kblock=!positionof item $block in $filelist
4
 
5
 
5
!if $parm1=$block or $parm1=$empty
6
!if $parm1=$block or $parm1=$empty
6
  !default parm2=??
7
  !default parm2=??
7
  !set parm2=!slashsubst $parm2
8
  !set parm2=!slashsubst $parm2
8
  !set pp=!item 3 to -1 of $parms
9
  !set pp=!item 3 to -1 of $parms
9
  !set pp=!slashsubst $pp
10
  !set pp=!slashsubst $pp
10
  <a id="primi$serial"></a>
11
  <a id="primi$(embed_file).$serial"></a>
11
  !if $doc/$block.$serial notitemof $foldlist and $printable!=yes
12
  !if $doc/$kblock.$(embed_file).$serial notitemof $foldlist and $printable!=yes
12
    !href cmd=reply&job=read&foldin=$block.$serial#primi$serial $parm2
13
    !href cmd=reply&job=read&foldin=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $parm2
13
  !else
14
  !else
14
    $pp
15
    $pp
15
    !if $printable!=yes
16
    !if $printable!=yes
16
      !set wims_ref_class=wims_button small
17
      !set wims_ref_class=wims_button small
17
      !href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
18
      !href cmd=reply&job=read&foldout=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $n_foldout
18
    !endif
19
    !endif
19
  !endif
20
  !endif
20
  !exit
21
  !exit
21
!endif
22
!endif
22
 
23
 
Line 27... Line 28...
27
!if $titb=$empty
28
!if $titb=$empty
28
  !default prompt=<span class="tt">$parm1</span>
29
  !default prompt=<span class="tt">$parm1</span>
29
  $prompt
30
  $prompt
30
  <span class="small">$n_nonavailable</span>
31
  <span class="small">$n_nonavailable</span>
31
!else
32
!else
32
  <a id="primi$serial"></a>
33
  <a id="primi$(embed_file).$serial"></a>
33
  $prompt
34
  $prompt
34
  !if $printable=yes
35
  !if $printable=yes
35
    !goto alwaysin
36
    !goto alwaysin
36
  !endif
37
  !endif
37
  !set wims_ref_class=wims_button small
38
  !set wims_ref_class=wims_button small
38
  !if $doc/$block.$serial notitemof $foldlist and robot notin $session
39
  !if $doc/$kblock.$(embed_file).$serial notitemof $foldlist and robot notin $session
39
    !href cmd=reply&job=read&foldin=$block.$serial#primi$serial $wims_name_detail
40
    !href cmd=reply&job=read&foldin=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $wims_name_detail
40
  !else
41
  !else
41
    !href cmd=reply&job=read&foldout=$block.$serial#primi$serial $n_foldout
42
    !href cmd=reply&job=read&foldout=$kblock.$(embed_file).$serial#primi$(embed_file).$serial $n_foldout
42
    :alwaysin
43
    :alwaysin
43
    !set blocksave=$blocksave $block
44
    !set blocksave=$blocksave $block
44
    !set block=$parm1
45
    !set block=$parm1
45
    !read $docdir/$doc/$parm1.def content
46
    !read $docdir/$doc/$parm1.def content
46
    !set block=!word -1 of $blocksave
47
    !set block=!word -1 of $blocksave