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