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 |