Subversion Repositories wimsdev

 !if $parm1=$empty

!if $parm1=$empty

 !endif

!endif

!if \ isin $parm1$parm2$parm3$parm4

!if \ isin $parm1$parm2$parm3$parm4

 !for p in 1,2,3,4

  !for p in 1,2,3,4

  !set parm$p=!slashsubst $(parm$p)

    !set parm$p=!slashsubst $(parm$p)

 !next p

  !next p

 !default parm4=style="width:90%;height:300px;"

  !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

 !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&amp;job=lightpopup&amp;emod=$parm1&amp;parm=$parm3;cmd=new;&amp;option=noabout" $parm4></iframe>

  <iframe src="wims.cgi?module=adm/raw&amp;job=lightpopup&amp;emod=$parm1&amp;parm=$parm3;cmd=new;&amp;option=noabout" $parm4></iframe>

!exit

  !exit

 !reset titb

!reset titb

 !read $docdir/$doc/$parm1.def

!read $docdir/$doc/$parm1.def

 !set prompt=!item 2 to -1 of $parms

!set prompt=!item 2 to -1 of $parms

 !default prompt=$titb

!default prompt=$titb

 !if $titb=$empty

!if $titb=$empty

  $prompt

  $prompt

 !else

!else

 !endif

!endif