Subversion Repositories wimsdev

Rev

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

Rev 5273 Rev 5384
Line 2... Line 2...
2 
# Check.user verifie que l'element $quser est present dans $qclass
2 
# Check.user verifie que l'element $quser est present dans $qclass
3 
 
 3 
 
4 
#On considere que la classe a été verifie en amont (via check.class)
 4 
#On considere que la classe a ete verifie en amont (via check.class)
5 
 
 5 
 
- 
 
 6 
quser=!word 1 of $quser
- 
 
 7 
quser=!translate internal . to @ in $quser
6 
quser=!translate internal ./;,?* to $         $ in $quser
 8 
quser=!translate internal /;,?* to $         $ in $quser
7 
!if $ $ isin $quser
 9 
!if $ $ isin $quser
8 
 quser=
 10 
 quser=
9 
!endif
 11 
!endif
10 
!if $quser=$empty
 12 
!if $quser=$empty
11 
 :baduser
 13 
 :baduser
12 
 error=bad user
 14 
 error=bad user (empty quser or bad chars detected)
13 
 !exit
 15 
 !exit
14 
!endif
 16 
!endif
15 
 
 17 
 
16 
!if $quser=supervisor
 18 
!if $quser=supervisor
17 
 deffile=supervisor
 19 
 deffile=supervisor