Rev 14297 | Rev 14747 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!! 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