Subversion Repositories wimsdev

Rev

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 
 qclass=$(listclasses[$cl])
 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