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&job=lightpopup&emod=$parm1&parm=$parm3;cmd=new;&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 |