Subversion Repositories wimsdev

Rev

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

Rev 9546 Rev 9928
Line 7... Line 7...
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
 11 
!endif
12 
!if $varfilter=$empty
 - 
 
13 
	varfilter=!record 0 of wimshome/s2/$wims_session/varfilter
 - 
 
14 
!else
 12 
 
15 
	!writefile wimshome/s2/$wims_session/varfilter $varfilter
 13 
!read adm/varfilter proc
16 
!endif
 - 
 
17 
!if $varfilter!=$empty
 14 
!if $varfilterclear!=$empty
18 
   !reset varfilter_
 15 
    !reset varfilterclear,status
19 
   !set varfilter_cnt=!linecnt $varfilter
 - 
 
20 
   !for v=1 to $varfilter_cnt
 - 
 
21 
    var_line=!singlespace $(varfilter[$v;])
 - 
 
22 
    var_line =!replace $ $ by , in $var_line
 - 
 
23 
    varfilter_=!append line $var_line to $varfilter_
 - 
 
24 
  !next
 - 
 
25 
!endif
 16 
!endif
- 
 
 17 
!!!if $varfilter=$empty
- 
 
 18 
!!	varfilter=!record 0 of wimshome/s2/$wims_session/varfilter
- 
 
 19 
!!!else
- 
 
 20 
!!	!writefile wimshome/s2/$wims_session/varfilter $varfilter
- 
 
 21 
!!endif
- 
 
 22 
!!!if $varfilter!=$empty
- 
 
 23 
!!   !reset varfilter_
- 
 
 24 
!!   !set varfilter_cnt=!linecnt $varfilter
- 
 
 25 
!!   !for v=1 to $varfilter_cnt
- 
 
 26 
!!    var_line=!singlespace $(varfilter[$v;])
- 
 
 27 
!!    var_line =!replace $ $ by , in $var_line
- 
 
 28 
!!    varfilter_=!append line $var_line to $varfilter_
- 
 
 29 
!!  !next
- 
 
 30 
!!!endif
26 
 
 31 
 
27 
!default choice=all
 32 
!default choice=all
28 
!default graphics=0
 33 
!default graphics=0
29 
!if $choice=all
 34 
!if $choice=all
30 
 !reset loginlist
 35 
 !reset loginlist