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

!! remarks

remarkmax=1000

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

!! before saving check consistency

tmplength=!charcnt $remark

!if $tmplength > $remarkmax

  remark=!detag $remark

  error=truncatedtext

!endif

remark=!char 1 to $remarkmax of $remark

remark=!replace internal : by : in $remark

test=!nospace $remark

!if $test=$empty

  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark

!else

  !if $remark!=$empty

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

  !endif

!endif

!! -------- save finalremark

tmplength=!charcnt $finalremark

!if $tmplength > $remarkmax

  finalremark=!detag $finalremark

  error=truncatedtext

!endif

finalremark=!char 1 to $remarkmax of $finalremark

finalremark=!replace internal : by : in $finalremark

test=!nospace $finalremark

!if $test=$empty

  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark;

!else

  !if $finalremark!=$empty

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

  !endif

!endif

job=viewuser3

!changeto $job.proc