Subversion Repositories wimsdev

Rev

Rev 5601 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5601 Rev 6026
Line 4... Line 4...
4 
#On considere que la classe a ete 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
 6 
quser=!word 1 of $quser
7 
quser=!translate internal . to @ in $quser
 7 
quser=!translate internal . to @ in $quser
8 
quser=!translate internal /;,?* to $         $ in $quser
 8 
quser=!translate internal /;,?* to $         $ in $quser
- 
 
 9 
 
9 
!if $ $ isin $quser
 10 
!if $ $ isin $quser
10 
 quser=
 11 
 quser=
11 
!endif
 12 
!endif
12 
!if $quser=$empty
 13 
!if $quser=$empty
13 
 :baduser
 14 
 :baduser
Line 24... Line 25...
24 
 
 25 
 
25 
!if $class_superclass=
 26 
!if $class_superclass=
26 
 userdeffile=wimshome/log/classes/$qclass/$deffile
 27 
 userdeffile=wimshome/log/classes/$qclass/$deffile
27 
 test=!defof user_exists in $userdeffile
 28 
 test=!defof user_exists in $userdeffile
28 
 !if $test!=yes
 29 
 !if $test!=yes
- 
 
 30 
    error=user $quser not in this class ($qclass)
29 
    !goto baduser
 31 
    !exit
30 
 !endif
 32 
 !endif
31 
!else
 33 
!else
32 
 # on regarde si user existe dans la superclasse
 34 
 # on regarde si user existe dans la superclasse
33 
 userdeffile=wimshome/log/classes/$class_superclass/$deffile
 35 
 userdeffile=wimshome/log/classes/$class_superclass/$deffile
34 
 test=!defof user_exists in $userdeffile
 36 
 test=!defof user_exists in $userdeffile