Subversion Repositories wimsdev

Rev

Rev 12586 | 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
12586 bpr 2
!if $parm1=$empty
20 reyssat 3
  !exit
12586 bpr 4
!endif
20 reyssat 5
!if \ isin $parm1$parm2$parm3$parm4
12586 bpr 6
  !for p in 1,2,3,4
7
    !set parm$p=!slashsubst $(parm$p)
8
  !next p
20 reyssat 9
!endif
3616 bpr 10
!if / isin $parm1
12586 bpr 11
  !default parm4=style="width:90%;height:300px;"
12
  !set parm3=!replace internal &+ by ; in $parm3
13
  !set parm3=!replace internal & by ; in $parm3
14
  !set parm3=!replace internal &+ by ; in $parm3
15
  !set parm3=!replace internal & by ; in $parm3
16
  <iframe src="wims.cgi?module=adm/raw&amp;job=lightpopup&amp;emod=$parm1&amp;parm=$parm3;cmd=new;&amp;option=noabout" $parm4></iframe>
17
  !exit
3616 bpr 18
!endif
12586 bpr 19
!reset titb
20
!read $docdir/$doc/$parm1.def
21
!set prompt=!item 2 to -1 of $parms
22
!default prompt=$titb
23
!if $titb=$empty
5903 bpr 24
  !default prompt=<span class="tt">$parm1</span>
20 reyssat 25
  $prompt
5971 bpr 26
  <span class="small">$n_nonavailable</span>
12586 bpr 27
!else
14151 bpr 28
  !if $parm2!=.
29
    !! to embed something not visible
30
    <a id="$parm1"></a>
31
  !endif
20 reyssat 32
  $prompt
33
  !read $docdir/$doc/$parm1.def content
34
  !set gotblock=!append item $parm1 to $gotblock
12586 bpr 35
!endif