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 |
|
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 |