Subversion Repositories wimsdev

Rev

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

Rev 9500 Rev 9546
Line 6... Line 6...
6 
!read tabletheme
 6 
!read tabletheme
7 
!if $wims_user!=supervisor
 7 
!if $wims_user!=supervisor
8 
 error=not_supervisor
 8 
 error=not_supervisor
9 
 !!user=$wims_user
 9 
 !!user=$wims_user
10 
 !exit
 10 
 !exit
- 
 
 11 
!endif
- 
 
 12 
!if $varfilter=$empty
- 
 
 13 
	varfilter=!record 0 of wimshome/s2/$wims_session/varfilter
- 
 
 14 
!else
- 
 
 15 
	!writefile wimshome/s2/$wims_session/varfilter $varfilter
11 
!endif
 16 
!endif
12 
!if $varfilter!=$empty
 17 
!if $varfilter!=$empty
13 
   !reset varfilter_
 18 
   !reset varfilter_
14 
   !set varfilter_cnt=!linecnt $varfilter
 19 
   !set varfilter_cnt=!linecnt $varfilter
15 
   !for v=1 to $varfilter_cnt
 20 
   !for v=1 to $varfilter_cnt