Subversion Repositories wimsdev

!! activate freework

!! --- testing if noempty
nb=!record 1 of wimshome/log/classes/$wims_class/freeworks/.freework$freework
nb=!nonempty line $nb
!if $nb=$empty
  error=emptyfreework
  job=configfw
  !changeto $job.proc
!endif

!! --- checking date
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
!if $d2<=$d1
  error=badsoldate
  job=configfw
  !changeto $job.proc
!endif

!if $type>=2
  !! checking quota (if type>=2)
  !readproc adm/class/quotafree.proc proc
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
  space=$[0.25*$nbuser*$sizelimitfile]
  !ifval $quota_free-$space<5
    error=notenoughfreespace
    job=configfw
    !changeto $job.proc
  !endif
!endif

!! change statut
activetest=1
update_content=1\
$class_expiration\
$title\
$desc\
$comment\
$type\
$deadline.$timedeadline\
$soldate.$timesoldate\
$sizelimitfile\
$seealltime

update_field=$freework
update_nbline=11
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
!sh mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\
    mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/co;

success=goodstatut
!if $back=1
  !restart module=home
!else
  job=configfw
  !reset back
  !changeto $job.proc
!endif