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