Subversion Repositories wimsdev

Rev

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

Rev 5971 Rev 6848
Line 6... Line 6...
6
 !for p in 1,2,3,4
6
 !for p in 1,2,3,4
7
  !set parm$p=!slashsubst $(parm$p)
7
  !set parm$p=!slashsubst $(parm$p)
8
 !next p
8
 !next p
9
!endif
9
!endif
10
!if / isin $parm1
10
!if / isin $parm1
-
 
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
11
 <iframe src="wims.cgi?module=adm/raw&amp;job=lightpopup&amp;noabout=yes&amp;emod=$parm1&amp;parm=$parm3&amp;option=noabout"
16
 <iframe src="wims.cgi?module=adm/raw&amp;job=lightpopup&amp;emod=$parm1&amp;parm=$parm3;cmd=new;&amp;option=noabout" $parm4></iframe>
12
style="width:100%;height:100%;min-height:700px;"></iframe>
-
 
13
!exit
17
!exit
14
!endif
18
!endif
15
 !reset titb
19
 !reset titb
16
 !read $wims_priv_thisdoc/$parm1.def
20
 !read $wims_priv_thisdoc/$parm1.def
17
 !set prompt=!item 2 to -1 of $parms
21
 !set prompt=!item 2 to -1 of $parms
18
 !default prompt=$titb
22
 !default prompt=$titb
19
 !if $titb=$empty
23
 !if $titb=$empty
20
  !default prompt=<span class="tt">$parm1</span>
24
  !default prompt=<span class="tt">$parm1</span>
21
  $prompt
25
  $prompt
22
  !if $editable=yes
26
  !if $editable=yes
23
   <span class="small">[
27
    <span class="small">[
24
   !href cmd=reply&job=edit&block=$parm1 $n_create
28
    !href cmd=reply&job=edit&block=$parm1 $n_create
25
   ]</span>
29
    ]</span>
26
  !else
30
  !else
27
   <span class="small">$n_nonavailable</span>
31
    <span class="small">$n_nonavailable</span>
28
  !endif
32
  !endif
29
 !else
33
 !else
30
  <a id="$parm1"></a>
34
  <a id="$parm1"></a>
31
  $prompt
35
  $prompt
32
  !if $editable=yes
36
  !if $editable=yes