Rev 4667 | Rev 4687 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4667 | Rev 4668 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | # GetClassesUser |
1 | # GetClassesUser |
2 | # Liste les classes liees a un utilisateur quser |
2 | # Liste les classes liees a un utilisateur quser |
3 | 3 | ||
4 | !read jobs/listclasses.proc |
4 | !read jobs/listclasses.proc |
5 | listclasses_cnt=!itemcnt $listclasses |
5 | listclasses_cnt=!itemcnt $listclasses |
6 | - | ||
7 | listclassesuser=$empty |
- | |
8 | 6 | ||
9 | !for cl =1 to $listclasses_cnt |
7 | !for cl =1 to $listclasses_cnt |
10 | 8 | ||
11 |
|
9 | qclass=!item $cl of $listclasses |
- | 10 | rclass=!item $cl of $list_rclasses |
|
12 | 11 | ||
13 | !read scripts/check.user |
12 | !read scripts/check.user |
14 | 13 | ||
15 | !if $error!=$empty |
14 | !if $error!=$empty |
16 | user_error=!append item $error to $user_error |
15 | user_error=!append item $error to $user_error |
17 | error=$empty |
16 | error=$empty |
18 | !else |
17 | !else |
19 | listclassesuser=!append item $qclass to $listclassesuser |
18 | listclassesuser=!append item $qclass to $listclassesuser |
- | 19 | list_rclassesuser=!append item $rclass to $list_rclassesuser |
|
20 | !endif |
20 | !endif |
21 | 21 | ||
22 | !next |
22 | !next |
23 | 23 | ||
24 | nb_user_error=!itemcnt $user_error |
24 | nb_user_error=!itemcnt $user_error |