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 | !! reactive a freework which is perime |
2 | |||
3 | !! --- testing if freework is perime |
||
4 | !if $activetest!=2 |
||
5 | error=fwnotperime |
||
6 | job=configfw |
||
7 | !changeto $job.proc |
||
8 | !endif |
||
9 | |||
10 | !! testing for enough class capacity |
||
11 | !readproc adm/class/quotafree.proc |
||
12 | !read adm/du $wims_home/log/classes/$wims_class/freeworksdata/$k_/work |
||
13 | nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist |
||
14 | need=$[$nbuser*$sizelimitfile*0.25-$du] |
||
15 | !if $quota_free-$need <10 |
||
16 | error=notenoughfreespace |
||
17 | job=configfw |
||
18 | !changeto $job.proc |
||
19 | !endif |
||
20 | |||
21 | !! change statut |
||
22 | activetest=1 |
||
23 | update_content=1\ |
||
24 | $class_expiration\ |
||
25 | $title\ |
||
26 | $desc\ |
||
27 | $comment\ |
||
28 | $type\ |
||
29 | $deadline.$timedeadline\ |
||
30 | $soldate.$timesoldate\ |
||
14537 | guerimand | 31 | $sizelimitfile\ |
32 | $seealltime |
||
33 | |||
14297 | guerimand | 34 | update_field=$freework |
14537 | guerimand | 35 | update_nbline=11 |
14297 | guerimand | 36 | !read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks |
37 | |||
38 | success=goodstatut |
||
39 | !if $back=1 |
||
40 | !restart module=home |
||
41 | !else |
||
42 | job=configfw |
||
43 | !reset back |
||
44 | !changeto $job.proc |
||
45 | !endif |
||
46 | |||
47 |