Subversion Repositories wimsdev

!! reactive a freework which is perime

!! --- testing if freework is perime

!if $activetest!=2

  error=fwnotperime

  job=configfw

  !changeto $job.proc

!endif

!! testing for enough class capacity

!readproc adm/class/quotafree.proc

!read adm/du $wims_home/log/classes/$wims_class/freeworksdata/$k_/work

nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist

need=$[$nbuser*$sizelimitfile*0.25-$du]

!if $quota_free-$need <10

  error=notenoughfreespace

  job=configfw

  !changeto $job.proc

!endif

!! change statut

activetest=1

update_content=1\

$class_expiration\

$title\

$desc\

$comment\

$type\

$deadline.$timedeadline\

$soldate.$timesoldate\

$sizelimitfile\

$scoring\

$seealltime

update_field=$freework

update_nbline=11

!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks

success=goodstatut

!if $back=1

  !restart module=home

!else

  job=configfw

  !reset back

  !changeto $job.proc

!endif