Rev 4667 | Rev 4687 | 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 | |
1373 | bpr | 7 | !for cl =1 to $listclasses_cnt |
4667 | obado | 8 | |
4668 | obado | 9 | qclass=!item $cl of $listclasses |
10 | rclass=!item $cl of $list_rclasses |
||
11 | |||
1373 | bpr | 12 | !read scripts/check.user |
4667 | obado | 13 | |
14 | !if $error!=$empty |
||
15 | user_error=!append item $error to $user_error |
||
16 | error=$empty |
||
17 | !else |
||
18 | listclassesuser=!append item $qclass to $listclassesuser |
||
4668 | obado | 19 | list_rclassesuser=!append item $rclass to $list_rclassesuser |
4667 | obado | 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 |