Rev 14297 | Rev 14747 | Go to most recent revision | 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 | |||
12 | !! --- checking date |
||
13 | d1=!text select char 0123456789 in $(deadline)$(timedeadline) |
||
14 | d2=!text select char 0123456789 in $(soldate)$(timesoldate) |
||
15 | !if $d2<=$d1 |
||
16 | error=badsoldate |
||
17 | job=configfw |
||
18 | !changeto $job.proc |
||
19 | !endif |
||
20 | |||
21 | !if $type>=2 |
||
22 | !! checking quota (if type>=2) |
||
23 | !readproc adm/class/quotafree.proc proc |
||
24 | nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist |
||
25 | space=$[0.25*$nbuser*$sizelimitfile] |
||
26 | !ifval $quota_free-$space<5 |
||
27 | error=notenoughfreespace |
||
28 | job=configfw |
||
29 | !changeto $job.proc |
||
30 | !endif |
||
31 | !endif |
||
32 | |||
33 | !! change statut |
||
34 | activetest=1 |
||
35 | update_content=1\ |
||
36 | $class_expiration\ |
||
37 | $title\ |
||
38 | $desc\ |
||
39 | $comment\ |
||
40 | $type\ |
||
41 | $deadline.$timedeadline\ |
||
42 | $soldate.$timesoldate\ |
||
14537 | guerimand | 43 | $sizelimitfile\ |
44 | $seealltime |
||
45 | |||
14297 | guerimand | 46 | update_field=$freework |
14537 | guerimand | 47 | update_nbline=11 |
14297 | guerimand | 48 | !read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks |
49 | !sh mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\ |
||
50 | mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/co; |
||
51 | |||
52 | success=goodstatut |
||
53 | !if $back=1 |
||
54 | !restart module=home |
||
55 | !else |
||
56 | job=configfw |
||
57 | !reset back |
||
58 | !changeto $job.proc |
||
59 | !endif |