Rev 6514 | Rev 10778 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 6514 | Rev 9909 | ||
|---|---|---|---|
| Line 14... | Line 14... | ||
| 14 | nb=!itemcnt $qclass |
14 | nb=!itemcnt $qclass |
| 15 | 15 | ||
| 16 | # the recursivity down here only works for 2 levels |
16 | # the recursivity down here only works for 2 levels |
| 17 | !if $nb>2 |
17 | !if $nb>2 |
| 18 | error=too many subdivisions in class id ($nb) |
18 | error=too many subdivisions in class id ($nb) |
| 19 | !exit |
19 | !exit |
| 20 | !endif |
20 | !endif |
| 21 | 21 | ||
| 22 | subclassid=!item 2 of $qclass |
22 | subclassid=!item 2 of $qclass |
| 23 | qclass = !item 1 of $qclass |
23 | qclass = !item 1 of $qclass |
| 24 | - | ||
| 25 | 24 | ||
| 26 | !read scripts/check.class |
25 | !read scripts/check.class |
| 27 | !if $error!=$empty |
26 | !if $error!=$empty |
| 28 | !exit |
27 | !exit |
| 29 | !endif |
28 | !endif |
| 30 | 29 | ||
| 31 | class_type=!defof class_type in $classdeffile |
30 | class_type=!defof class_type in $classdeffile |
| 32 | !if $class_type != 2 |
31 | !if $class_type != 2 |
| 33 | error=sorry, there shouldn't be a subclass in a simple class |
32 | error=sorry, there shouldn't be a subclass in a simple class |
| 34 | !exit |
33 | !exit |
| 35 | !endif |
34 | !endif |
| 36 | 35 | ||
| 37 | qclass = $qclass/$subclassid |
36 | qclass = $qclass/$subclassid |
| 38 | 37 | ||
| 39 | !endif |
38 | !endif |
| 40 | 39 | ||
| 41 | 40 | ||
| Line 66... | Line 65... | ||
| 66 | ############ Tests : A quoi servent les "+" ? ################### |
65 | ############ Tests : A quoi servent les "+" ? ################### |
| 67 | ##ces plus sont rajoutés quand il y a des droits d'une classe sur l'autre. (BPR) |
66 | ##ces plus sont rajoutés quand il y a des droits d'une classe sur l'autre. (BPR) |
| 68 | !!#une classe créée à travers le module raw : il y a un + à la fin dans class_connections |
67 | !!#une classe créée à travers le module raw : il y a un + à la fin dans class_connections |
| 69 | ## A quoi correspondent chacun de ces test ? (OB) |
68 | ## A quoi correspondent chacun de ces test ? (OB) |
| 70 | 69 | ||
| 71 | !!# si l'on crée une classe en ajoutant une connection |
70 | !!# si l'on crée une classe en ajoutant une connection |
| 72 | !!# no no |
71 | !!# no no |
| 73 | !!# dans la classe créée myself/2534808+ |
72 | !!# dans la classe créée myself/2534808+ |
| 74 | !!# dans la classe local yourself/7020853 |
73 | !!# dans la classe local yourself/7020853 |
| 75 | 74 | ||
| 76 | !!# yes no |
75 | !!# yes no |