Subversion Repositories wimsdev

!! expirefreework

!! --- testing if freework is active

!if $activetest!=1 and $activetest!=3

  error=fwnotactive

  job=configfw

  !changeto $job.proc

!endif

!if $activetest=1

  !!testing if all work are corrected (and deposit)

  !if $type>=2 and $notcorrected>0

    error=notallcorrected

    job=configfw

    !changeto $job.proc

  !endif

  !! testing if solutiondate pass (user can view solution)

  !ifval $type>=2 and $displaysolution!=1

    error=expire_nosoldisplay

    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\

$scoring\

$seealltime\

$studentclose

update_field=$freework

update_nbline=$fw_nbline

!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