Subversion Repositories wimsdev

Rev

Rev 5640 | Rev 5971 | Go to most recent revision | 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.  <iframe src="wims.cgi?module=adm/raw&amp;job=lightpopup&amp;noabout=yes&amp;emod=$parm1&amp;parm=$parm3&amp;option=noabout"
  12. style="width:100%;height:100%;min-height:700px;"></iframe>
  13. !exit
  14. !endif
  15.  !reset titb
  16.  !read $wims_priv_thisdoc/$parm1.def
  17.  !set prompt=!item 2 to -1 of $parms
  18.  !default prompt=$titb
  19.  !if $titb=$empty
  20.   !default prompt=<tt>$parm1</tt>
  21.   $prompt
  22.   !if $editable=yes
  23.    <small>[
  24.    !href cmd=reply&job=edit&block=$parm1 $n_create
  25.    ]</small>
  26.   !else
  27.    <small>$n_nonavailable</small>
  28.   !endif
  29.  !else
  30.   <a id="$parm1"></a>
  31.   $prompt
  32.   !if $editable=yes
  33.    <small>[
  34.    !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
  35.    ]</small>
  36.   !endif
  37.   !read $wims_priv_thisdoc/$parm1.def content
  38.   !set gotblock=!append item $parm1 to $gotblock
  39.  !endif
  40.  
  41.