Subversion Repositories wimsdev

Rev

Rev 12490 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12490 Rev 16687
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 
!if $embed_file=$empty
- 
 
 21 
  !set embed_file=$parm1
- 
 
 22 
!else
- 
 
 23 
 !set embed_file=$embed_file.$parm1
- 
 
 24 
!endif
20 
!read $wims_priv_thisdoc/$parm1.def
 25 
!read $wims_priv_thisdoc/$parm1.def
21 
!set prompt=!item 2 to -1 of $parms
 26 
!set prompt=!item 2 to -1 of $parms
22 
!default prompt=$titb
 27 
!default prompt=$titb
23 
!if $titb=$empty
 28 
!if $titb=$empty
24 
  !default prompt=<span class="tt">$parm1</span>
 29 
  !default prompt=<span class="tt">$parm1</span>
25 
  $prompt
 30 
  $prompt
26 
  !if $editable=yes
 31 
  !if $editable=yes
27 
    <span class="small">[
 32 
    <span class="small">[
28 
    !href cmd=reply&job=edit&block=$parm1 $n_create
 33 
    !href cmd=reply&job=edit&block=$parm1 $n_create
29 
    ]</span>
 34 
    ]</span>
30 
 !else
 35 
 !else
Line 38... Line 43...
38 
    !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
 43 
    !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
39 
    ]</span>
 44 
    ]</span>
40 
  !endif
 45 
  !endif
41 
  !read $wims_priv_thisdoc/$parm1.def content
 46 
  !read $wims_priv_thisdoc/$parm1.def content
42 
  !set gotblock=!append item $parm1 to $gotblock
 47 
  !set gotblock=!append item $parm1 to $gotblock
- 
 
 48 
!endif
- 
 
 49 
!if . isin $embed_file
- 
 
 50 
  !let tmp=!replace internal . by , in $embed_file
- 
 
 51 
  !let tmp=!item 1 to -2 of $tmp
- 
 
 52 
  !let embed_file=!replace internal , by . in $embed_file
- 
 
 53 
!else
- 
 
 54 
  !reset embed_file
43 
!endif
 55 
!endif