Rev 1373 | Rev 4629 | 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 |
| 4561 | obado | 7 | error=buggy $listclasses_cnt |
| 8 | !exit |
||
| 9 | |||
| 1373 | bpr | 10 | qclass=$(listclasses[$cl;1]) |
| 4561 | obado | 11 | !!rclass=$(listclasses[$cl;2]) |
| 1373 | bpr | 12 | !read scripts/check.user |
| 13 | !next |
||
| 14 | |||
| 15 | !if $listclassesuser=$empty |
||
| 4561 | obado | 16 | error=no class $listclasses_cnt |
| 1373 | bpr | 17 | !exit |
| 18 | !endif |