Subversion Repositories wimsdev

Rev

Rev 14796 | Rev 15016 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14297 guerimand 1
test=!defof allowed_optional_module in wimshome/log/wims.conf
2
!if class/freework notitemof $test
3
  notallowed=1
4
  !exit
5
!endif
6
 
7
!if $wims_class!=$empty
8
  test=!fileexists wimshome/log/classes/$wims_class/freeworks/.freeworks
14307 guerimand 9
  !if $test!=yes
10
    !sh mkdir $wims_home/log/classes/$wims_class/freeworks;\
11
    touch wimshome/log/classes/$wims_class/freeworks/.freeworks
14297 guerimand 12
  !endif
14307 guerimand 13
  statutfreework=open
14297 guerimand 14
!else
15
  statutfreework=closed
16
  !exit
17
!endif
18
 
14339 guerimand 19
!if $wims_user=supervisor
20
  !! --- check for list of user
21
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
22
  !reset ulist,flist,llist,uulist
23
  !for i=1 to $nbuser
24
    u_=!record $i of wimshome/log/classes/$wims_class/.userlist
25
    !distribute item $u_ into l_,f_,n_
26
    ulist=!append item $n_ to $ulist
27
    flist=!append item $f_ to $flist
28
    llist=!append item $l_ to $llist
29
  !next i
30
!endif
14297 guerimand 31
 
14537 guerimand 32
!! number maximal of zone in type=3
14796 guerimand 33
!! if change, some limit in var.def have to be adapted.(and zonelistlabel...)
14819 guerimand 34
!! do not put more than 9 (some process cannot work with two digit)
14537 guerimand 35
max_zone=3
14796 guerimand 36
zonelistlabelstudent=student1,student2,student3
37
zonelistlabelteacher=teacher1,teacher2,teacher3
38
zonelistlabel=$zonelistlabelstudent,$zonelistlabelteacher