Rev 4652 | Rev 4668 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4652 | Rev 4667 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | # GetClassesUser |
1 | # GetClassesUser |
2 | # Liste les classes liees a un utilisateur quser |
2 | # Liste les classes liees a un utilisateur quser |
3 | 3 | ||
4 | !read jobs/listclasses.proc |
4 | !read jobs/listclasses.proc |
5 | listclasses_cnt=!itemcnt $listclasses |
5 | listclasses_cnt=!itemcnt $listclasses |
- | 6 | ||
- | 7 | listclassesuser=$empty |
|
- | 8 | ||
6 | !for cl =1 to $listclasses_cnt |
9 | !for cl =1 to $listclasses_cnt |
- | 10 | ||
7 |
|
11 | qclass=$(listclasses[$cl]) |
8 | #pour plus de securite, rclass doit etre fourni. S'il est donne par wims plutot que par l'appelant, c'est un verrou en moins. |
- | |
9 | !!rclass=$(listclasses[$cl;2]) |
- | |
- | 12 | ||
10 | !read scripts/check.user |
13 | !read scripts/check.user |
- | 14 | ||
- | 15 | !if $error!=$empty |
|
- | 16 | user_error=!append item $error to $user_error |
|
- | 17 | error=$empty |
|
- | 18 | !else |
|
- | 19 | listclassesuser=!append item $qclass to $listclassesuser |
|
- | 20 | !endif |
|
- | 21 | ||
11 | !next |
22 | !next |
- | 23 | ||
- | 24 | nb_user_error=!itemcnt $user_error |
|
12 | 25 | ||
13 | !if $listclassesuser=$empty |
26 | !if $listclassesuser=$empty |
14 |
|
27 | error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error) |
15 | !exit |
28 | !exit |
16 | !endif |
29 | !endif |