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 |