Subversion Repositories wimsdev

Rev

Rev 16687 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
747 bpr 1
!!##language independant
12490 bpr 2
!if $parm1=$empty
23 reyssat 3
  !exit
12490 bpr 4
!endif
23 reyssat 5
!if \ isin $parm1$parm2$parm3$parm4
12490 bpr 6
  !for p in 1,2,3,4
7
    !set parm$p=!slashsubst $(parm$p)
8
  !next p
23 reyssat 9
!endif
3616 bpr 10
!if / isin $parm1
12490 bpr 11
  !default parm4=style="width:90%;height:300px;"
12
  !set parm3=!replace internal &+ by ; in $parm3
13
  !set parm3=!replace internal & by ; in $parm3
14
  !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>
17
  !exit
3616 bpr 18
!endif
12490 bpr 19
!reset titb
16693 guerimand 20
!let p=!positionof item $parm1 in $filelist
16687 guerimand 21
!if $embed_file=$empty
16693 guerimand 22
  !set embed_file=$p
16687 guerimand 23
!else
16693 guerimand 24
 !set embed_file=$embed_file.$p
16687 guerimand 25
!endif
12490 bpr 26
!read $wims_priv_thisdoc/$parm1.def
27
!set prompt=!item 2 to -1 of $parms
28
!default prompt=$titb
29
!if $titb=$empty
5971 bpr 30
  !default prompt=<span class="tt">$parm1</span>
23 reyssat 31
  $prompt
32
  !if $editable=yes
6848 bpr 33
    <span class="small">[
34
    !href cmd=reply&job=edit&block=$parm1 $n_create
35
    ]</span>
12490 bpr 36
 !else
6848 bpr 37
    <span class="small">$n_nonavailable</span>
12490 bpr 38
 !endif
39
!else
5894 bpr 40
  <a id="$parm1"></a>
23 reyssat 41
  $prompt
42
  !if $editable=yes
12490 bpr 43
    <span class="small">[
44
    !href cmd=reply&job=edit&doc=$doc&block=$parm1 $wims_name_Edit
45
    ]</span>
23 reyssat 46
  !endif
47
  !read $wims_priv_thisdoc/$parm1.def content
48
  !set gotblock=!append item $parm1 to $gotblock
12490 bpr 49
!endif
16687 guerimand 50
!if . isin $embed_file
51
  !let tmp=!replace internal . by , in $embed_file
52
  !let tmp=!item 1 to -2 of $tmp
53
  !let embed_file=!replace internal , by . in $embed_file
54
!else
55
  !reset embed_file
56
!endif