Rev 17593 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
14297 | guerimand | 1 | !! activate freework |
2 | |||
3 | !! --- testing if noempty |
||
4 | nb=!record 1 of wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
5 | nb=!nonempty line $nb |
||
6 | !if $nb=$empty |
||
7 | error=emptyfreework |
||
8 | job=configfw |
||
9 | !changeto $job.proc |
||
10 | !endif |
||
11 | |||
16738 | guerimand | 12 | nb=!itemcnt $wimsexozone |
13 | !if $nb>1 |
||
14 | error=toomanywimsexo |
||
15 | job=configfw |
||
16 | !changeto $job.proc |
||
17 | !endif |
||
18 | |||
14297 | guerimand | 19 | !! --- checking date |
20 | d1=!text select char 0123456789 in $(deadline)$(timedeadline) |
||
21 | d2=!text select char 0123456789 in $(soldate)$(timesoldate) |
||
22 | !if $d2<=$d1 |
||
23 | error=badsoldate |
||
24 | job=configfw |
||
25 | !changeto $job.proc |
||
26 | !endif |
||
27 | |||
28 | !if $type>=2 |
||
29 | !! checking quota (if type>=2) |
||
30 | !readproc adm/class/quotafree.proc proc |
||
31 | nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist |
||
32 | space=$[0.25*$nbuser*$sizelimitfile] |
||
33 | !ifval $quota_free-$space<5 |
||
34 | error=notenoughfreespace |
||
35 | job=configfw |
||
36 | !changeto $job.proc |
||
37 | !endif |
||
38 | !endif |
||
39 | |||
14889 | guerimand | 40 | !! ---------- make a column in .grades file for this scoring |
41 | !if $scoring=0 and $type>=2 |
||
16422 | guerimand | 42 | test=!fileexists wimshome/log/classes/$wims_class/.grades |
43 | !if $test=yes |
||
44 | data=!record 1 of wimshome/log/classes/$wims_class/.grades |
||
45 | !distribute line $data into l1,l2,l3 |
||
46 | l2=!append item $wims_name_freework $freework to $l2 |
||
47 | l3=!append item 1 to $l3 |
||
48 | update_field=1 |
||
49 | update_content=$l1\ |
||
14889 | guerimand | 50 | $l2\ |
51 | $l3 |
||
16422 | guerimand | 52 | !read adm/uprecord wimshome/log/classes/$wims_class/.grades |
53 | !increase nbscore |
||
54 | scoring=$nbscore |
||
55 | !else |
||
56 | !writefile wimshome/log/classes/$wims_class/.grades :0\ |
||
57 | title,title,$wims_name_freework $freework\ |
||
58 | weight,weight,1 |
||
59 | nbscore=1 |
||
60 | scoring=1 |
||
61 | !endif |
||
14889 | guerimand | 62 | !endif |
63 | |||
14297 | guerimand | 64 | !! change statut |
65 | activetest=1 |
||
66 | update_content=1\ |
||
67 | $class_expiration\ |
||
68 | $title\ |
||
69 | $desc\ |
||
70 | $comment\ |
||
71 | $type\ |
||
72 | $deadline.$timedeadline\ |
||
73 | $soldate.$timesoldate\ |
||
14537 | guerimand | 74 | $sizelimitfile\ |
14747 | guerimand | 75 | $scoring\ |
17593 | czzmrn | 76 | $seealltime\ |
77 | $studentclose |
||
14537 | guerimand | 78 | |
14297 | guerimand | 79 | update_field=$freework |
17634 | czzmrn | 80 | update_nbline=$fw_nbline |
14297 | guerimand | 81 | !read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks |
14747 | guerimand | 82 | !sh mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\ |
83 | mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/co; |
||
14297 | guerimand | 84 | |
85 | success=goodstatut |
||
86 | !if $back=1 |
||
87 | !restart module=home |
||
88 | !else |
||
89 | job=configfw |
||
90 | !reset back |
||
91 | !changeto $job.proc |
||
92 | !endif |