Subversion Repositories wimsdev

Rev

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