1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
!!##language independant
!if $parm1=$empty
!exit
!endif
!if \ isin $parm1$parm2$parm3$parm4
!for p in 1,2,3,4
!set parm$p=!slashsubst $(parm$p)
!next p
!endif
!if / isin $parm1
!default parm4=style="width:90%;height:300px;"
!set parm3=!replace internal &+ by ; in $parm3
!set parm3=!replace internal & by ; in $parm3
!set parm3=!replace internal &+ by ; in $parm3
!set parm3=!replace internal & by ; in $parm3
<iframe src="wims.cgi?module=adm/raw&job=lightpopup&emod=$parm1&parm=$parm3;cmd=new;&option=noabout" $parm4></iframe>
!exit
!endif
!reset titb
!let p=!positionof item $parm1 in $filelist
!if $embed_file=$empty
!set embed_file=$p
!else
!set embed_file=$embed_file.$p
!endif
!read $docdir/$doc/$parm1.def
!set prompt=!item 2 to -1 of $parms
!default prompt=$titb
!if $titb=$empty
!default prompt=<span class="tt">$parm1</span>
$prompt
<span class="small">$n_nonavailable</span>
!else
!if $parm2!=.
!! to embed something not visible
<a id="$parm1"></a>
!endif
$prompt
!read $docdir/$doc/$parm1.def content
!set gotblock=!append item $parm1 to $gotblock
!endif
!if . isin $embed_file
!let tmp=!replace internal . by , in $embed_file
!let tmp=!item 1 to -2 of $tmp
!let embed_file=!replace internal , by . in $embed_file
!else
!reset embed_file
!endif
|
