Subversion Repositories wimsdev

Rev

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

Rev 16143 Rev 16367
Line 13... Line 13...
13
  val_=!defof user_techvar_$(idtechvar_) in $userdef
13
  val_=!defof user_techvar_$(idtechvar_) in $userdef
14
  !default val_=EMPTY
14
  !default val_=EMPTY
15
  !reset data_
15
  !reset data_
16
  data_=!defof techvar_$val_ in wimshome/log/classes/$wims_class/.$wims_read_parm
16
  data_=!defof techvar_$val_ in wimshome/log/classes/$wims_class/.$wims_read_parm
17
  !default data_=none
17
  !default data_=none
-
 
18
  sequence_withtechvar=1
18
!endif
19
!endif
19
!! end process technical variable
20
!! end process technical variable
20
 
21
 
21
condition=$data_
22
condition=$data_
22
!! check condition
23
!! check condition
23
output=yes
24
output=yes
-
 
25
!! for display of sequence in case of supervisor condition without technical variable are used 
-
 
26
!! (so supervisor can see real page of user)
24
!if $wims_user=supervisor
27
!if $wims_user=supervisor and (S notin $wims_read_parm or \ isin $cle_)
25
  !exit
28
  !exit
26
!endif
29
!endif
-
 
30
 
27
!if $condition=none
31
!if $condition=none
28
  output=no
32
  output=no
29
  !exit
33
  !exit
30
!endif
34
!endif
31
!if $condition!=$empty
35
!if $condition!=$empty