Subversion Repositories wimsdev

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

  !exit

!endif

!reset titb

!if $embed_file=$empty

  !set embed_file=$parm1

!else

 !set embed_file=$embed_file.$parm1

!endif

!read $wims_priv_thisdoc/$parm1.def

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

!default prompt=$titb

!if $titb=$empty

  !default prompt=<span class="tt">$parm1</span>

  $prompt

  !if $editable=yes

    <span class="small">[

    !href cmd=reply&job=edit&block=$parm1 $n_create

    ]</span>

 !else

    <span class="small">$n_nonavailable</span>

 !endif

!else

  <a id="$parm1"></a>

  $prompt

  !if $editable=yes

    <span class="small">[

    !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit

    ]</span>

  !endif

  !read $wims_priv_thisdoc/$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