Rev 14537 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!! expirefreework
!! --- testing if freework is active
!if $activetest!=1
error=fwnotactive
job=configfw
!changeto $job.proc
!endif
!!testing if all work are corrected (and deposit)
!if $type>=2
n1=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/work
n1=!linecnt $n1
n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/co
n2=!linecnt $n2
!if $n1!=$n2
error=notallcorrected
job=configfw
!changeto $job.proc
!endif
!endif
!! change statut
activetest=2
update_content=2\
$class_expiration\
$title\
$desc\
$comment\
$type\
$deadline.$timedeadline\
$soldate.$timesoldate\
$sizelimitfile
update_field=$freework
update_nbline=10
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
success=goodstatut
!if $back=1
!restart module=home
!else
job=configfw
!changeto $job.proc
!endif