Subversion Repositories wimsdev

Rev

Rev 14151 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##language independant
  2. !if $parm1=$empty
  3.   !exit
  4. !endif
  5. !if \ isin $parm1$parm2$parm3$parm4
  6.   !for p in 1,2,3,4
  7.     !set parm$p=!slashsubst $(parm$p)
  8.   !next p
  9. !endif
  10. !if / isin $parm1
  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
  18. !endif
  19. !reset titb
  20. !let p=!positionof item $parm1 in $filelist
  21. !if $embed_file=$empty
  22.   !set embed_file=$p
  23. !else
  24.  !set embed_file=$embed_file.$p
  25. !endif
  26. !read $docdir/$doc/$parm1.def
  27. !set prompt=!item 2 to -1 of $parms
  28. !default prompt=$titb
  29. !if $titb=$empty
  30.   !default prompt=<span class="tt">$parm1</span>
  31.   $prompt
  32.   <span class="small">$n_nonavailable</span>
  33. !else
  34.   !if $parm2!=.
  35.     !! to embed something not visible
  36.     <a id="$parm1"></a>
  37.   !endif
  38.   $prompt
  39.   !read $docdir/$doc/$parm1.def content
  40.   !set gotblock=!append item $parm1 to $gotblock
  41. !endif
  42. !if . isin $embed_file
  43.   !let tmp=!replace internal . by , in $embed_file
  44.   !let tmp=!item 1 to -2 of $tmp
  45.   !let embed_file=!replace internal , by . in $embed_file
  46. !else
  47.   !reset embed_file
  48. !endif
  49.