Subversion Repositories wimsdev

Rev

Rev 16309 | 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
 
16279 guerimand 23
!!if $wims_user=supervisor
24
!! --- check for list of user
14339 guerimand 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
16279 guerimand 34
!!endif
14297 guerimand 35
 
16733 guerimand 36
!! number maximal/minimal 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
16309 guerimand 40
!distribute item 0,1 into min_zonestudent,min_zoneteacher
14796 guerimand 41
zonelistlabelstudent=student1,student2,student3
42
zonelistlabelteacher=teacher1,teacher2,teacher3
16309 guerimand 43
zonelistlabel=$zonelistlabelstudent,$zonelistlabelteacher