Subversion Repositories wimsdev

Rev

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