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