Rev 4640 | Rev 4667 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4640 | Rev 4652 | ||
---|---|---|---|
Line 3... | Line 3... | ||
3 | 3 | ||
4 | !read jobs/listclasses.proc |
4 | !read jobs/listclasses.proc |
5 | listclasses_cnt=!itemcnt $listclasses |
5 | listclasses_cnt=!itemcnt $listclasses |
6 | !for cl =1 to $listclasses_cnt |
6 | !for cl =1 to $listclasses_cnt |
7 | qclass=$(listclasses[$cl;1]) |
7 | qclass=$(listclasses[$cl;1]) |
8 | #pour plus de securite, rclass doit etre |
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]) |
9 | !!rclass=$(listclasses[$cl;2]) |
10 | !read scripts/check.user |
10 | !read scripts/check.user |
11 | !next |
11 | !next |
12 | 12 | ||
13 | !if $listclassesuser=$empty |
13 | !if $listclassesuser=$empty |