Subversion Repositories wimsdev

Rev

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

Rev 9928 Rev 9999
Line 8... Line 8...
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 
 
 12 
 
- 
 
 13 
!read adm/vfilter/listvarfilter.proc
13 
!read adm/varfilter proc
 14 
!read adm/vfilter/varfilter proc
14 
!if $varfilterclear!=$empty
15 
!if $varfilterclear!=$empty
15 
    !reset varfilterclear,status
 16 
    !reset varfilterclear,status
16 
!endif
 17 
!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
 - 
 
31 
 
 18 
 
32 
!default choice=all
 19 
!default choice=all
33 
!default graphics=0
 20 
!default graphics=0
34 
!if $choice=all
 21 
!if $choice=all
35 
 !reset loginlist
 22 
 !reset loginlist