Rev 14537 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
14297 | guerimand | 1 | !! expirefreework |
2 | |||
3 | !! --- testing if freework is active |
||
4 | !if $activetest!=1 |
||
5 | error=fwnotactive |
||
6 | job=configfw |
||
7 | !changeto $job.proc |
||
8 | !endif |
||
9 | |||
10 | !!testing if all work are corrected (and deposit) |
||
11 | !if $type>=2 |
||
12 | n1=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/work |
||
13 | n1=!linecnt $n1 |
||
14 | n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/co |
||
15 | n2=!linecnt $n2 |
||
16 | !if $n1!=$n2 |
||
17 | error=notallcorrected |
||
18 | job=configfw |
||
19 | !changeto $job.proc |
||
20 | !endif |
||
21 | !endif |
||
22 | |||
23 | |||
24 | !! change statut |
||
25 | activetest=2 |
||
26 | update_content=2\ |
||
27 | $class_expiration\ |
||
28 | $title\ |
||
29 | $desc\ |
||
30 | $comment\ |
||
31 | $type\ |
||
32 | $deadline.$timedeadline\ |
||
33 | $soldate.$timesoldate\ |
||
34 | $sizelimitfile |
||
35 | update_field=$freework |
||
36 | update_nbline=10 |
||
37 | !read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks |
||
38 | |||
39 | success=goodstatut |
||
40 | !if $back=1 |
||
41 | !restart module=home |
||
42 | !else |
||
43 | job=configfw |
||
44 | !changeto $job.proc |
||
45 | !endif |