Subversion Repositories wimsdev

Rev

Rev 15016 | Rev 16309 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15016 Rev 16279
Line 18... Line 18...
18 
!else
 18 
!else
19 
  statutfreework=closed
 19 
  statutfreework=closed
20 
  !exit
 20 
  !exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
!if $wims_user=supervisor
 23 
!!if $wims_user=supervisor
24 
  !! --- check for list of user
 24 
!! --- check for list of user
25 
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
 25 
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
26 
  !reset ulist,flist,llist,uulist
 26 
  !reset ulist,flist,llist,uulist
27 
  !for i=1 to $nbuser
 27 
  !for i=1 to $nbuser
28 
    u_=!record $i of wimshome/log/classes/$wims_class/.userlist
 28 
    u_=!record $i of wimshome/log/classes/$wims_class/.userlist
29 
    !distribute item $u_ into l_,f_,n_
 29 
    !distribute item $u_ into l_,f_,n_
30 
    ulist=!append item $n_ to $ulist
 30 
    ulist=!append item $n_ to $ulist
31 
    flist=!append item $f_ to $flist
 31 
    flist=!append item $f_ to $flist
32 
    llist=!append item $l_ to $llist
 32 
    llist=!append item $l_ to $llist
33 
  !next i
 33 
  !next i
34 
!endif
 34 
!!endif
35 
 
 35 
 
36 
!! number maximal of zone in type=3
 36 
!! number maximal of zone in type=3
37 
!! if change, some limit in var.def have to be adapted.(and zonelistlabel...)
 37 
!! if change, some limit in var.def have to be adapted.(and zonelistlabel...)
38 
!! do not put more than 9 (some process cannot work with two digit)
 38 
!! do not put more than 9 (some process cannot work with two digit)
39 
max_zone=3
 39 
max_zone=3