Subversion Repositories wimsdev

!! not allow for other than type=3

!if $type!=3

  job=configfw

  !changeto $job.proc

!endif

!if $putiworkco!=0 or $seealltime!=1

  error=putworknotallow

  job=configfw

  !changeto $job.proc

!endif

!! -------- check for valid student (in class)

!bound userv within $ulist default $empty

!if $userv=$empty

  error=putworkusernotexists

  job=configfw

  !changeto $job.proc

!endif

!! -------- test si la copie de l'etudiant existe (pas de depot de correction si pas de copie)

!readproc proc/findfile3.proc $freework,$userv

!if $output=$empty

  error=studentwithoutfw

  job=configfw

  !changeto $job.proc

!endif

!! -------- save remark

remark=!char 1 to 1000 of $remark

remark=!replace internal : by : in $remark

!writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $remark

job=viewuser3

!changeto $job.proc