Rev 4652 | Rev 4668 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4561 | obado | 1 | # GetClassesUser |
4667 | obado | 2 | # Liste les classes liees a un utilisateur quser |
4561 | obado | 3 | |
1373 | bpr | 4 | !read jobs/listclasses.proc |
4561 | obado | 5 | listclasses_cnt=!itemcnt $listclasses |
4667 | obado | 6 | |
7 | listclassesuser=$empty |
||
8 | |||
1373 | bpr | 9 | !for cl =1 to $listclasses_cnt |
4667 | obado | 10 | |
11 | qclass=$(listclasses[$cl]) |
||
12 | |||
1373 | bpr | 13 | !read scripts/check.user |
4667 | obado | 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 | |||
1373 | bpr | 22 | !next |
23 | |||
4667 | obado | 24 | nb_user_error=!itemcnt $user_error |
25 | |||
1373 | bpr | 26 | !if $listclassesuser=$empty |
4667 | obado | 27 | error=user $quser didn't participate in $listclasses_cnt listed classes ($listclasses). This job also generated $nb_user_error errors ($user_error) |
1373 | bpr | 28 | !exit |
29 | !endif |