Rev 4640 | Rev 4667 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4561 | obado | 1 | # GetClassesUser |
| 2 | # Liste les classes liees a un utilisateur quser ? |
||
| 3 | |||
| 1373 | bpr | 4 | !read jobs/listclasses.proc |
| 4561 | obado | 5 | listclasses_cnt=!itemcnt $listclasses |
| 1373 | bpr | 6 | !for cl =1 to $listclasses_cnt |
| 7 | qclass=$(listclasses[$cl;1]) |
||
| 4652 | bpr | 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. |
| 4561 | obado | 9 | !!rclass=$(listclasses[$cl;2]) |
| 1373 | bpr | 10 | !read scripts/check.user |
| 11 | !next |
||
| 12 | |||
| 13 | !if $listclassesuser=$empty |
||
| 4561 | obado | 14 | error=no class $listclasses_cnt |
| 1373 | bpr | 15 | !exit |
| 16 | !endif |