Subversion Repositories wimsdev

Rev

Rev 16687 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16687 Rev 16693
Line 15... Line 15...
15 
  !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>
 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
 17 
  !exit
18 
!endif
 18 
!endif
19 
!reset titb
 19 
!reset titb
- 
 
 20 
!let p=!positionof item $parm1 in $filelist
20 
!if $embed_file=$empty
 21 
!if $embed_file=$empty
21 
  !set embed_file=$parm1
 22 
  !set embed_file=$p
22 
!else
 23 
!else
23 
 !set embed_file=$embed_file.$parm1
 24 
 !set embed_file=$embed_file.$p
24 
!endif
 25 
!endif
25 
!read $wims_priv_thisdoc/$parm1.def
 26 
!read $wims_priv_thisdoc/$parm1.def
26 
!set prompt=!item 2 to -1 of $parms
 27 
!set prompt=!item 2 to -1 of $parms
27 
!default prompt=$titb
 28 
!default prompt=$titb
28 
!if $titb=$empty
 29 
!if $titb=$empty