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